我有一個程序，需要從constant 文件里邊讀取數據，問題是現在黑色的運行框提示我 “Your constant file "CONSTANT" not found!” 我想這是由于我設置了下邊的內容，CONSTANT='CONSTANT'INQUIRE (FILE=CONSTANT,EXIST=EX) IF (EX) GOTO 10WRITE (*,*)' Your constant file "CONSTANT" not found!'STOP但是constant文件就在程序路徑下啊，他們在同一個文件夾下的！IMPLICIT DOUBLE PRECISION (A-H,O-Z)CHARACTER *20 WETDATA,RESFILE,CONSTANT,DATADATECOMMON /FILES/WETDATA,RESFILE,CONSTANT,DATADATECALL DATAINPUTc 打開氣象文件WETDATA  OPEN(2,FILE=WETDATA,STATUS='OLD')  CALL CALCULAT  CLOSE(2) STOP  END  C ==================================================================  SUBROUTINE DATAINPUTIMPLICIT DOUBLE PRECISION (A-H,O-Z) CHARACTER *20 WETDATA,RESFILE,CONSTANT,DATADATE LOGICAL EXCOMMON c 文件變量* /FILES/WETDATA,RESFILE,CONSTANT,DATADATE c 常數和角度* /CONST1/PI,GRAVITY,DT,DY,GAMA,FI,PSETA 。。。省略* /OUTDATA0/EX,TAIR,TGOUT,TGWATER,TGIN,TINDOOR,TGOUTLET,* TININ,TINOUT,TGINLET,TOUTIN,TOUTOUT,T45,NY45,NY12,I,J,TAIRMc 各分段溫度* /OUTDATA1/TGOUTS(200),TGINS(200),TGWATERS(200),T45S(200) 。。。省略CONSTANT='CONSTANT'INQUIRE (FILE=CONSTANT,EXIST=EX) IF (EX) GOTO 10WRITE (*,*)' Your constant file "CONSTANT" not found!'STOPC ------------------------------------------------------------------------ C There are 8 groups of file names and data to be read into memory C from the CONSTANTS C 1. Read the file names into memory: 10 OPEN (1,FILE=CONSTANT,STATUS='OLD') READ (1,'(A)') READ (1,'(A)')這個問題我自己解決好了 。