ADR --

- D-12 -
PRDGRAMA BE OWUrACION 2
:c PRCGPAV'A PARA CALCULAR PERDIDAS EE CALOIR SENSIBLE EN TUBERIAS LL.
:C A-CALCR ESPECIFICO DEL GAS CI CAL/t G*)
K~=12(
* 7=77-.
* ~ RITE(6,3)
* CC 2 J=1,IK
* CPCO:O.338-(E5.28/r ) 4 ( 1.18E04/T**2 )
* CPC02=C.368-(82-45/T ),(LI.989E&-4/1**2)
* CPCHL=C.211 (11 .2*T *1.E-4)-(26.84r**2*1.E-8)
* CP .2=O.33R-(E8.78/T)+(1.28EO4/1*,42)
* CP-2C=1. 1O2-(24.6/T*.C.5)+(2.31/l)
:cE-CALCULC DlE PIRCENTAJES PC'R FESC
:1CPV=PCEFCEI.T4JE POR VCLPEI
* FjF2=0.17
* FVCC=C.25
FVCO "=C. C9
FVK2=0. 43!
FVi-2[=C.C2
* FVCH4=C.C2
C PP=PCFCErNTAJE PCR PESC ( GR/PGRFCL-FEZCLA)
* FPI-2=PVH2*?.
* FPCC=FVCC*2E.
* FPCC2=PVCC?*14.
* FPCH4=FVCH4*16.
* FPN2=PVN2*?E.
* FPFZ[=P0I-20*le.
:C. FMGA,'=FE5O ?VCLECULAR CEL GAS (INGF/KWCL-MEZCLA)
-C CPCA =CALOP ESPECTFICC DEL GAS
FMCA !:FPJ2+PFCGfPPCQ24FPCH4+FFN2#PFH2C
C C -CALCULC DEL CENSI CAE CE GAS ( GF/ HE1RO CUBICC)
RCf-4=R /I
R N 2= 9/?
FH 2 =R II E.
* FCAS=R/P GAS
CGAS=1. /(RGAE*T)
FC I=120 ()
CAFI:875CCO.
C C-CA LCLLC D E PER CICAS C E C AL CR P'C AL VETRC GFA )K
I AP =2 93.
'C AKAI EL=tCAL/I-*1*C
t K AI!L =0.134
EAISL=fi. 5E-!1
C 1 =' . 12 7
CEXT=(2*EAISL )+DI
I-I NT 4e8C.
FE XT. 18 . 15-
AINT: 3. 14 16 a EI
* AEXT=3.141f6*EEXT
* ~ F3=1 ./(AEYT*I-EXT )
* M4ASA =721.
* CAL0P=(TtAVE!-)/(R1+R2+F3)
WHP ITE ( 6 lV ) J oT PP VG A vC FGAS DGAS FLC6C ALO0
* JT=CALOR/C AMAEA*CPGAS )4
* 2 CCNT INU E
* 'X,51CALCF)
1C FORFMA(42XF5.O2XPF.2 2X .FE.2v2XPF4 .2,2XF7. 2 2X,F7. 1)
*E T L
* ~ NIE