您所在位置：主题：Fortran出现forrtl severe 29 file not find
Fortran出现forrtl severe 29 file not find，unit 5,file C:\MSC.Software\MSC.ADAMS\205\jieguo.dat
源程序部分：
C--------------确定文件目录----------------------------------------
C--------------确定文件目录----------------------------------------
CHARACTER*80 F_PATH
CHARACTER SPACE
PARAMETER (F_PATH='C:\MSC.Software\MSC.ADAMS\2005\')
PARAMETER (SPACE = '')
INTEGER COUNT
C --- Local variable definitions ----------------------
DOUBLE PRECISION xingcheng,DY,Vy
DOUBLE PRECISION xingcheng1,sudu,yiqa,qiya1,zhongjianliang
INTEGER IPAR(2)
LOGICAL ERRFLG
c--------------------------------------------------------
DOUBLE PRECISION TIMEFL,TIMEHCTR,TMEHCSJ,MTIME,JTIME
DOUBLE PRECISION pjsudu,gfsudu,pjsudu2
INTEGER Flag2,Flag3,Flag4,Flag5
DOUBLE PRECISION jl
c-----------------------------------------------------------
COUNT=INDEX(F_PATH,SPACE)
IPAR( 1 ) = PAR( 1 )
IPAR( 2 ) = PAR( 2 )
c IPAR( 3 ) = PAR( 3 )
CALL SYSFNC('Dy',IPAR,2,DY,ERRFLG)
CALL ERRMES(ERRFLG, 'Error getting DY. in SFOSUB.',
+ ID, 'STOP')
CALL SYSFNC('Vy',IPAR,2,VY,ERRFLG)
CALL ERRMES(ERRFLG, 'Error getting VY. in SFOSUB.',
+ ID, 'STOP')
C 路径实际长度
xingcheng=abs(abs(DY)-5.7)*0.01
sudu=abs(VY)*10
c---------------------启动仿真--------------------------------------
c if(time.eq.0)then
c qiya=6.0D5
c qiya1=6.0D5
c value=0.0
c OPEN(UNIT=5,FILE=F_PATH(1:COUNT-1)//'\jieguo.dat',STATUS='NEW')
c WRITE(5,*)TIME,qiya,xingcheng
c close(unit=5)
c----------------------压气阶段---------------------------------------
if(xingcheng<0.047) then
c OPEN(UNIT=5,FILE=F_PATH(1:COUNT-1)//'\jieguo.dat',STATUS='OLD')
c read(5,*)TIME1,qiya1,xingcheng1
c close(unit=5)
value=8.88D3*((xingcheng)/(0.161-xingcheng))
qiya=6.0D5*((0.161)/(0.161-xingcheng))
TIMEFL=TIME
TIMEHCTR=0
Flag2=0
jl=0
Flag4=0
OPEN(UNIT=5,FILE=F_PATH(1:COUNT-1)//'\jieguo.dat',STATUS='OLD')
WRITE(5,*)TIME,qiya,xingcheng,TIMEFL,TIMEHCTR,Flag2,jl,Flag4
close(unit=5)