بسم الله
سلام
چجوری میتونم double percision رو تو gfortran بسط(extend) بدم؟
یعنی میخوام مثلا تا عدد نپر به توان خیلی بیش از ۳۰۰ رو بشناسه و براش بینهایت نباشه.
اینم خود برنامه:
implicit none
REAL*16 :: x, y, z, d
integer :: n
x=711.d0
y=x/log(10.d0)
n=int(y)
d=y-n
z=(exp(d*log(10.d0)))*(10.d0**n)
print*, z
end
الان اون خط ۴ اگر ۷۱۱ بشه ۷۱۲ برنامه اجرامیشه ولی بینهایت میشه!!
اگر احیانا زبان دیگه میشناسین که این محدودیت رو نداشته باشه معرفی کنین.