real*8就是说数据类型为双精度实型，占有储存空间为8个字节，有效位数为15-16位，可表示最大正数为1.79*10^308最小正数为2.23*10^（-308）希望帮到你！！
8字节存储的双精度浮点数y x
【题目】一段fortran 程序,用于生成随机数,哪里出 问题了 real* 8 function random) implicit double precision(a-h,o-z) commonrandom s/x x=dmod(x*1953125d0,8388593d0) random =(x+0.1d0)/8388593d0 return end block data real8 x commonrandom s/x data/235621d0/ end block data 另外,问题是...
1一段fortran程序,用于生成随机数,哪里出问题了real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/end block data另外,问题是The type of the function...
real*8 scaleb = scale(3)这还有可能,scale 是一个函数.b = scale(3) 的意思是调用scale函数,其参数是3,返回值赋给 b 结果一 题目 Fortran中,实型常量后面带个括号是什么含义.括号内是个整数.比如:real*8 scalescale(3)=552013年12月7日补充:较为完整的源代码↓real*8 scalecommon /scales/ scale(...
fortran编程实现冒泡排序(由大到小)源代码如下：implicit noneinteger::i,j,Nreal*8::x(8)real*8::tmpx=[1,2,3,4,5,6,7,8]N=size(x)do i=1,N-1do j=i+1,Nif(x(j)x(i))thentmp=x(i)x(i)=x(j)x(j)=tmpend ifend doend dodo i=1,Nprint *, x(i)end do编译、...
real*8 function random()implicit double precision(a-h,o-z)common/random_s/xx=dmod(x*1953125d0,8388593d0)random=(x+0.1d0)/8388593d0returnendblock datareal*8 xcommon/random_s/xdata x/235621d0/end block data另外,问题是The type of the function reference does not match the type of the...
real在Fortran中表示实数类型。其中有两种精度：单精准度(REAL*4)双精准度(REAL*8)相应的实数范围：real(kind=4)：±1.18*10-38 ~ ±3.40*1038，有效6-7位 real(kind=8)：±2.23*10-308 ~ ±1.79*10308，有效15位
一般REAL等价于REAL*4或REAL(4),是单精度的Fortran跟C一样，也分整型(INTEGER)，实型(REAL)，双精度(REAL*8或REAL(8)或DOUBLE PRECISION)，这些在科学计算中还是比较重要的。一般REAL等价于REAL*4或REAL(4),是单精度的；而双精度在F77中表示为DOUBLE PRECISION，在F90中可以表示为REAL*8或REAL(8...
程序：module tool implicit none real*8::distance !导弹上升的最大高度 real*8::high !导弹飞行的最远距离 contains real*8 function f(x)real*8::x f=-0.0000125*x**2+0.07*x-50 !导弹飞行曲线的轨道方程 !f=x**2+1 end function real*8 function binroot(f,x1,x2)!二分法求...