告诉你两个函数:huge和tiny,分别是最大值和最小正值,自己测试一下便知
real::x
real(kind=4)::y
real(kind=8)::z
write(*,*) huge(x),huge(y),huge(z)
write(*,*) tiny(x), tiny(y), tiny(z)
------------------------------------------------
单机上,默认的real 即为real(kind=4),范围为:正负3.4*10^38
real(kin=8)的范围是:正负1.79*10^308
与编译器、操作系统位数有关。