各位好
[Fortran] 纯文本查看 复制代码 PROGRAM TEST
!IN THE MAIN BODY
IOUTFILE=100
IOUTFIEL1=101
OPEN (IOUTFILE,'FILE NAME')
OPEN(IOUTFILE1,'FILE NAME')
CALL PRNT()
! THE MAIN BODY IGNORED FOR THIS MOMENT……
STOP
END PROGRAM
SUBROUTINE PRNT(IOUFILE,IOUTFILE1)
DO I=1,N
WRITE(IOUTFILE,'FORMAT') SOME FACTORS.....
ENDDO
!THE PREVIOUS PART WORK NORMALLY
WRITE(IOUTFILE1,*) 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..
也就是说,为什么啊?为什么不执行第二个WRITE语句?
现阶段,整个程序跑不通,如果跑通的时候,它是可以被执行的……
为什么,谢谢各位……
BY YATOU
|