本帖最后由 daydaycode 于 2020-3-24 17:22 编辑
data.txt
(12.64 KB, 下载次数: 3)
fortran小白请教下fortran处理txt文件问题。需要处理的数据为地面自动站气象数据,数据包含的数据类型主要有字符串和浮点及整数等类型格式,数据为62247*212的矩阵,但是在57418行到最后的前6列都没有值,这样在数据读取的时候就会提示读取文件末尾报错,请问想正确读入这类型的数据,该怎么编写fortran代码。自己参考别人的代码,写的fortran程序,不能处理以上的问题,代码及数据和报错信息如下,还请各位前辈指教下怎么修改
[Fortran] 纯文本查看 复制代码 PROGRAM predeal_dimianzidong
IMPLICIT NONE
INTEGER ::i,j !读取数据的行数
INTEGER, PARAMETER ::row=62247,col=212
CHARACTER,DIMENSION(row,col) ::data_read,data_1
OPEN(UNIT=3, FILE='SURF_CHN_MUL_HOR_2019080100.txt', STATUS='OLD',ACTION='READ',FORM='FORMATTED',ACCESS='sequential') !打开文件
!READ(3,*) ((data_read(i,j),j=1,col),i=1,row)
DO i = 1,row
READ(3,*)(data_read(i,j),j=1,col)
END DO
!data_1 = transpose(data_read)
print*,SHAPE(data_read)
!PRINT*,data_1
CLOSE(UNIT=3) !关闭文件
STOP
END PROGRAM predeal_dimianzidong
|