FORTRAN 编程ASPEN 动力学子程序DyMTBE

kasar

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

      RATNET=RATE*REALB(1)*1.D-03                                            
      RATES(K_IB)=-RATNET
      RATES(K_MEOH)=-RATNET
      RATES(K_MTBE)=RATNET
      RATES(K_NC4)=0.D+00                                                  

      IF(IDBG.GE.1)THEN
        WRITE(MAXWRT_MAXBUF(1),9030) NSTAGE,RATE,RATNET  
        CALL DMS_WRTTRM(1)    
      ENDIF  
      RETURN  

想问一下各位大神 ，RATNET  什么含义 ？
DMS_WRTTRM(1)代表 什么函数？
MAXWRT_MAXBUF(1)代表 什么文件？