最近在把fortran90改成C
但本身不是学f90,网络上资料能找到的也有限...
最近碰到一个奇怪的问题,
CALL GATEOPEN(QU, HO, INGT(IST2, 1), GT(1, 1, IST2), MDC_GT);
这边的GT应该是一个三维阵列中取出来的REAL值
但是在GATEOPEN这个subroutine中
SUBROUTINE GATEOPEN( T,F,N,FT,MAXD )
.....
INTEGER, INTENT(IN) :: N,MAXD
REAL(SP), INTENT(IN) :: T,FT(MAXD,2)
...
我实在是看不懂为何这边会变成FT(MAXD,2)
后面使用也是变成二维阵列的形式
DO I = 1, N
IF( T <= FT(I,1) ) THEN
F = FT(I,2)
RETURN
END IF
END DO
求解...悬赏1000P
感谢各位大神。