一个通过文件读取数据的程序,总是报错!
!***********************
!* PERD MAIN PROGRAM *
!***********************
PROGRAM PERD
IMPLICIT NONE
REAL DAT(40)
INTEGER M,NN
NN=40
OPEN(5,FILE='5.TXT')
OPEN(6,FILE='6.TXT')
READ(5,501)(DAT(M),M=1,NN)
WRITE(*,501)(DAT(M),M=1,NN)
501 FORMAT(2X,8F6.2)
END
点击浏览该文件
!* PERD MAIN PROGRAM *
!***********************
PROGRAM PERD
IMPLICIT NONE
REAL DAT(40)
INTEGER M,NN
NN=40
OPEN(5,FILE='5.TXT')
OPEN(6,FILE='6.TXT')
READ(5,501)(DAT(M),M=1,NN)
WRITE(*,501)(DAT(M),M=1,NN)
501 FORMAT(2X,8F6.2)
END
点击浏览该文件