在Fortran 90中(在Mac OS X上使用gfortran ),如果我将一个值赋给一个双精度变量,而没有显式地附加一个种类,精度就不会“接受”。我的意思是,如果我运行以下程序:integer, parameter:: dp = kind(1.0d0)
real(dp) :: b = 0., c = 0., d = 0.0_dp, e
我想要实现一个子例程,它可以在单精度、双精度和扩展精度中与reals一起工作。我能找到的唯一解决方案如下面的代码所示。这个解决方案可以工作,但我必须重复代码3次。这样的代码复制可以避免吗?some code here
module procedure my_func_sp module procedure my_func_ep
con