Design og modellering af metanolanlæg til VEnzin-visionen Bilag
Design og modellering af metanolanlæg til VEnzin-visionen Bilag
Design og modellering af metanolanlæg til VEnzin-visionen Bilag
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>VEnzin</strong>.for<br />
c:/dna/source/<br />
CA 4: Carbon monoxide (CO)<br />
CA 5: Nitr<strong>og</strong>en oxide (NO)<br />
CA 6: Carbon dioxide (CO2)<br />
CA 7: Steam (ideal gas) (H2O)<br />
CA 8: Ammonia (NH3)<br />
CA 9: Hydr<strong>og</strong>en sulfide (H2S)<br />
CA 10: Sulfur dioxide (SO2)<br />
CA 11: Methane (CH4)<br />
CA 12: Ethane (C2H6)<br />
CA 13: Propane (C3H8)<br />
CA 14: n−Butane (C4H10)<br />
CA 15: iso−Butane (C4H10)<br />
CA 16: n−Pentane (C5H12)<br />
CA 17: n−Hexane (C6H14)<br />
CA 18: n−Heptane (C7H16)<br />
CA 19: n−Octane (C8H18)<br />
CA 20: Ethylene (C2H4)<br />
CA 21: Propylene (C3H6)<br />
CA 22: 1−Pentene (C5H10)<br />
CA 23: 1−Hexene (C6H12)<br />
CA 24: 1−Heptene (C7H14)<br />
CA 25: Acetylene (C2H2)<br />
CA 26: Benzene (C6H6)<br />
CA 27: Cyclohexane (C6H12)<br />
CA 28: Carbon (graphite, solid) (C)<br />
CA 29: Sulfur (crystal, solid) (S)<br />
CA 30: Nitr<strong>og</strong>en dioxide (NO2)<br />
CA 31: Hydr<strong>og</strong>en cyanide (HCN)<br />
CA 32: Carbonyl sulfide (COS)<br />
CA 33: Nitrous oxide (N2O)<br />
CA 34: Nitr<strong>og</strong>en trioxide (NO3)<br />
CA 35: Sulfur trioxide (SO3)<br />
CA 36: Argon (Ar)<br />
CA 37: Water (liquid, 1 bar) (H2O)<br />
CA 38: Ashes (SiO2)<br />
CA 39: Tar<br />
CA 40: Methanol (CH3OH)<br />
CA 41: Methanol (liquid, 1 bar) (CH3OH)<br />
C<br />
C Subroutines : COMINF<br />
C STATES<br />
C CLEAN<br />
C<br />
CP Pr<strong>og</strong>rammer : Brian Elmagaard 1997<br />
CP (Bent Lorentzen 1994, Niels Emsholm 1991<br />
CP Lab. for Energetics, DTH, Denmark.)<br />
C***********************************************************************<br />
C<br />
C Including the common "environment"<br />
C<br />
INCLUDE ’ENVIRO.INI’<br />
INCLUDE ’THERPROP.DEC’<br />
C Parameter variables<br />
C<br />
INTEGER ANTLK, ANTKN, MEDIE(4), ANTPK,<br />
: ANTM1, ANTME, VARME(3), ANTEL(3),<br />
: VAREL(ANTST,3),MMVAR(MAXMM)<br />
DOUBLE PRECISION X_J(MAXME,ANTST), PAR(1+ANTST), RES(4+ANTST*2),<br />
: MDOT(3),P(3), H(3), Q(1)<br />
CHARACTER*80 KOMTY<br />
C<br />
C Local variables<br />
C<br />
DOUBLE PRECISION DELP, M1, M3, T2, T3, S, V, X, U,<br />
: XSYN(ANTST), XUD(ANTST),M_BL1,N(ANTST),NTOT,T_SUM<br />
INTEGER I,Compound_clean(ANTST),Nr_clean<br />
CHARACTER*100 K_PAR(1+ANTST)<br />
CHARACTER*500 K_LIG(24), K_BET<br />
CHARACTER*1000 KOMDSC,K_INP<br />
CHARACTER*100 KMEDDS(4)<br />
EXTERNAL STATES,CLEAN1,COMINF<br />
INTRINSIC DABS<br />
INCLUDE ’THERPROP.INI’<br />
C=======================================================================<br />
GOTO (100,200,1,400,400,200) FKOMP<br />
1 RETURN<br />
13/67<br />
19−03−2007