3
2
0
新人
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
使用道具 举报
835
大宗师
1
本版积分规则 发表回复 回帖后跳转到最后一页
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-15 01:22
Powered by Tencent X3.4
© 2013-2024 Tencent