关于子程序读取txt文件

fcode

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

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

SUBROUTINE getpow(xx,yy)
    USE inputpower
    IMPLICIT NONE
    INTEGER i,j,xx,yy!//XX,YY需要定义
    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!//这里不写括号

PROGRAM inpow  
    USE inputpower
    IMPLICIT NONE
    INTEGER na,nr
    na = 7
    nr = 7
    !read the input data
    CALL getpow(na,nr)  
    
    END PROGRAM inpow

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