Fortran编写反应动力学

18562317750

求助：    这些代码都是什么意思呀？变量该如何选取？  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

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

18562317750

#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

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

{:1106_362:}

18562317750

{:1106_362:}

18562317750

大神在哪里？？？

zhangyuan8802

看不懂。。。

18562317750

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

18562317750

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

刘庆才

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

ken6666

感謝分享，非常實用

xiaoxiqiao

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