fortran将数据文件导入二维数组 再在另一个文件输出
我有一个数据文件,数据是20001行99列,数据格式形如4.4403240e-09,每个数据以三个空格隔开我想将这个数据文件输入到二维数组中,然后在另一个文件输出这个二维...
我有一个数据文件,数据是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 展开
我想将这个数据文件输入到二维数组中,然后在另一个文件输出这个二维数组
这样运行以后老是说我读的时候运行到文件末尾了。是读取的格式有问题?求大神帮助啊
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 展开
2015-06-02
展开全部
程序中文件用完后要关闭,程序段修改如下:
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列 !
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询