楼主
double precision function rlimit(x)
implicit double precision (a-h,o-z)
rlimit=max(0,min(1.d0,2.d0*x),min(2.d0,x))
end
用fortran 90 编译器编译上述fortran 77源码时，出现如下错误提示
......\Source1.F90(864) : Error: The intrinsic data types of the arguments must be the same. [MAX]
......\Source1.F90(864) : Error: The intrinsic data types of the arguments must be the same. [MIN]
不知何故，请高手指点~~~
implicit double precision (a-h,o-z)
rlimit=max(0,min(1.d0,2.d0*x),min(2.d0,x))
end
用fortran 90 编译器编译上述fortran 77源码时，出现如下错误提示
......\Source1.F90(864) : Error: The intrinsic data types of the arguments must be the same. [MAX]
......\Source1.F90(864) : Error: The intrinsic data types of the arguments must be the same. [MIN]
不知何故，请高手指点~~~
