fcode 发表于 2019-2-19 22:02
[mw_shl_code=fortran,true]MODULE inputpower
    IMPLICIT NONE
    REAL k(50,152)

解决了
非常感谢！
谢谢您！！！！！！

[Fortran] 纯文本查看 复制代码

MODULE inputpower
    IMPLICIT NONE
    REAL k(50,152)
END MODULE

如果还有问题，请给出错误提示描述。

SUBROUTINE getpow(xx,yy)
    USE inputpower
    IMPLICIT NONE
    INTEGER i,j
    OPEN(unit=99,file='test1.txt',status='old',form = 'formatted')
        DO i=1,xx
             READ(99,*) (k(j,i) ,j=1,yy)
             !print*, (k(j,i) ,j=1,yy)
        END DO
    CLOSE(99)
END SUBROUTINE getpow(xx,yy)
用排除法得到是红色的两行代码有问题

可能代码特别不规范 主要是参照了一些fortran77的代码