我想端口一段代码的Fortran 77到Fortran 90的,我有关于Fortran 77中追赶排名不匹配参数 这是一个问题在Fortran 90的 program test
use my_module
real ml_time
call gettimes(cdfid,ml_time,ml_ntimes)
代码在调用子例程,这是通过可变如何定义 module my_module
我已经看过这个Q/A Intent of this Fotran77 code,我几乎已经将下面的Fortran77样式代码转换为Python 3.x,除非我怀疑i = i + 1应该放在Python版本。正如我在相关问题的评论中所提到的,我已经完成了一致性测试,结果的偏差为2.因此,这个问题。 i = 0
500 continue
i = i +1
if (i .le. ni) then
请考虑以下代码。它一次写入“n”个元素。对于intel编译器,“n”是5,对于pgi,“n”是4 icels=128
jcels=128
imat=2 ! just for example
write(ounit,*)
x ((real(pr(i,j,imat)),i=1,icels),j=1,jcels)
其中“x”是连续字符。我希望两个编译器的
program sum
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
x = 1
y = 2
z = (x*y)/dtan(0.0D0)
print *, z
end program sum
当我编译此代码与Online Fortran Compiler我得到“无限”。如果我用不同的语言编写这段代码,我得到你不能被零除,这是有道理的,因为tan(0)= 0
我试图访问一个数据块时,它被定义的方式是如下 DATA NAME /'X1','X2','X3','X4','X5','X6','X7','X8','X9','10','11',00028650
1'12','13','14','15','16','17','18','19','20','21','22','23','24'/ 00028660
的代码是在纸面上。请注意这是一个旧代