我想端口一段代碼的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
的代碼是在紙面上。請注意這是一箇舊代