FORTRAN中WRITE不执行？

楚香饭

各种拼写错误吧。

IOUTFILE1 写成了 IOUTFIEL1 之类的。

建议你用 Implicit None

[Fortran] 纯文本查看 复制代码

PROGRAM TEST
  Implicit None
  integer :: IOUTFILE , IOUTFILE1
!IN THE MAIN BODY

IOUTFILE=100
IOUTFILE1=101

OPEN(IOUTFILE,File='file1.txt')

OPEN(IOUTFILE1,File='file2.txt')

CALL PRNT(IOUTFILE,IOUTFILE1)

! THE MAIN BODY IGNORED FOR THIS MOMENT……


STOP
END PROGRAM

SUBROUTINE PRNT(IOUTFILE,IOUTFILE1)
  Implicit None
  integer :: IOUTFILE , IOUTFILE1
  Integer :: n , i
  n = 3
DO I=1,N
WRITE(IOUTFILE,*) 's'
ENDDO

!THE PREVIOUS PART WORK NORMALLY

WRITE(IOUTFILE1,*) 'vs'!SOME FACTOR  !THE ERROR

!THIS 'WRITE' DOESN'T WORK, WHY?


RETURN 
END 

!AND THE FUNNY THING IS, IF THE PROGRAM WORK PERFECTLY, THE "WRITE" COULD BE EXCUTED..

楚香饭

这可能性就比较多了。
1.有可能执行了，但 IOUTFILE1 的值不对，所以你就没看到。比如这个代码中，拼错了 IOUTFILE1
2.有可能没执行，是因为某些值错误，导致了某些 if 未满足条件，执行的路线偏离了。
总之可能很多，最好是 Debug 调试跟踪以便确定。

楚香饭

Yatou 发表于 2014-3-18 21:31
好， 我明白之后，再回来，确认我的原因，写在这里

还有，我能说我不会DEBUG跟踪么……

我们这里有专门的 Debug 教程：
http://www.fcode.cn/guide-44-1.html