Question

fortran将数据文件导入二维数组 再在另一个文件输出

我有一个数据文件，数据是20001行99列，数据格式形如4.4403240e-09，每个数据以三个空格隔开
我想将这个数据文件输入到二维数组中，然后在另一个文件输出这个二维数组
这样运行以后老是说我读的时候运行到文件末尾了。是读取的格式有问题？求大神帮助啊
OPEN (8,FILE='spec.txt')
DO i=1,20001
DO j=1,99
READ (8,'(E16.3)') A(i,j)
ENDDO
ENDDO
OPEN (8,FILE='OH.txt')
DO i=1,20001
WRITE (8,'(99E13.3)') A(i,:)
ENDDO

Answer 1

程序中文件用完后要关闭，程序段修改如下：
		OPEN(8,FILE='spec.txt')
         	DO i=1,20001
           		DO j=1,99
            			READ (8,'(E16.3)') A(i,j)
           		ENDDO
         	ENDDO
		CLOSE(8)
       		OPEN(8,FILE='OH.txt')
         	DO i=1,20001
            		WRITE (8,'(99E13.3)')(A(i,J),J=1,99)  
         	ENDDO
		CLOSE(8)
		如果仍有错误，那可能是spec.txt文件不满足20001行99列 ！