读入文件时怎么让程序每5行跳过一条记录呢？（fortran）

ocat

请教
输入文件每2行就有一行不用的数据(一些无用的字母）
我怎么让程序不读这一行
而直接去读第4行呢？
比如
输入文件(1.dat为：
1 1 1
2 2 2
tadfaf
3 3 3
我想输出文件(2.dat)为
1 1 1
2 2 2
3 3 3

ocat

我程序是写出来了（第三行读入到一个字符变量里面去），但是相当麻烦。
有没有办法直接跳过这些行，根本不读的办法哦

program test 1   

        character *2 str1
        open(unit=3,file='1.dat',status='old')
         
        open(unit=2,file='2.dat',status='new')
        d=0
20     read(3,*)A,B,c
        d=d+1
        if(mod(d,2).eq.0) then
        write(2,*)A,B,c
        read(3,100)str1
        goto 20
        else
       write(2,*)A,B,c
      
      
       goto 20
       end if
30     close(3)
       close(2)
100     format(A)
       end

ocat

不知道怎么回事 全从第一列开始了
红色的表示语句标号

huahua2005

楼主是否是不想要第三行，若是，则可在读第二行时用“/”跳过第三行，很久没用了，一时想不出比此更好的办法，下面是我试改的程序，供参考：
          program test 1
          DIMENSION MA(3,3)
          open(unit=3,file='1.dat')
          open(unit=2,file='2.dat')
          DO 1,I=1,3
          IF(MOD(I,2).EQ.0)THEN
           read(3,20)(MA(I,J),J=1,3)
         ELSE
          READ(3,21)(MA(I,J),J=1,3)
        END IF
1      CONTINUE
20     FORMAT(3I/)
21     FORMAT(3I)
         DO 2,I=1,3
2       WRITE(2,*)(MA(I,J),J=1,3)
         END

huahua2005

或者改成下面简单的程序，但要改一下1.dat,因为要将FORMAT执行完，供销参考：
program test 1
DIMENSION MA(3,4)
open(unit=3,file='1.dat')
open(unit=2,file='2.dat')
read(3,20)MA
20   FORMAT(3i/3i/)
DO 2,I=1,3
2    WRITE(2,*)(MA(j,i),J=1,3)
END
1.dat改为：
1,1,1
2,2,2
tadfaf
3,3,3
4,4,4
aaaaa

ocat

好的
我编译看看
多谢啊

奇怪，怎么运行以后2.dat里面没内容啊（用的是你的第一个程序）

huahua2005

我的有啊
2.dat
           1           1           1
           2           2           2
           3           3           3

GWinston

这样也可以。而且简单：

program test 1
open(unit=3,file='1.dat',status='old')
open(unit=2,file='2.dat',status='new')
20 read(3,*)A,B,c
write(2,*)A,B,C
read(3,*)A,B,C
write(2,*)A,B,C
read(3,*)
if(.not.eof(3)) goto 20
close(3)
close(2)
end

不妨试试。