[交流] 【求助】求高手关于Fortran数据读写的问题。【已完结】

C234567
      PROGRAM C1C2
      CHARACTER*80 LINE
      OPEN(7,FILE = 'A.TXT', STATUS='OLD')
      OPEN(8,FILE = 'B.TXT', STATUS='NEW')
5     READ(7,'(A)', END = 10) LINE
      IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0)
     &  WRITE(8, '(A)') LINE
      GOTO 5
10    CONTINUE
      END

Originally posted by piduil at 2010-12-01 13:10:05:
ykwang的程序估计是楼主想要的
但文件10在你的程序中没有定义，fortran菜鸟会搞不定的。
此外，如果输入文件中有C1C打头之类的行，会出错的。

Originally posted by 77585218358 at 2010-12-01 14:38:04:

你的意思是应该定义打开数据文件的通道10,是不是？

Originally posted by piduil at 2010-12-01 15:31:47:
为什么非要用fortran来干这个事情呢？
我觉得干这个并不是fortran的特长，把你的需求说完整了，也许有更好的解决方案。

Originally posted by snoopyzhao at 2010-12-01 10:37:01:
一个简单的实现

[code]
C234567
      PROGRAM C1C2
      CHARACTER*80 LINE
      OPEN(7,FILE = 'A.TXT', STATUS='OLD')
      OPEN(8,FILE = 'B.TXT', STATUS='NEW')
5     READ(7,'(A)', END = 10) ...

Originally posted by kathy2008 at 2011-05-12 09:58:10:
版主你好，我试了一下你这一个程序，用gfortran，提示的错误是
In file bbs3.f90:6

      IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0 )
                                           ...

Originally posted by snoopyzhao at 2011-05-12 10:09:40:
我这里的是个 Fortran 77 的程序，续行符在前，你用 Fortran 90 的话，得把续行符放在上一行的后面吧……

Originally posted by kathy2008 at 2011-05-12 10:16:07:
多谢版主。已解决。