Fortran编写反应动力学

18562317750 · 发表于 1970-1-1 08:00:00

求助：这些代码都是什么意思呀？变量该如何选取？ IMPLICIT NONE

C

C DECLARE VARIABLES USED IN DIMENSIONING

C

INTEGER NSUBS, NINT, NPO, NIWORK, NWORK,

+ NC, NR, NTCAT, NTSSAT, NCOMP,

+ NRALL, NUSERV, NINTR,NREALR, NIWR,

+ NWR

C

#include "ppexec_user.cmn"

EQUIVALENCE (RMISS, USER_RUMISS)

EQUIVALENCE (IMISS, USER_IUMISS)

#include "dms_ncomp.cmn"

#include "rxn_rcstrr.cmn"

#include "rxn_rprops.cmn"

EQUIVALENCE (TEMP, RPROPS_UTEMP )

EQUIVALENCE (PRES, RPROPS_UPRES )

EQUIVALENCE (VFRAC, RPROPS_UVFRAC)

EQUIVALENCE (BETA, RPROPS_UBETA )

EQUIVALENCE (VVAP, RPROPS_UVVAP )

EQUIVALENCE (VLIQ, RPROPS_UVLIQ )

EQUIVALENCE (VLIQS, RPROPS_UVLIQS)

EQUIVALENCE(B(1), IB(1) )

C

#include "pputl_ppglob.cmn"

#include "dms_maxwrt.cmn"

#include "dms_plex.cmn"

C DECLARE ARGUMENTS

C

INTEGER IDXSUB(NSUBS), ITYPE(NSUBS), INT(NINT), IDS(2),

+ NBOPST(6,NPO),IWORK(NIWORK), IDX(NCOMP), INTR(NINTR),

+ IWR(NIWR), NREAL, KCALL, KFAIL,

+ KFLASH, NRL, NRV, I,

+ IMISS, KDIAG, KV, KER,

+ DMS_IFCMNC, LMW, LMWI

C

REAL*8 SOUT(1), WORK(NWORK), STOIC(NC,NSUBS,NR),

+ RATES(1), FLUXM(1), FLUXS(1), RATCAT(NTCAT),

+ RATSSA(NTSSAT),Y(NCOMP), X(NCOMP), X1(NCOMP),

+ X2(NCOMP)

C

REAL*8 RATALL(NRALL),USERV(NUSERV), REALR(NREALR),

+ WR(NWR), RATEL(1), RATEV(1), XCURR,

+ XMW(NCOMP_NCC),B(1), TEMP, PRES,

+ RGAS

C

REAL*8 REAL(NREAL), RMISS, XLEN, DIAM,

+ VFRAC, BETA, VVAP, VLIQ,

+ VLIQS, VMXV, DVMX

C

REAL*8 NCARIN, NCARGF, NO2, NCO,

+ NH2, NCO2, NH2O, NCH4,

+ NN2, NH2S, NC6H6, NTOTG,

+ NCARB, NSULF, MASH, YO2,

+ YCO, YH2, YCO2, YH2O,

+ YCH4, YN2, YH2S, YC6H6,

+ YASH

C

REAL*8 CCARB, CO2, CH2, XC,

+ DP, VOID, RHOCOA, VBED

C

REAL*8 PO2, PCO, PH2, PCO2,

+ PH2O, PCH4, PN2, PH2S,

+ PC6H6, PAMBI, PT, T,

+ PH2OEQ, PCO2EQ, PH2EQ

C

REAL*8 RCR, Z, FW, E,

+ KFILM, KASH, KOVER, K,

+ KH2O2, RCARO2, RCARH2O, RCARCO2,

+ RCARH2, RH2O2, RCOH2O

C

请大神指教，万分感谢

18562317750 · 发表于 1970-1-1 08:00:00

整型变量与实数变量选取原则是什么？例子中指的都是什么意思？

18562317750 · 发表于 1970-1-1 08:00:00

#include "pputl_ppglob.cmn"
#include "dms_maxwrt.cmn"
#include "dms_plex.cmn"
#include "dms_ncomp.cmn"
#include "rxn_rcstrr.cmn"
#include "rxn_rprops.cmn"
"这些公共模块都必须列出来吗？

18562317750 · 发表于 1970-1-1 08:00:00

EQUIVALENCE (TEMP,  RPROPS_UTEMP )
   EQUIVALENCE (PRES,  RPROPS_UPRES )
   EQUIVALENCE (VFRAC, RPROPS_UVFRAC)
   EQUIVALENCE (BETA,  RPROPS_UBETA )
   EQUIVALENCE (VVAP,  RPROPS_UVVAP )
   EQUIVALENCE (VLIQ,  RPROPS_UVLIQ )
   EQUIVALENCE (VLIQS, RPROPS_UVLIQS)
      EQUIVALENCE(B(1),  IB(1)       )
采用等价的意义是什么？请大神们指教，万分感谢

18562317750 · 发表于 1970-1-1 08:00:00

{:1106_362:}

18562317750 · 发表于 1970-1-1 08:00:00

{:1106_362:}

18562317750 · 发表于 1970-1-1 08:00:00

大神在哪里？？？

zhangyuan8802 · 发表于 1970-1-1 08:00:00

看不懂。。。

18562317750 · 发表于 1970-1-1 08:00:00

DECLARE VARIABLES USED IN DIMENSIONING
中变量如何选取？请大神指教

18562317750 · 发表于 1970-1-1 08:00:00

#include "pputl_ppglob.cmn"
#include "dms_maxwrt.cmn"
#include "dms_plex.cmn"
#include "dms_ncomp.cmn"
#include "rxn_rcstrr.cmn"
#include "rxn_rprops.cmn"
是指调入的函数吗？选取的原则是什么

刘庆才 · 发表于 1970-1-1 08:00:00

你好，我现在就需要编写Fortran，请问Fortran的这个编写是通用的，还是从哪一步开始就不一样了，如果看到请回复，在这里十分感谢了

ken6666 · 发表于 1970-1-1 08:00:00

感謝分享，非常實用

xiaoxiqiao · 发表于 1970-1-1 08:00:00

Fortran语言属于Aspen Plus的高级阶段，希望有机会能够学习一下

Fortran编写反应动力学

相关帖子