我在FORTRAN中有关于读写的问题，与下面的链接中提到的问题类似，仅读取一列，并且在读取过程中缺少文件末尾。 以二进制形式编写它时，也会出错。
根据提供的链接，我尝试对接发现相同的问题。
请找到附件链接 How to read a matrix and write certain values to a new file in Fortran
下面给出的文件结构
10 11 12 13 14 15 16
10 21 22 23 24 25 26
10 31 32 33 34 35 36
10 41 42 43 44 45 46
10 51 52 53 54 55 56
10 61 62 63 64 65 66
OPEN(50,FILE=test.txt',FORM='formatted',ACCESS='sequential',STATUS='old',ACTION='READ')
OPEN(60,FILE='txt.bin',FORM='unformatted',ACCESS='direct',STATUS='unknown',recl=6*4*7,ACTION='WRITE')
INTEGER::rec,irec
INTEGER,PARAMETER :: nlv=6
INTEGER,DIMENSION(6,7)::dum
DO i=1,nlv
Do j=1,7
READ(50,*,err=97)dum(i,j)
WRITE(*,*)dum(i,j)
WRITE(60,rec=irec)dum(i,j)
irec=irec+1
ENDDO
ENDDO
97 WRITE（* ）读取数据时发现错误 WRITE（，*）“找到文件尾” 关闭（50）
对于第一列，我想读取所有行，然后转到另一列并执行相同的操作。