Question

我是Fortran的初学者，正在尝试使用gfortran编译固定期限的Fortran代码。我遇到了很多错误，可以解决这些错误。但是，有一个与“ EOF”相关的错误，我无法解决。有什么办法可以解决这个问题？（两条“ EOF”行是第40和121行。）

 37         OPEN(4,FILE="ABCE.Pn")
 38 
 39         OPEN(5,FILE="../sta.txt")
 40         DO WHILE (.not.EOF(5))
 41                 N=N+1
 42                 READ(5,*)STA(N)%COD,STA(N)%NAME,STA(N)%LAT,
 43      $          STA(N)%LON,STA(N)%H
 44         ENDDO
 45         NSTA=N
 46         CLOSE(5)`

 ......

121         DO WHILE (.not.EOF(1))
122                 READ(1,'(A60)',ERR=999) TIT
123 C               IF(IYEAR.GE.2008.OR. 
      (IYEAR.EQ.2007.AND.MONTH.GE.11)) 
124 C     $         TIT=TIT(2:60)
125                 IF(TIT(1:60).EQ.'')THEN         ! NEW EARTHQUAKE`

错误：

      DO WHILE (.not.EOF(5))                                            
                     1
Error: Operand of .not. operator at (1) is REAL(4)
ReadP2Pn.for:121.21:

      DO WHILE (.not.EOF(1))                                            
                     1
Error: Operand of .not. operator at (1) is REAL(4)

Answer 1

EOF（5）是非标准的。您应该在read语句中检查EOF（可悲的是，它看起来像goto）：

 40         DO WHILE (.true.)
 41                 N=N+1
 42                 READ(5,*,end=990)STA(N)%COD,STA(N)%NAME,STA(N)%LAT,
 43      $          STA(N)%LON,STA(N)%H
 44         ENDDO
 45    990  NSTA=N

与Fortran代码中的EOF命令有关的错误

1 个答案: