回 帖 发 新 帖 刷新版面

主题: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)

0

回复列表 (共1个回复)

沙发

在线博彩平台:www.lcmty.com 
在线博彩平台:www.7macau.com
在线博彩平台:www.bp258.com

我来回复

您尚未登录,请登录后再回复。点此登录或注册