ZMAIN_ FORTRANSTACKENDBSSEENDBSS_BSSENDDATAEDATACONSTCOMADSDATA_DATABEGDATANULLFAR_BSS__FBSSLARGEL~CAAA$AL~CAAB$AL~CAAC$AL~CAAD$AENDCODEC_ETEXTCODEZMAIN_DGROUP0@BH՘```Pv`GhØh ǘH DH ݘHcHHHT {ZZMAINZMTP-2ZMTPX-7ZDATAZINITZPEAK/ZPVT"ZPSAT?ZTSAT!ZVPT8+ŒyASMGQQVASGQQASNGQQCDDDQQCDEDQQCSDDQQEXDRQQLNDRQQPRDRQQADPTQQMUPTQQSBPTQQRLDTQQRSDTQQRADTQQRMDTQQRTDTQQRRDTQQRDDTQQRSTTQQDUPTQQCHSTQQABSTQQBLDTQQBSDTQQBADTQQBMDTQQBTDTQQBRDTQQBDDTQQZSDTQQZLTTQQWTNVQQOTDVQQOTCVQQWTCVQQWTDVQQSTPVQQITDVQQOIFVQQITNVQQGLFVQQEREVQQWRFVQQGOFVQQOPENFLCHREAD  D BT9 FT: JT; NT< E LK.FOR \ HDENSE FLUID COMP. LIQUID ͢(SAT. LIQUID <LIQ. VAP. MIX. PSAT. VAPOR آdSUPERHEATED VAP  ?(/////, 12X,'*******************************************************',/, 12X,' Generalized Three Parameter ( Tr, Pr, W )',/, 12X,' Compressibility Factor Tables',/, 12X,'*******************************************************') (///, 12X,'# Input Contents',/, 12X,'--------------------------------------------------------',/, 12X,'1) Tr,Pr,W Compressibility Factor, Enthalpy Correction',/, 12X,' Entropy Correction, Fugacity Coefficient',/, 12X,'2) Tr, X,W Generalized Saturation Table',/, 12X,'3) Pr, X,W Generalized Saturation Table',/, 12X,'4) describe the variables',/, 12X,'0) exit',//, 12X,'enter your choice (0,1-4)') (/////, 5  12X,'Description of Variables',/, 12X,'--------------------------------------------------------',/, 12X,'Tr : reduced temperature Pr : reduced pressure',/, 12X,'W : acentric factor X : quality ( 0 <= X <= 1 )',//, 12X,' Z : compressibility factor',/, 12X,' (H*-H)/R/Tc : enthalpy correction',/, 12X,' (S*-S)/R : Entropy correction',/, 12X,' ln(f/P) : Fugacity Coefficient') (12X,'enter Tr, Pr, and W') (12X,'enter Tr, X, and W') Ӡ@ :(12X,'enter Pr, X, and W') wUWV3PPBPP3PPnP^P!P3PPvPvx- uvx- t3PPPP!P3PPzPPPɜhV-V,).V-3V,8^V-CV,MRV&_c{πV-υV,ǒϗV-ϜV,ǩϮV-ϳV,V-ʍV%ލV%򍓠3PPPPK3PPPP3PPPP3PPPP3PPPF P "*2:BJRZ3PPPP3PPPn P3PPPP3PPP`P bjrz3PPPPzV% V%.V%3BV%GVV%[jV%o~V%ă̒V%ė̦V%ī̺V%̿V,̍V-V,V-V,V-V,V-V,+0V-5DV%IXV%]lV%q̀V%Ņ͔V%řͨV%ŭͼV%V%ՍV%V% V% V%%4V%9HV%M\V%apV%uV,Ƃ·V-ΌV,ƙΞV-ΣV,ưεV-κV,ǍV-эV%V%V% V%!0V%5DV%IXV%]lV%qπV%DžϔV%ǙϨV%ǭϼV%V,΍V-V,)45!6!788\9m:p;<=?+@?AVBVCmDEFJKLMNOPTUVWX-Y0Z2[5^5_5`Ia`bwcefghijlKmbnyoqf3PPP P3PPPP3PPP`PBJRZ3PPPP3PPPN PP>Cukh>Pt[~&&U- uvV~ W~Wvx- t~&P3PPP~&P3PPP~&P3PPP~&P3PP`P~&P3PPP~&P3PPP~&P3PPP~&P3PPP~&P3PPF Pn V-V, %V-*V,7CV-HV,UZV-_V,diV/o|ͨV.ŭűύV-V,V-V, V-V,&+V-0?V%DSV%XgV%l{V%ƀΏV%ƔΣV%ƨηV%ƼV%ЍV%V%V% V% V,38V-=V,SXV-]V,puV-zV,ǍϒV-ϗV,ǪϯV-ǴV%ȍV%܍V%Ѡr  "*2:BJRZ~&P3PPP~&P3PPn P~&P3PPP~&P3PP`P bjrz~&P3PPP~&P3PP P~&P3PPP~&P3PP`PBJRZޜ9V% V%.V%3BV%GVV%[jV%o~V%ă̒V%ė̦V%ī̺V%ĿV%ӍV%V%V,V-V,+0V-5V,HMV-RV,ejV-o~V%Ń͒V%ŗͦV%ūͺV%ſV%ӍV%V% V%V%#2V%7FV%KZV%_V,rwV-|V,ƏΔV-ΙV,ƬαV-ζV,ɍV-ӍV%V% V%V%#2V%7FV%KZV%_ (4X,71('-'))(4X,'*** WORK SHEET ***', 7X,'Z',4X,'(H*-H)/R/Tc',7X,'(S*-S)/R',8X,'ln(f/P)')( 4X,'< #0 + W * #1 > ',F8.4,3F15.4,/, 4X,'#0 : simple ',F8.4,3F15.4,/, 4X,'#1 : deviation ',F8.4,3F15.4) ( 4X,'< #f + X * #fg > ',F8.4,3F15.4,/, 4X,'#f : sat. liquid ',F8.4,3F15.4,/, 4X,'#fg : difference ',F8.4,3F15.4,/, 4X,'#g : sat. vapor ',F8.4,3F15.4) (4X,'sat. liquid ', 7X,'Z',4X,'(H*-H)/R/Tc',7X,'(S*-S)/R',8X,'ln(f/P)')(4X,'sat. vapor ', 7X,'Z',4X,'(H*-H)/R/Tc',7X,'(S*-S)/R',8X,'ln(f/P)')( 4X,'C) continue P) print the work sheet',/, 4X,'enter your ch24 oice (C/P)') E~&P3PPPjvx- t3PPP PzPᗃ6 vFV3PPP Pz3PPPPP>Pt~&&U- uvV~ W~Wvx- t~&P3PP PzPᗃ6 vFV;&V%V%(V%-RuV%V,V-%V$*V,5} QI?R!u?Tt$?I+I>Xu3PPPPP~ H V-3 ,$@@333333?pW^_] V$V,zZMAIN`|UWV~  , ?@ư>Mb@? D333333?333333?u)~~&&U- u ~ # T@@M4%$^~ V VV V(V$ d~߿yq?;` j7-:?҃'y?S+,~ 4~<^_]z IzZDATA`q|1U(WV^Dv2L-^TV+h$ &OYM?NPKS8?4}?wBCv2\^2~&&U- uB2V #V<$ ?@&t r3d(]ިuS!@s%dn?.a9镗F@n@Q7@78A@`&`J#A@{0H @@@|t2l2d^@222^^v~W:PBPJPRPZPbPj^vvVjWFP2~&&U- t2PQVR2QR^S222222vv'V  VVV!V&)V.1V9V@CV HKVPSVX[V`cVhkVpsV{VẳVĘĝĢħĬı̶^Ļ̾V ÌVˍVӍV VVV %.V 38AV FIV NQVVYV ^aVfiVnV svV {~VŃ͆Vŋ͎V͓V ͛V ŠͣVͨV ͰV ŵ͸VK @@@3>2PQVRr2vؚzJ^.2PQVR2QR^S222222vv2PV V V #V (+V3V 8;V@V EHVMPVUXV ]`VehVmpVxVĀą̎V ēĘ̡V Ħ̩V Į̱VĶ̹V ľVƍVV ӍV ۍVVVV V VV V VV "%V*'t w m򊶌u@>?Ou?(@1!S1cS+iZ`t@?`(@ ,5@`+Y @ @@UFmQVR2vܜ3 V V V!V &)V.V 36V;>VV8;DGPRTWWW|~ .;MZ\jj ~!"#'();*S@ABJCDEFgvFPNQJ^~&&U- t2PQVR2QR^S22 2222ɜV VV"V(V -0V8VTYbV gluV z}V Ă̅VĊ̍V Ē̕VĚ̝V̢V ħ̪V į̲Vķ̺VĿVV  @@@Q:zvv"2PQVR2v2PQVR2QR^S2:2B22J22vRvZ2P QVR}V VV V !V&V +.V38AV FIV NQVYV ^aVfV knVsvV~ă̌V đĖ̟V Ḩ̂V Ĭ̯VĴ̷V ļ̿VčVV эV ٍVVVV V VV V VV #V(- , b?@Hz>Mb@?i*2v2vFPNQ"JV V VV  V%V *-V25V:=V BEVMV[VaV ?J^ ^_]E V VzZINIT`7|/UWV~W~WPPPbb~&&U- tvbvste8#^(-5:Y^fiV nqVyV~̄V\ ? H~WPP~WPPPPPP"br7& $).3^8;>V $?j5j vbvst!rV V!V&)V.1V8=EHV MPVUXV]`VehVsxĀ̃V Ĉ̋V̓VĘ̞V\ ,?;~WPP~WPPPPPP"7 $).3^ 4INCORRECT INTERVAL OF SEARCHGbr7$j5,j ~WPP~WPPPPPP"VV #&V+.V36V;>VEJRUV Z]VbeVjmVruV}ĂďĔĞģĨĭIJķ̼^ƍ P?٠`~WPP~WPPPP PP" vbvvȜ5 $).3^8;V @CVKVPVVΔGH^_`abcdeg%h%i'z/}V~cp:<Iqqttw*,9aadddqc3PPP4PP~WPP~WPPPPPP"vbvvblV*V#V( #V (+V03V8;VEJTY^chmr^wzV ̂V̊Vď̕VĜġĩĮ2#Z {Z,q+?zm@ Ll[)( M ['@Ƣ0"@l8|¸A'?@h9Ѩ@Š4 "?R!u?@@@ v~zw~~ ^_]>C V  V%V*-V25V :=VBVJVRUVbmMzZPEAK/`6|?UJWV^ *r~*K^ R*^ ZRVFPbRPJQVRRQBR^SRQ:R^Sb*RRv֚^ҌFԚv:Zv*^ΌFКb^ʌF̚v֚ ^ƌFȚvBZv*(^ŒFĚ^^b0^Fv֚8^F˜, V+1V69V AVFIVNWV]gluV z̈V čĒ̛V Ġ̣V ĩ ̬Vı̴V Ĺ̼VVVVׄ VV V VV V VV 'V,V 14V : FVNV T `VeV mpV uVzV ͂V͊Vŏ͒VŘ ͤVͩV ͱVͶV ;VVV ͍V ք VV Vf r?Hz> X333333?&?!vJZV V VV V@ `?ɠ^a!v*@^FjjVFP~^_] d.V V V#V (V -V 25V:CVzZPSAT?|`|!UWVXz`^ P~ W~W?^ v~[ $'V ,/V47V?VDS^X[V `cVkVpsVx{V ̀V̈VĐ̓VA ?@†=?:Uc?Mjh?My7?0 9ߡ(?(ĔHQ?04D ?8p ?@{>?8H6 ?ȢP:a%?Xnuɩ?ɢ`h0+~N?p"4ߥ?xI?^fM>Ç5< ? Y?(L >viƢ?sV-?#̘5ή? l`q8?R"sp^^v~s.rr^ ^ ^_] &EV VVV &V+V3V;>VEHKVU[VekVzZTSAT!`|-000P*557?Xcft!!!!!!!!!"2"T"l""""""""""&"U$WV~*&&U؉^FVF؉^F؉^FVF(؉^FF8؉^FFH؉^FFX؉^FFh؉^FFx؉^FF؉^ތF؉^FVF؉^F&^..^6^">>^"FF^"NN^"V^.6^6^f^n&>vvvVFPv^̜!0 ;DVP [aVfu Ā̉Vĕ Ġ̦VIJ ĽVτ ڍV V V& 17VC NTVYh s|Vň œ͙V͡VͦVͫV ŰͳVŸͻV VȍVVVV VV VVV VVV %V*-V25V =VBEV JMVRV WZV _bVgV loVtwV|V Ƅ·VƌΏV ΗVΜV ơΤVƩάVƱδV μVVɍVэV ٍVVVVVV V l\ h@@@@@@@@@@@(%^"f>nV6>vv^^^^"^&.h6~p6~^"x>V6>&>v^^^"^^^"f>nVGV V VV !V &)V.V 36V ;>VCFVNV SVV[V `cVhV mpVxV̀V̈V̐V̘Vĝ̠V ĥ̨Vḭ̆V ĵ̸VĽVV ʍVҍVڌV VVVVV V"V '*V/2V7V &>&>v^ ^>^ ^ oV VV V!$V ),V14V9v^r~^SFY`V  VVV!V &)V.1V69V>AVFIVNQVVV [^VhkVu{4 @@@@@@:)P^v^^"f>nV^^.~.~^^"^^>^V(V VVV $V)V .1V 69V>AVFV KNV SVV[^VcV hkVpsV{VĀ̃V Ĉ̋V̓VĘ̛V Ġ̣VĨ̫V̰V ĵ̸VĽVŌV ͍VՍVݍVVV V VVV "%V-V25V:V ?BV GJVRVWZV_V dgV loVtV y|V, ?@Hz>Mb@?*^^^^^^^^^^^^^_](rAV VVV$V)V1V9V>V FVNVSV[VcVhVpVzZPVT"j`[|58+UWV~.WPPPPPPX#(-^l8"9":#;3#<[#=x#>#?#@#A#B $C&$DN$Fk$G$H$I$J$K$L$MI%N~%O%S%Ue&W&X&Y&Z&\'^'a(c(g)h%)i0)j3)s)w)x)y&*z3*{**++.+.+0+8+ri+^"rgue^*rUuS~&&E~&~.WP~&W~"W~W~W~W~W~W~ W"C~&&U- to~.W~"WPPP~&~.WP~&W~"W~W~W~W~W~W~ W"^*v^&1^&^&^&yst^&~.W{ VV6Cp^ďĔĦīİ̵^Ľʍ^VV$V),V 14V6^*v~v>^&RV V VV&V.V8>VHNVX^VfVkVpV xVĀ̃V Ĉ̋VĐ̓V̛Vĥ^׍V VVVVVV %V*-V25V =VBVJVRUV_bV jV, N?@R!u?{Gzt? (1X,'*** WARNING FROM ZMTP ***')(1X,'T = ',1PD15.7,' OUT OF RANGE',/, 1X,'T = ',1PD15.7,' IS ASSUMED') (1X,'P = ',1PD15.7,' OUT OF RANGE',/, 1X,'P = ',1PD15.7,' IS ASSUMED') E1v~wX^&>^&^&^&FFv^_],>JV VVV#&V.V6V;>VFVKNVSV X[V`cfVzZVPT8+`_|M-2UWVvxvPzPPPPPPvxŜ%  %*/49^?E/./1/3/A/A/l////////00=0M0u0w0w00000000 0 0 0 0111>1L1N1\1\1t1112 2#2#2%29-2:B2;j2b{v2vPzPPPPPP^Bv_3PP PP3PPdPP^B~Bm^Bv]3PP PP3PPdPP^B~B^>Nr_3PP PP3PPdP6P^>z~>zm^>v]3PP PP3PPdP6P^>~>^BVr~6&&EP~BW~:W?^>v~nvl3PPPP^> $^.1V@EV-JV,W\V-gVlV%q̀V%̅V,čĚ̠Vį̴V-̹V,ƍV-VV%V%V, V V-%V,27V-BVGV%L[V%`V,hu{VŊ͏V-͔V,šͦV-ͱVͶV%ŻV%V,׍V^VV$'V,V4VCu~6&&E!V%V, V/ (/, 1X,'*** CLOSE TO THE SATURATION STATE.',/, 1X,' Pr = ',1PD15.7,/, 1X,' Sat. Pr = ',1PD15.7,//, 1X,'C) cancel to choose saturation table',/, 1X,'G) go',//, 1X,'enter your preference (C/G)') Р5  >Gu^>v~6&&EL^>v~6&&E-~6&&E3PPP.PvxvP~>WlP~BW~"W~W~W~WtP|P~6W8+vx<V8;VdV*mrV#wV(ĀĆċĕijĸ^ȍ΍<v2C2D2E2F2G 3H3I33Jn3Ky3Ly3M3N3O3P3Q3R4SI4TT4XT4Yd4Zr4[u4\4^4_4`4a5b5c5d5e!5f#5g%5h'5i'5j'5k'5l75mE5nV5od5pf5qt5r5s5t5555;5vP~>WP~BWPPPPtP|P~6W8+^"f^^f^^f^ ^f^^:^x $).8^=@V HVMPVXV]`V hVmpVxV}̀V ̈Vč̐V̘Vĝ̠V ̨Vḭ̆V̸VVϠ$ ?@R!u? (1X,'*** WARNING FROM ZMTPX ***') (1X,'X = ',1PD15.7,' OUT OF RANGE',/, 1X,'X = ',1PD15.7,' IS ASSUMED') (1X,'T = ',1PD15.7,' OUT OF RANGE',/, 1X,'T = ',1PD15.7,' IS ASSUMED') (1X,'P = ',1PD15.7,' OUT OF RANGE',/, 1X,'P = ',1PD15.7,' IS ASSUMED') (1X,'IOPT = ',I3,' NOT ALLOWED',/, 1X,'IOPT = ',I3,' IS ASSUMED') ̠6^"^2^:^^^.^:^ ^^*^:^^^&^_]@E=VVVV V(V0V8V@VHVPVXV`VhVpVazZMTP-2`b|-7UWVPPPPPPPPPPPPPPĞva3PP"PP3PPdP*PĞľpĞv_3PP"PP3PPdP*PĞľľ&&U- tĞva3PP"PP3PPdPPĞľpĞv_3PP"PP3PPdPPĞľĞra3PP"PP3PPdPPĞľpĞv_3PP"PP3PPdPPĞľľ&&U- ty&&U- th3PP"PP3PPbPVPľ&&URP66ľ&&EԜ  %*/49^?EJOTY^chm^x{VĊ̏V-̔V,ġ̦V-̲V̷V%ļV%V,ٍVV-V,V-$V)V%.=V%BV,KqtVŃ͈V-͍V,Ś͟V-ͫVͰV%ŵV%V,ҍVV-V, V-V"V%'6V%;V,DUXVglV-qV,~΃V-ΏVΔV%ƙΨV%έV,ƶčVٍV-V,V-VV% V%V,(W]joV-tV,ǁφV-ϘV!ǞǢϥV!ϪV,5#6C6c666667#7%7-7B7j7v77778 8 878s88888889909l9x9x9{999999:P:\:\:\:::::ˠ:ľ&&U- uĞrt1ľ&&U- tĞstľ&&EľPPPľWPPPPPP"~B~>~:~6~"~~~ľPPPľWPP PPPP"$ ,4. VEKVjpuzĆĎēĘģĨĭIJķļ^ɍԍߍ %*/;CHMX]bglqv^{ŀňōŕŚŢŧJ Sa<<D LTľ&&U- uľWľWľ (-  W<W?ľWľWľW!PľW\PdPSP/Ğ\v\Ğľ&&EPPlPľW~BW9^^$*/:?DI^TWV^cqwVċĐĕ [=~6W~>W~:WPPľW8+PľW\PdPWP/Ğ\v\Ğ3^%+0;@EJ^UXV_drxV::C;R;^;k;w;;;;;;;;;<< <,<d<q<~<<<<<<<< < < < = ==#=B=R=_=a=p=p====== >!>">t.>ľ&&EPPtPľWP_ % _@>4P$P,PPPľW8+PľW\PdP[P/Ğ\v\Ğľ&&EPP|PľW~"W~W~W~WPPľW8+PľW\PdP_P/Ğ\v\Ğľ&&EPPPľW<PTPDPLPPPľW8+~W^6<^"^D^^L^^ T^^^B^2$^>^.,^:^*~W^&Ğ^2^B^rĞ^^"^RĞ^.^>^nĞ^^^NĞ^*^:^jĞ^ ^^JĞ^^^F~FW^f^R^r^b^N^n^^^J^j^Z^F^f^VĞ^b^rĞĞ^^ ^%+0;@EJ^SYV`esyVčĒėĶĻ^̍ҍ׍^V  V49>INSX]bm^}VłͅV ͍VŒ͕V͝VŢͥV ͭVŲ͵VͽVV VҍVVV VVVV VVV"%V -V25V=VBEV MVRUV]VmVvV~VΆVΎVΗVΟVΧVίVθVVVVVVVVVV VVV#V+V3V$%>(c>*o>+>,>->.>/>0>1>2 ?4?55?6F?7S?8U?9d?:d?;s?>?B?C?D?G?H@I!@JA@Ka@L@M@Q@R@S@TAU5AVVAWwAXA\A]A^A_A`Ba*BbKBclBd|Be~BFt