以下是我正在使用的数据集:
2 19.000000E-01 4.246377E+24 9000.0 100.0 106.0 1400.0
2.601629E+4 1E+24 2.232456E+2 0.100000E+00
0.000000E+00 0.20000E+00 1.000000E+00 5.169046E+4
0.000000E+00 0.000000E+00 0.000000E+00
我想使用 Gfortran 从左到右读取此文本数据集的元素。但是,我的代码是从上到下阅读的。此外,它并没有读取所有元素。有什么方法可以让我的 GFortran 代码从左到右读取并读取所有元素?
这是我的代码:
PROGRAM S1
IMPLICIT NONE
REAL :: col1
REAL :: col2, col3
REAL :: col4, col5
REAL :: col6, col7
INTEGER :: IOstatus=0
open (unit = 1, file = "testing.txt", STATUS = "OLD")
readloop: DO
READ (1,*,IOSTAT=IOstatus) col1,col2,col3,col4,col5,col6,col7
IF (IOstatus /=0) EXIT
WRITE (*, *) col1,col2,col3,col4,col5,col6,col7
END DO readloop
END PROGRAM
谢谢。如果我能提供任何其他信息,请告诉我。