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
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |