[交流] 【交流】Fortran语言答疑专帖已有46人参与

Originally posted by duanyan at 2009-8-5 18:02:

不好意思，我是用着fortran才开始学习，看了几天了，现在还在郁闷中，能否麻烦你说的更详细一些，比如如何读取yl.trace文件中的数据，如何把提取的数据存为另外一个文件。。。，

C234567
      PROGRAM YL
      CHARACTER COMMENT*128
      REAL*8 EF, T, N, DOS, S, ST
      OPEN(4,FILE="YL.TRACE",STATUS="OLD")
      OPEN(7,FILE="YL.RESULT",STATUS="NEW")
      READ(4,'(A)') COMMENT
10    READ(4,20,END=40) EF, T, N, DOS, S, ST
      IF (T .EQ. 300.0D0) WRITE(7,30) EF, ST
      GOTO 10
20    FORMAT (F10.5,F10.4,F16.8,3E16.8E2)
30    FORMAT (F10.5,E16.8E2)
40    CONTINUE
      END