A Computer Program For The Prediction Of4
A Computer Program For The Prediction Of4
46:1039
NOTRE DAME
249-A
NBS TEDQMBMTE 1039
DEPOSITORY
N
NATIONAL BUREAU OF STANDARDS
The National Bureau of Standards' was established by an act of Congress on March 3, 1901.
The Bureau’s overall goal is to strengthen and advance the Nation’s science and technology
and facilitate their effective application for public benefit. To this end, the Bureau conducts
research and provides: (1) a basis for the Nation’s physical measurement system, (2) scientific
and technological services for industry and government, (3) a technical basis tor equity in
trade, and (4) technical services to promote public safety. The Bureau’s technical work is per-
formed by the National Measurement Laboratory, the National Engineering Laboratory, and
the Institute for Computer Sciences and Technology.
James F. Ely
H.J.M. Hanley
1. INTRODUCTION . o v v v v v v v v v o v o v v u s e e e e e e
2. THE ONE-FLUID MODEL AND EQUATIONS . . . . . . . . . . o o .. .
2.1 Extended Corresponding States . . . . . . . . . . ... ..
2.2 Mixing Rules and Assumptions . . . . . .. .. ... ...
3. SUMMARY OF THE CALCULATION PROCEDURE . . . . . . . . . .. ...
4. THE REFERENCE FLUID: EXTENDED EQUATIONS FOR METHANE . . . . . .
5. RESULTS FOR PURE FLUIDS . . . . . . . C e e e e e e e e e e e
6. RESULTS FOR MIXTURES . « « & v v v v v v v v v v e e e e e s
7. CONCLUSIONS . . . . .. ... e e e e e e e e e
8. COMPUTER PROGRAM . . . . . . v v v i vt vt v e e e e v e e s
9. ACKNOWLEDGMENTS . . o & v v v v 0 v v vt v v v e e e e e e e
10. REFERENCES . . . . . . . . . . c e e e e e f e s e e e e s e .
APPENDIX A. TRAPP USER'S GUIDE . . . v v v v v v v v v v v v v W ..
APPENDIX B. LISTING OF COMPUTER PROGRAM TRAPP . . . . . . . . . . .
iii
LIST OF FIGURES
Page
Figure 1. (a) Comparison of reduced density of methane and n-decane
as a function of reduced temperature. (b) Comparison of
scaled viscosity of methane and n-decane as a function of
reduced density . . . . . . . .. ..o 0. .
Figure 2. Comparison of calculated and experimental viscosity of
methane, pentane, decane and hexadecane as a function of
reduced density . . . . . . ... ... e e e e e e e 20
Figure 3. Comparison of calculated and experimental viscosity for
toluene, carbon dioxide, ethylene and isobutane . . . . . . 21
Figure 4. Comparison of calculated and experimental thermal
conductivity for propane, decane, hexadecane, eicosane
and methylcyclohexane . . . . . . ... o o o . . . e e 22
Figure 5. Comparison of calculated and experimental thermal
conductivity for ethylene, 1-hexene, benzene, toulene,
p-xylene and carbon dioxide . . . . . . . e e e e e e e 23
Figure 6. Comparison of calculated and experimental viscosity of
selected paraffin binary mixtures as a function of
reduced density . . . . . . . ... 000
Figure 7. Comparison of calculated and experimental viscosity of
selected aromatic/paraffin mixtures . . . . . . . .
Figure 8. Comparison of calculated and experimental therma
conductivity of selected binary mixtures . . . . .. ...
Figure Al. Block diagram of computer program TRAPP . . . . . . . . . .
Figure A2. Flow diagram of I/0 portion of TRAPP . . . . . . e e
LIST OF TABLES
Reference Fluid Equation of State . . . . . . . . .. ..
Coefficients for Shape Factor Correlations . . . .. ..
Reference Fluid Viscosity Correlation . . . . . . . . ..
Reference Fluid Translational Thermal Conductivity
Correlation . . . . v v v v v v bt e e e
Table 5. Summary of Calculated Results for Pure Fluid Viscosity . .
Table 6. Summary of Calculated Results for Pure Fluid Thermal
Conductivity . . . . ... .. .. e e e e e e e e e
iv
LIST OF TABLES (Continued)
1. INTRODUCTION
Engineering design requires transport properties for heat exchangers,
compressors, pumps and for example, pipelines. Owing to the complexity of
transport phenomena in general, accurate methods for the prediction of these
properties have not advanced to a level comparable to equilibrium properties. In
fact, most engineering calculations of transport properties are based on
empirical correlations which are generally limited to narrow ranges of pressure
and temperature and very frequently to pure fluids. These methods have been
reviewed by Reid, et al. [1].
The purpose of this manuscript is to present a reliable, self-consistent
method for predicting the density, viscosity and thermal conductivity of pure
non-polar fluids and their mixtures. The method is app]icab]e to a wide variety
of chemical types, to thermodynamic states ranging from the dilute gas to
compressed 1iquid and, in principle, the number of mixture components is
unrestricted.
The procedure is an extension of a method [2,3] which was proposed to
estimate the transport properties of natural gas and similar mixtures and is
based on the corresponding states principle and the conformal, one-fluid concept.
It is predictive and requires only the critical parameters, Pitzer's acentric
factor and the component ideal gas heat capacity as input. No mixture properties
or transport data are required. The basic idea is relatively straightforward.
It is assumed that the configurational properties of a single phase mixture can
be equated to those of a hypothetical pure fluid. The properties of this
hypothetical pure fluid are then evaluated via corresponding states with respect
to a given reference fluid.
The theoretical foundation of the approach is well defined for a conformal
system in equilibrium [4]. It is less well understood for a nonconformal system
(i.e., a system in which the mixture components do not interact with the same
intermolecular potential, e.g., polyatomic molecules) and for a system in
nonequilibrium. The assumptions involved in the latter example have, however,
been a topic of recent discussion [5,6]. Nevertheless, we have found by
experience that the method gave very good agreement -- typically less than ten
percent uncertainty -- for the transport properties of liquefied natural gas
(LNG) like fluids (i.e., polyatomic nonpolar species). Further, even though the
procedure in our earlier work was optimized for the C] to Cs hydrocarbons and
common inorganics, it gave acceptable results -- typically ten to forty percent
uncertainty -- for a diverse number of more complex pure components and their
mixtures. These results for fluids which were well beyond the intended scope of
the original model, encouraged us to explore a systematic extension of the method
to more ccmplex systems.
In this manuscript we briefly report the details of the model and results of
the method for the viscosity and thermal conductivity of pure paraffins, alkenes,
aromatics and cycloalkanes in the C1 to CZO molecular weight range and their
mixtures. Carbon dioxide is included in the comparisons as an example of a
common inorganic.
where
oy
= | X 2 = 23
Fn - <M°> fx,o hx,o @)
where the subscript x referes to the fluid of interest, pure fluid or mixture,
and o refers to the reference fluid. M is the molecular weight and To and [N
are defined by the ratios
_ €€ _ yCaC = oCuC
fu,o = Ty and ha,o = VlNg B egley (4)
g, = 15 Voml/2 e el (5)
so
Fn = ‘o/‘a (6)
alen)
mix
= 2 E xigNg (07 (9)
where
where 8 o and ) are the so-called shape factors [9,10] which are functions
> * *
of the acentric ?;gtor w and of the reduced variables Ty and V, where the
superscript "*" indicates reduction by the critical point value.
In principle, the shape factors can be determined exactly for any pure fluid
with respect to a reference fluid by simultaneous solution of the conformal
solution equations [8]. By performing this solution one could ensure that the
pure fluid a maps exactly with the reference fluid on a pVT surface via the shape
factors. However, it is much more convenient to have some generalized analytica
relationship for © and ¢. Leach and Leland [9,10] have obtained such relaticn-
ships for the pure normal paraffins C] - C]5 with essentially a methare
reference fluid. Their results are generalized as follows
I |
fx,o - hx,o % zs: %% me,o hua,o (21)
2
n -
Moo= (Z Z 4/3 o me1/2 o us)
X, Xg hmB /2 -1 ,-8/3
fx,ohx,o (23)
and
The combining rules are needed finally and these were selected to be
1/2
faB,o (fa,o ffi,o) a- kaB) (25)
- 1/3 1/3
hmB,o - 8 (h hS, ) a- laB) (26)
and
oo (29 1
cql/2
n X,0 X Zc
v 0
where for a mixture Zi = 2: va; and ¢ = 1.5. This expression has a basis
in the Enskog theory in that the density dependence of the viscosity is strongly
dependent on the derivative (dp/dT)v. The detailed functional forms and
coefficients for eq (28) are given in table 3. Finally, the translational
reference fluid thermal conductivity is given by
where
400~ o n-Decane
— Methane
L
w A
o
P -
o n-Decane
Methane
<
o 0.8
w
o.
= 0.6 )
w %
| S — AN
a (1a) ioo
w |
O 0.2 L Ll
2 1 2 Rs3
w
[+ 4
REDUCED DENSITY, p
Figure 1. (a) Comparison of reduced density of methane and n-decane as a
function of reduced temperature. (b) Comparison of scaled viscosity
of methane and n-decane as a function of reduced density.
9
Table 1. Reference Fluid Equation of State
(p, atm; p, mol/L; T, kelvin)
9 5 2
p = T oa,m e+ a (1) o217 &1
n=1 n=10
RT
NyT + N2T1/2 + N3+ N4£T + Ng/T2
NgT + Ny + Na/T + Ng/T
NygT + Nyq + Ny /T
NIS/T )
N17/T2+ N18/T
Nyo/T
19 2
3
NZO/T2 + Nzl/T4
No 22 /T 2 + Nyo 23 /T 3
Nog/TO
24 2
+ No 25 /T 4
N, /TC + Noo /T
26 2 27 3
Noo/TE + Noo /T
28 2 29 3 4
N3U/T + N3]/T + N32/T
10
Table 1. Reference Fluid Equation of State (Continued)
i/Ni 1/Ni
1 - 1.184347314485E-2 17 1.071143181503E-5
2 7.540377272657E-1 18 - 9.290851745353E-3
3 - 1.225769717554E+1 19 1.610140169312E-4
4 6.260681393432E+2 20 3.469830970789E+4
5 - 3.490654409121E+4 21 - 1.370878559048E+6
6 5.301046385532E-4 22 1.790105676252E+2
7 - 2.875764479978E-1 23 1.615880743238E+6
8 5.011947936427E+1 24 6.265306650288E -
9 - 2.821562800903E+4 25 1.820173769533E+1
10 - 2.064957753744E+5 26 1.449888505811E-3
n 1.285951844828E-2 27 - 3.159999123798E+1
12 - 1.106266656726E+0 28 - 5.290335668451E-6
13+ 3.060813353408E-4 29 1.694350244152€-3
14 - 3.174982181302E-3 30 8.612049038886E-9
15 5.191608004779E+0 31 - 2.598235689063E-6
16 - 3.074944210271E-4 32 3.153374374912E-5
Y = 0.0096 R = 0.08205616
n
Table 2. Coefficients for Shape Factor Correlations
a = 0.090569 a, = 0.394901
b‘ = -0.862762 b2 = -1.023545
¢ = 0.316636 ¢ = -0.932813
d1 = -0.465684 d2 = -0.754639
12
Table 3. Reference Fluid Viscosity Correlation
$ o83
n=1 "
(B = bk bylby - an(T/b,)22
An = exp [a, + aZ/T] {exp [(a3 + a4/T3/2) DO']
4 b ¢4
-1.0239160427E+1 1.6969859271E+0 2.907741307E+6
—
-1.445911210E+1
O
2.037119479€-1
©
13
¢ 3/2
X, A = 1- D
f
(Sae
T
LC (31)
X,0 X z
Vx X
The detailed functional forms and coefficients for eq (30) are listed in
table 4.
14
Table 4. Reference Fluid Translational Thermal Conductivity
Correlation
A'm = B
AB(T) = by + by - an(1/b,)1?
AN = exp [a1 + az/T] {exp [(a3 + a4/T3/2) 00'1
-7.1977082270E+0 -0.252762920E+0
=
8.5678222640E+1 0.334328590E+0
N
1.2471834689E+1 1.12
w
-9.8462522975E+2 0.1680E+3
s
3.5946850007E-1
o
6.9798412538E+1
o
-8.7288332851E+2
N
15
Table 5. Summary of Calculated Results for Pure Fluid Viscosity
(AAD = Average Absolute Percent Deviation;
BIAS = Percentage Bias)
16
Table 5. (Continued)
17
Table 6. Summary of Calculated Results for Pure Fluid Thermal
Conductivity
(AAD = Average Absolute Percent Deviation;
BIAS = Percentage Bias)
Fluid N AAD BIAS
18
Table 6. (Continued)
Fluid N AAD BIAS
19
Methane
10 Pentane -
10— n-Decane 1
10— p-Hexadecane oo
1 1 1 1
1.0 1.5 2.0 2.5 3.0 3.5
REDUCED DENSITY, p
Figure 2. Comparison of calculated and experimental viscosity of methane,
pentane, decane and hexadecane as a function of reduced density.
20
T T T T
=10 -
Carbon Dioxide
10+ —
%
py o
=
~ -10 —
=o 10 Ethylene .
& oo
'o o | o 000 P
[}
=° -10f
10 R
S 104 but
isobutane .
o- " .
o o
° o @Ooo;flo
-0 >% ogg o@o08%0 |
-20F 0000y .
-30 | 1 1 Oi
1.0 1.5 2.0 2.5 3.0 3.5
REDUCED DENSITY, p
21
20 Propane o
10 o © T
00
o
-10|- -
10~ N-Decane N
0
10k | P
T
N-Hexadecane -
T
-
o
T
10~ N-Eicosane T
L 1
T T
101~ Methylcyclohexane )
I |
1.0 2.0 3.0
REDUCED DENSITY, p
Figure 4. Comparison of calculated and experimental thermal conductivity for
22
Ethylene
100()‘calc_)‘exp)/)‘exp
10~ Benzene n
10 Toluene
REDUCED DENSITY, p
Figure 5. Comparison of calculated and experimental thermal conductivity for
. c 172
PR n | R f
)Ell L7 a+ R_ (32)
%0\ x Ay T X
oLy 1+ cR
where
= -1 173
LA DA ) (33)
C
and a =0.16129, b = -4,51613, and c = -5.35484. Vmin is the critical
volume of the smallest component in the mixture.
24
It should be noted that for most mixtures, results from eq (32) are very
close to those from eq (29) and in fact X“ is often very close to unity. No
further corrections were made for the mixture thermal conductivity.
Tables 7 and 8 Tist the mixtures, number of points considered and the AAD
and BIAS between experiment and our procedure. Figures (6-8) are typical of the
deviations observed. In general the results are excellent with an average
absolute deviation of approximately seven percent for both transport properties.
An assessment of the method should, however, bear in mind that the data situation
for mixtures is very poor and that an assignment of 5-20 percent on the accuracy
of the mixture data is reasonable.
7. CONCLUSIONS
We have presented a predictive procedure to estimate the viscosity and
thermal conductivity of nonpolar pure fluids and mixtures over the entire range
of fluid states, from the dilute gas to the dense liquid. Extensive comparisons
with data have shown that the transport properties of a wide variety of pure
fluids and mixtures are predicted to within an absolute percent deviation of
about seven percent. Not shown in this paper are comparisons for the density,
which is also predicted and for the dilute gas properties. In general the
density is predicted to better than one percent and the dilute gas transport
properties are predicted to within five to ten percent.
The basis of the method is the one fluid corresponding states concept with
the extended corresponding states approach included. The method is predictive
and requires only the common characterization parameters of the pures as input.
The number of components of a mixture which can be considered is, in principle,
unrestricted.
The application of the methodology described herein to polar fluids and to
molecules with structures which could cause hindered rotation and stearic effects
is under current investigation.
8. COMPUTER PROGRAM
A computer program for predicting the transport properties and the density
of pure fluids and their mixtures has been developed. The program is essentially
identical to that used to generate the results reported here. A detailed user's
manual has been prepared which describes the program input, output and overall
structure and is given in Appendix A. Appendix B 1ists the program.
25
Table 7. Summary of Results for Binary Mixture Viscosity
26
Table 8. Summary of Results for Binary Mixture Thermal Conductivity
27
To
L. Methane/Propane %}% n
o
1 oo(‘qcalc = MNexp )/ Nexp
a0
- Methane/Decane QP°Q?°% B
R
— o o -
00, OC?ooO o
- o
° .
| Hexane/Tetradecane ]
[ ©
I Hexane/Hexadecane 7
Oo S
ooo g
1 1 Il 1
.0 1.5 2.0 2.5 3.0 3.5
REDUCED DENSITY, p
S- 1o Benzene/Hexane )
° %
o
-10|- ° .
8
-20 I I 1 o |
1.0 1.5 2.0 2.5 3.0 3.5
REDUCED DENSITY, p
aromatic/paraffin mixtures.
29
o o [e] f Oo
10 9% o 1
(o] 5
-10}- Methane/ N—Bu[tane | .
20 T T -
10 =
100O‘calc - )‘exp)/)‘exp
-10- Benzene/N—HePtane —
T T
o
=10~ Cyclopentane/N-Heptane
1
20F T T —
N-Octane/1 —Hlexene
(=]
-[}
31
10. REFERENCES
01 Reid, R. C., Prausnitz, J. M. and Sherwood, T. S., "The Properties of Gases
and Liquids," 3rd ed., McGraw-Hi1l, New York, 1978.
[2] Hanley, H. J. M., "Prediction of the Viscosity and Thermal Conductivity of
Mixtures," Cryogenics 16, 643-51 (1976).
Mo, K. C. and Gubbins, K. E., "Molecular Principle of Corresponding States
for Viscosity and Thermal Conductivity of Fluid Mixtures," Chem. Eng.
Commun. 2, 281-90 (1974).
Henderson, D. L. and Leonard, P. J., in "Treatise on Physical Chemistry,"
D. Henderson, ed., Vol VIIIB, Ch. 7, Academic Press, New York, 1971.
Mo, K. C. and Gubbins, K. E., "Conformal Solution Theory for Viscosity and
Thermal Conductivity of Mixtures," Mol. Phys. 31, 825-47 (1976).
6] Evans, D. J. and Hanley, H. J. M., "Viscosity of a Mixture of Soft Spheres,"
Phys. Rev. A20, 1648-54 (1979).
Leland, T. W., Rowlinson, J. S. and Sather, G. A., "Statistical
Thermodynamics of Mixtures of Molecules of Different Sizes," Trans. Farad.
Soc. 64, 1447-59 (1968).
Rowlinson, J. S. and Watson, I. D., "The Prediction of the Thermodynamic
Properties of Fluids and Fluid Mixtures - I. The Principle of Corresponding
States and its Extension," Chem. Eng. Sci. 24, 1565-74 (1969).
Leach, J. W., "Molecular Structure Corrections for Application of the theory
of Corresponding States to Non-Spherical Pure Fluids and Mixtures," Ph. D.
Thesis, Rice University, 1967.
Leach, J. W., Chappelear,P. S. and Leland, T. W., "Use of Molecular Shape
Factors in Vapor-Liquid Equilibrium Calculations with the Corresponding
States Principle," A.I.Ch.E. J. 14, 568-76 (1968).
(L] Hanley, H. J. M. and Evans, D. J., "Behavior of a Nonconformal Mixture via
Computer Simulation," submitted for publication, Int. J. Thermophys., 1981.
2] Jacobsen, R. T. and Stewart, R. B., "Thermodynamic Properties of Nitrogen
Including Liquid and Vapor Phases from 63 K to 2000 K with Pressures to
10,000 bar," J. Phys. Chem. Ref. Data 2, 757-922 (1973).
03] Ely, J. F. and Hanley, H. J. M., "Prediction of Transport Properties.
1. Viscosity of Fluids and Mixtures," submitted for publication, Ind. Eng.
Chem. Fundam., 1981,
na] Ely, J. F. and Hanley, H. J. M., "Prediction of Transport Properties.
I1. Thermal Conductivity of Fluids and Mixtures," in preparation.
32
APPENDIX A. TRAPP USER'S GUIDE
The method is applicable to the full range of densities and temperatures,
from the dilute gas to dense liquid. The required material constants for each
mixture component are the critical parameters, TC, Pes Vc and Pitzer's
acentric factor. The thermal conductivity calculation also requires the ideal
gas heat capacity. No transport data for the mixture or components are required.
The computer program currently has a built in database for the 61 components.
These components and their synonyms are listed in table Al.
Program Description
The program is modular in construction consisting of a sample driver or main
program and a collection of subroutines. Most of the communication between the
routines is accomplished via block common with a few parameters being passed in
the subroutine calling lists. Figure Al shows a block diagram of the program
communication 1inks. The purpose of these routines are as follows:
TRAPP is the main program which inputs the components, temperature, pressure
and compositions. It then makes the appropriate subroutine calls and prints out
the calculated density, viscosity and thermal conductivity.
LIB takes the component names from TRAPP and tries to identify them in the
component library. After a successful identification, it loads the various
material constants in the common block/COMPRP/, initializes the binary
interaction constants to zero and returns. If the component is not identified as
being in the database, it aborts with an error message. LIB utilizes the block
data subroutine LIBSET which loads the common block /LIBDAT/.
DCST takes the input pressure, temperature and composition and calculates
the mixture density via the extended corresponding states model. It uses several
subroutines to accomplish this calculation which are described below. After the
density is calculated it calls the subroutine ECSTX to evaluate the derivatives
needed in the viscosity calculation.
RHOF is called by DCST and makes an initial guess at the reference fluid
density given the equivalent temperature and pressure.
DO is called by RHOF and performs a Newton-Raphson iteration to calculate
the reference fluid density given the temperature and pressure.
PVTO is called by DO and calculates the reference fluid pressure and its
derivative w.r.t. density given the density and temperature.
33
Table Al. Listing of Components and TRAPP Data Base
34
*ddvil Weaboud 4a3ndwod 3o weabeip }0Lg * LY @anbLy
X1823
0LAd
0d
aNodL J0HY 135411
35
ALISA JWY3HL 1830 a1
ddvdl
ECSTX is called by DCST after the density has been calculated. It
calculates the appropriate molecular weights for the transport calculations, part
of the transport correction factors and the derivatives of the equivalent
substance reducing ratios with respect to temperature.
THERMC is called by TRAPP after the density is calculated and evaluates the
mixture thermal conductivity. It calculates the contribution to the thermal
conductivity from the internal degrees of freedom using the routine VSCTY and
ideal gas heat capacity in the text. The routine then calculates the
translational contributions to the thermal conductivity using the routine TCOND
and combines all the results according to eq (12).
TCOND takes the equivalent temperature and density of the mixture and/or
components and calculates the translational contribution to the thermal
conductivity via a corresponding states principle. The procedure used is
described in the text.
VSCTY is called by TRAPP to evaluate the mixture viscosity via a
corresponding states principle. The procedure used is described in the text.
36
normalizes the compositions to sum to unity, i.e., they are internally converted
to mole fraction. If the composition of any component is entered as less than
zero, the program assumes that you want to change the mixture components and
reverts to step A.
(Step D) The program next requests the temperature and pressure in the units
specified previously on one line separated by a comma. If "0,0" is entered the
program reverts to step C. For any other response the program then calculates
the density, viscosity and thermal conductivity and prints the results of the
calculations. The program then reverts to step D. The logical flow of the
input/output phases is shown in fig. A2.
Cautions
The program assumes that the mixture is single phased. If it is not, the
results of the calculations will be meaningless. In addition, if the mixture is
single phased but very close to the two-phase boundary it may converge to a
Tiquid solution when the mixture is actually a vapor and vice-versa. If this
happens, raise or lower the pressure slightly until you get into the desired
phase. Appendix B lists the computer program.
37
, input ]
number of -
components
(NC)
input
component
names
input
component
1.p
T&P>07?
Y
compute
display
P results
38
Table A2. Sample Input and Output
AORROKRKK KKK AR KKK KKK AR KKK KK KA KKK K KKK KKK KKK K KKK
X X
X TRAFF X
* X
X TRANSFORT FROFERTIES FREDICTION FROGRAM X
X x
X BY X
X x
X Je Fo ELY AND H. J. M. HANLEY x
X UsS, NATIONAL BUREAU OF STANDARDS x
L3 NATIONAL ENGINEERING LAERORATORY X
X THERMOFHYSICAL FROFERTIES DIVISION X
X BOULLERy COLORADO 80303 x
X x
X (FARTIALLY SFONSORELD' BY THE OFFICE OF x
X STANDARD REFERENCE DATA) X
X x
* KKK KKK AR KKK KK KKK KKK KKK KKK KKK KKKK KKK KKK *
39
Table A3. Sample Input and Output
AOKKAKKHOROK KR HOK KK KKK KKK KKK KK K KKK KKK KKK KKK KKK KK KK
X £ 3
X TRAFF X
X *
X TRANSFORT FROFERTIES FREDICTION FROGRAM *
X x
X BY X
3 %
X Je Fo ELY AND H. J. X
3 U.8. NATIONAL BUREAU OF STANDARIDS X
X NATIONAL ENGINE I X
x THERMOFHYSICAL FROI ; 3 DIVISION X
X BOULDER, COLORADD 80303 X
X X
X (FARTIL LLY SFONSORED BY THE OFFICE OF b3
X STANDARD RE ENCE DATA) X
X X
b3 KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK Kk X
40
Table A4. Sample Input and Output
KAOKKKK KKK KK KKK KKK KKKKKK KK KKK KKK KK KKK KK KKK KKK KKKk
X x
X TRAFF X
* X
* TRANSFORT FROFPERTIES FREDICTION PROGRAM x
X x
X RY x
X X
x Je Fo ELY AND H. J. M. HANLEY x
X U+S. NATIONAL BUREAU OF STANDARIS x
X NATIONAL ENGINEERING LARORATORY X
X THERMOPHYSICAL FROFERTIES DIVISION X
x BOULDER, COLORADO 80303 X
X x
X (FARTIALLY SFONSORED RY THE OFFICE OF x
X STANDARD REFERENCE DATA) X
X x
X FORKOKKK KKK KKK KKK IOKKAKK KKK KKK IORAOKK KKK KKK KKK K X
NUMBER OF COMFONENTS 7
NAME OF COMFONENT ?
NAME OF COMFONENT P
AR
¢ NAME OF COMFO ?
NAME OF COMFONENT K ENZ
NAME OF COMFONENT ? H28
[LE
42
C PROGRAM TRAPP( INPUT,OUTPUT)
c
C k ok ok ok Kk ok ok kK kK ok Kk kK kK kK kK k kK k Kk khkkkKkKkKkKkk KKk kK
C
C PURPOSE --- DEMONSTRATION DRIVER FOR EXTENDED CORRESPONDING
c STATES ESTIMATION OF VISCOSITY AND THERMAL
c CONDUCTIVITY OF HYDROCARBON MIXTURES.
c
C VERSION G2.3 8/11/80
C
C CODED BY: J. F. ELY
c NATIONAL BUREAU OF STANDARDS
c NATIONAL ENGINEERING LABORATORY
C THERMOPHYSICAL PROPERTIES DIVISION
C BOULDER, COLORADO 80303
C
C kok ok ok Kk ok ok ok ok ok ok ok ok ok kkkkkkkkkkkkkkkkkk**k*
DIMENSION X(20), TA(2), TD(2), PD(2), DM(2), VM(2), TM(2)
INTEGER TUNIT(2), PUNIT(2)
c
COMMON /COMPRP/ NC, ND, NAME(20,7), DPROPS(20,14), DINC(380)
[+
COMMON /MIXDAT/ FX, DFXDT, F(20), HX, DHXDT, H(20), CMX, CMXV,
1 CMXT, ZCX, CORV, CORT
c
COMMON /LIBDAT/ NLIB, NDUM, PROPS(22,61)
c
LOGICAL MIX
C
DATA TA, TD, PD, DM, VM, TM / 0.0DO, 459.67D0, 1.0D0, 1.8D0,
1 1.01325D0, 14.69595D0, 1.0D0, 0.06242795D0, 1.0D0, 2.419D-4,
2 1.00-3, 5.777675D-4 /
c
DATA TUNIT, PUNIT / "K", "F", "BAR", "PSIA" /
c
PRINT 260
PRINT 280
READ *, INOT
IF(INOT.EQ.0) GO TO 015
NC = NLIB / 2
PRINT 270
DO 010 K=1,NC
010 PRINT 290, (PROPS(J,K),J=1,9), (PROPS(J,K+NC),J=1,9)
PRINT 290, (PROPS(J,NLIB),J=1,9)
C
c SEE IF ENGINEERING UNITS ARE DESIRED
015 IU = 1
PRINT 300
READ *, INOT
IF(INOT.EQ.0) GO TO 020
=2
[4
c INITIALIZE PROGRAM PARAMETERS
43
020 X(1) = 1.0
MIX = .FALSE.
44
1 F7.5," W/M-K")
255 FORMAT(" D=",F8.4," LB/FT**3 ETA =",F9.6," LB/FT-HR TC =",
1 F7.5," BTU/FT-HR-F")
260 FORMAT(/6X,48(1H*)/6X,1H*, 46X, 1H*/6X ,1H* ,18X,"T R A",
1" P P",19X,1H*/6X 1H* 46X, 1H*/6X, "% TRANSPORT P",
2"ROPERTIES PREDICTION PROGRAM *"/6X,1H* 46X ,1H%/
36X, 1H* 22X, "BY" , 22X, LH*/6X,, 1H* , 46X , 1H* /6X, 1H* ,8X,"J. F. ELY AND
4H.'J. M. HANLEY",7X,1H*/6X,1H*,8X, "U.S. NATIONAL BUREAU OF STA
5NDARDS" ,5X , 1H*/6X , 1H* ,8X ,"NATIONAL ENGINEERING LABORATORY",7X,1H*
6/ 6X,1H*,8X,"THERMOPHYSICAL PROPERTIES DIVISION",AX,1H*/ 6X,1H*
7, 8X,"BOULDER, COLORADO 80303",14X,1H*/ 6X,1H*,46X,1H%/
8 6X,1H*,5X," (PARTIALLY SPONSORED BY THE OFFICE OF",4X,1H*
9 / 6X,1H*,11X,"STANDARD REFERENCE DATA)", 11X,1H* /
A 6X,1H*,46X, 1H*/ 6X,48(1H*) /1
270 FORMAT(/" COMPONENT NAME",11X,"SYNONYM",7X,"COMPONENT NAME",
1 13X,"SYNONYM")
280 FORMAT(" DO YOU WANT A LIST OF LIBRARY COMPONENTS(0-NO;1-YES) :K")
290 FORMAT(1X,9A4,3X,9A4)
300 FORMAT(/" DO YOU WANT ENGINEERING UNITS(0-NO,1-YES):K")
END
45
SUBROUTINE DCST(PX,DX,TX,X)
Kok ok kK Kk ok ok ok ok Kk ok ok ok ok Kok ok ok KKk kk ok Kk kkkkkkkkk*k
OOOOOOO00OO0OO00OO
CODED BY : J. F. ELY
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
BOULDER, COLORADO 80303
COMMON /REFDAT/ R, PCO, DCO, TCO, ZCO, WO, CMWO, GAMMA, A(32),
* CT(4), cp(4), co(9), cD(4), CE(8), COT(9),
* CDT(4), CET(8)
COMMON /COMPRP/ NC, ND, NAME(20,7), PC(20), DC(20), TC(20),
ZC(ZO) W(20), CMN(ZO) TB(20), CPC(20,7),
* 0MK(190) 0ML(190)
COMMON /MIXDAT/ FX, DFXDT, F(20), HX, DHXDT, H(20), CMX, CMXV,
1 CMXT, ZCX, CORV, CORT
DIMENSION X(1)
LOGICAL MASK(20)
020 FX
HX
DO 040 N =1, NC
MASK(N) = .FALSE.
IF(X(N).LE.0.0) MASK(N) = .TRUE.
F(N) = TC(N) / TCO
H(N) = DCO / DC(N)
040 CONTINUE
SHAPE FACTOR ITERATION LOOP
DO 200 LOOP = 1, 15
SAVE RESULTS FROM PREVIOUS ITERATION
46
DO 100 N = 1, NC
IF(MASK(N)) GO TO 100
K=N*(N-1)/2
GN = CBRT(H(N))
S2 = 0.0
S$3 = 0.0
DO 0BO M =1, N
IF(MASK(M)) GO TO 080
TMP2 = 0.125 * X(M) * (GN + CBRT(H(M)))**3 * OML(K+M)
TMP3 = SQRT(F(N) * F(M)) * TMP2 * OMK(K + M)
S2 = S2 + TMP2
§3 = S3 + TMP3
080 CONTINUE
= HX + X(N) * (2.0 * S2 - TMP2)
FX = FX + X(N) * (2.0 * S3 - TMP3)
100 CONTINUE
= FX / HX
CALCULATE THE EQUIVALENT METHANE DENSITY.
T0 = TX / FX
PO = PX * HX / FX
DO = RHOF(PO,TO)
RECALCULATE SHAPE FACTORS AND CHECK FOR
CONVERGENCE IN FX AND HX
140 DO 160 N = 1, NC
IF(MASK(N)) GO TO 160
TR = AMIN1(2.0,F(N) * TO / TC(N))
VR = AMIN1(2.0,AMAX1(0.5,H(N)*DC(N)/DO0))
WN = W(N)
F(N) = TC(N) * THETAF(TR,VR,WN) / TCO
H(N) = DCO * PHIF(TR,VR,WN) * ZCO / (ZC(N) * DC(N))
160 CONTINUE
TEST FOR CONVERGENCE
oo
200 CONTINUE
FAILURE--ISSUE MESSAGE & RETURN
210 PRINT 300, TX, PX
oo
CONVERGENCE
! !!
220 DX = DO / HX
CALL ECSTX(PX,DX,TX,X)
RETURN
300 FORMAT(/" /DCST/ FAILED TO CONVERGE AT T=",F8.3," AND P=",G14.7)
END
47
SUBROUTINE ECSTX(PX,DX,TX,X)
k ok ok ok ok k k ok k ok ok ok ok k ok ok ok k ok ok k ok ok kkk kk ok ok ok k k Kk
O000000O
REAL MIJ
COMMON /REFDAT/ R, PCO, DCO, TCO, ZCO, WO, CMWO, GAMMA, A(32),
CT(4) CP(4), C0(9) CD(4), CE(B) COT(S)
* CDT(4), CET(8)
COMMON /COMPRP/ NC, ND, NAME(20,7), PC(20), DC(20), TC(20),
ZC(ZO) W(20), CMN(ZO) T8(20), CPC(20,7),
* 0MK(190) 0ML(190)
COMMON /MIXDAT/ FX, DFXDT, F(20), HX, DHXDT, H(20), CMX, CMXV,
1 CMXT, ZCX, CORV, CORT
DIMENSION S(5,3), SJ(5), Z(5), X(1)
EQUIVALENCE (Z(1),F1J), (Z(2),613), (Z(3),M1J)
DATA Z / 5*0.0 /
coo
INITIALIZE
= 0.0
CMXT = 0.0
= 0.0
DCMAX= 0.0
D0 015 I =1, NC
IF(DC(I).GT.DCMAX) DCMAX = DC(I)
015 CONTINUE
DO 020 M= 1,3
DO 020 N= 1,5
020 S(N,M) = 0.0
D0 120 I = 1,NC
IF (X(I).LE.0.0) GO TO 120
K=1%*(I-1) /2
GI = CBRT(H(I))
DO OO M=1,5
040 SJ(M) = 0.
DO 080 J = 1, NC
48
IF (X(J).LE.0.0) GO TO 080
L=K+J
IF (J.GT.I) L =1 +J* (J3-1) /2
GIJ = 0.5 * (GI+CBRT(H(J)))
HIJ = GIJ**3 * OML(L)
FIJ = SQRT(F(I)*F(J)) * OMK(L)
RMIJ = CMW(I)*CMW(J)/(CMH(I)+CMW(J))
Z(4) = 1.0 / RMIY
MIJ = CBRT(HIJ) * SQRT(RMIJ/F1J)
GIJ = GIJ / GI
TERM = X(J) * HIJ / GIJ
DO 06O M=1,5
SJ(M) = SJ(M) + TERM
060 TERM = TERM * Z(M)
080 CONTINUE
THETA = F(I) * TCO / TC(1)
PHI = H(I) * DC(I) / DCO
TR = AMIN1(2.0,F(I) * TX / (FX * TC(I)))
VR = AMIN1(2.0,AMAX1(0.5,H(I)*DC(I)/(HX*DX)))
TEMP = (W(I) - WO) / THETA
Z(1) = 1.0 - TEMP * (CT(2) - CT(4) * (VR-0.5) / TR)
2(2) = TEMP * (CT(3) + CT(4) / TR) * VR
TEMP = (W(I)-W0) * ZCO / (PHI * ZC(I))
Z(3) = 1.0 - TEMP * (CP(1) + CP(3) * ALOG(TR)) * VR
Z(4) = TEMP * CP(3) * (VR + CP(4))
IF(TR.LT.2.0) GO TO 085
(1) = 1.0
2(4) = 0.0
085 IF (VR.GT.0.5 .AND. VR.LT.2.0) GO TO 090
Z(2) = 0.0
Z(3) = 1.0
090 Z(5) = 2(1) * Z(3) - Z(2) * 2(4)
TERM = HX
DO 100M=1,3
SJ(M) = X(I) * SJ(M) / (Z(5) * TERM)
TERM = FX * HX
DO 100 N=1,5
100 S(N,M) = S(N,M) + Z(N) * SJ(M)
CMX = CMX + X(I) * CMW(I)
CMXV = CMXV + X(I) * SJ(4)
CMXT = CMXT + X(I) * SJ(5)
ZC0X = ZCX + X(I) * zc(1)
RBAR = RBAR + X(I) * CBRT(DCMAX/DC(IY)
120 CONTINUE
TERM = 1.0 + S(1,1) - S(5,1)
TRM2 = 1.0 + §(2,3) + §(1,2) - 5(5,2)
DFXDT = 1.0 - TERM / (TERM * TEMP - S(4,1) * TRM2)
DHXDT = S(4,1) * (1.0 - DFXDT) / TERM
TERM = FX * HX**(8.0/3.0)
CMXV = 2.0 * CMXV * CMXV / TERM
CMXT = 2.0 * TERM / (CMXT * CMXT)
DFXDT = FX * DFXDT / TX
DHXDT = HX * DHXDT / TX
49
1.0/RBAR
(0.161290-4.516129*RBAR) /(1.0-5.354839*RBAR)
50
FUNCTION RHOF(P,T)
Kok ok ok ok ok ok ok k ok kK Kk ok k ok ok ok ok okkkkkkk kKKK kKk kK *
COOOOOO0O00O00000
CODED BY : J. F. ELY
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
BOULDER, COLORADO 80303
COMMON /REFDAT/ R, PCO, DCO, TCO, ZCO, WO, CMWO, GAMMA, A(32),
CT(4) CP(4) C0(9) CD(4) CE(B) COT(Q)
* CDT(4), CET(%)
DATA AP / 6.3240720088E+00,-6.7447661253E+00,-2.5239605832E+00,
0. 4188447111E+00/
= PCO
FOP =P / (R * T)
IF (T.GT.TCO) GO TO 080
[
c SUB-CRITICAL TEMPERATURE.
c CALCULATE THE VAPOR PRESSURE. IF T > 170 K,
c USE THE CRITICAL REGION FUNCTION. OTHERWISE
c THE FROST-KALKWARF TYPE EQUATION.
c
=T/ TC0
TAU = 1.0 - TR
IF (T.6T.170.0) GO TO 040
TMP1 = AP(1) + AP(2) / TR + AP(3)*ALOG(TR)
TMPZ = AP(4)/(TR*TR)
PRR = 0.100
DO 020 K = 1, 50
PR = EXP(TMP1 + TMP2 * PRR)
IF (ABS(PR/PRR-1.0).LE.1.0E-6) GO TO 060
020 PRR = PR
C
040 PR = EXP(BP(1)*(1.0-1.0/TR) + BP(2)*TAU + BP(3)*TAU*TAU)
51
060 PS = PR * PCO
C IF P % PS, USE A LIQUID DENSITY. OTHERWISE, USE
[+ IDEAL GAS DENSITY CALCULATED ABOVE.
c
080 IF (P.GT.PS) FOP = 3.0 * DCO
100 RHOF = DO(P,T,FOP)
RETURN
END
52
FUNCTION DO(PO,TO,FOP)
LOGICAL LIQUID
Kok ok ok k ok ok ok ok k ok ok ok ok kk ok ok Kk kkkkKkkkkk Kk kkk kX
00O0OOOO00
CODED BY : J. F. ELY
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
OO0
D1=FOP
NTRY=0
DMAX=3.2E0*DCO
ESTABLISH BOUNDS AND START NEWTON RAPHSON
020 DL0=0.0
DHI=DMAX
D=D1
DO 100 LAP=1,20
CALL PVTO(PX,D,T0,DPDD,FOP)
ocoo
IF(DPDD.LE.1.0E-2) GO TO 120
DP=P0-PX
DD=DP/DPDD
SAVE DENSITY FOR POSSIBLE BISECTION
oo
IF (DP) 040,300,060
040 DHI=D
GO TO 080
060 DLO=D
080 DN=D+DD
KEEP D WITHIN BOUNDS OR GO TO BISECTION
53
IF(ABS(DD/D).LE.TOLERD) GO TO 300
100 CONTINUE
NEWTON-RAPHSON FAILURE. TRY BISECTION
120 NTRY=NTRY+1
IF(NTRY.LT.3) GO TO 130
PRINT 400, TO, PO
400 FORMAT("/DO/ FAILED TO CONVERGE AT TO=",F8.3," AND P0=",G14.7)
STOP
130 IF(T0.GT.TCO) GO TO 160
cooo
IF(D1.LT.DCO) GO TO 140
LIQUID=.TRUE.
IF(DLO.LE.DCO) DLO= DCO
IF(DHI.LE.DCO) DHI= DMAX
GO TO 160
140 LIQUID=.FALSE.
IF(DLO.GE.DCO) DLO=! 0.0
IF(DHI.GE.DCO) DHI= co
54
SUBROUTINE PVTO(PO,DO,T0,DPDDO,FOPO)
OOOOOOOONOO0O0
Kok ok K ok ok ok ok K ok ok ok ok Kk k ok ok ok k ok ok ok kK Kk k ok ok kK k ok kKK Kk K
CODED BY : J. F. ELY N
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
BOULDER, COLORADO 80303
OO0
COMMON /REFDAT/ R, PCO, DCO, TCO, ZCO, WO, CMWO, GAMMA, A(32),
CT(4), CP(4), c0(9), CD(4), CE(8), COT(9),
* CDT(4), CET(8)
55
G(14)=T2*(A(28)+A(29)*T1)
G(15)=T2*(A(30)+T1*(A(31)+T1*A(32)))
D0 010 J=2,9
B(J)=G(J)/(G(1)*FLOAT(J-1))
DO 030 k=1,6
S(K)=0.0
TERM=1.0
DO 020 J=K,6
S(K)=S(K)+F(J)*G(J+9)*TERM
TERM=TERM/GAMMA
S(K)=S(K)/(G(1)*F(K))
P1=0.0
D1=0.0
F1=0.0
D0 050 J=1,9
P1=P1*D+G(10-J)
D1=D1*D+P1
F1=F1*D+B(10-J)
DSQ=D*D
P2=0.0
02=0.0
F2=0.0
D0 060 J=10,15
P2=(P2+G(25-) )*DSQ
D2=D2*DSQ+P2
060 F2=F2*DSQ+S(16-J)
TERM=EXP (-GAMMA*DSQ)
PO=D*(P1+P2*TERM)
IF (P0.EQ.0.0) PO = 1.0E-20
20=P0/(D*G(1))
DPDDO=(D1+TERM* (P2+2 0% (D2-DSQ*GAMMA*P2)))
FOP=F1-(F2*TERM-S(1))/(2.0*GAMMA)+Z0-1.0-ALOG(Z0/P0)
FOPO=EXP(FOP) /PO
RETURN
END
56
FUNCTION VSCTY(DX,TX)
Kk Kk ok ok kK Kk Kk k kK KKk kkkkkkkkkkkkkkkkkkk*
NOOEOO
CODED BY : J. F. ELY
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
BOULDER, COLORADO 80303
OO0
COMMON /MIXDAT/ FX, DFXDT, F(20), HX, DHXDT, H(20), CMX, CMXV,
1 CMXT, ZCX, CORV, CORT
COMMON /REFDAT/ R, PCO, DCO, TCO, ZCO, WO, CMWO, GAMMA, A(32),
* CT(4), cpP(4), co(9), CD(4), CE(8), COT(9),
* CDT(4), CET(8)
IF(T0.EQ.TLAST) GO TO 040
TLAST = TO
T1=1.0/T0
ETAL = CD(1) + CD(2) * (CD(3) - ALOG(TO / CD(4))) ** 2
TRMO = CE(1) + CE(2) * TI
TRML = CE(3) + CE(4) * TI / SQRT(TO)
TRM2 = CE(5) + TI * (CE(6) + CE(7) * TI)
TRMX = EXP(TRMO)
T1 = CBRT(TO0)
ETAO = 0.0
DO 020 J = 1,9
ETAO = ETAO + CO(J) * TI
TI=TI*T1
DENSITY DEPENDENCE IS CALCULATED HERE.
Rl = DO ** 0.10
R2 = SQRT(DO) * (DO / CE(8) - 1.0)
ETAX = EXP(TRMO + TRM1 * Rl + TRM2 * R2) - TRMX
FETA = SQRT(FX * CMXV / CMWO) / CBRT(HX * HX)
CORV = SQRT((1.0 - TO*PSI*AMIN1(0.0,DFXDT))*ZCX/ZCO)*CORV
VSCTY = (ETAO + ETAL * DO + ETAX * CORV) * FETA
RETURN
END
57
FUNCTION TCOND(DX,TX)
OOO
* k k k k k ok k ok ok k k k k k k k k k k k k k k k k k k k k k k k * %
CODED BY : J. F. ELY
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
BOULDER, COLORADO 80303
COMMON /MIXDAT/ FX, DFXDT, F(20), HX, DHXDT, H(20), CMX, CMXV,
1 CMXT, ZCX, CORV, CORT
COMNON /REFDAT/ R, PCO, DCO, TCO, ZCO, WO, CMWO, GAMMA, A(32),
CT(4) CP(A), C0(9) CD(4), CE(K), COT(Q)
* CDT(4) CET(8)
IF(T0.EQ.TLAST) GO TO 040
TLAST = TO
TI=1.0/T0
LAML = CDT(1) + CDT(2) * (CDT(3) - ALOG(TO / CDT(4))) ** 2
TRMO = CET(1) + CET(2) * TI
TRML = CET(3) + CET(4) * TI / SQRT(TO)
TRM2 = CET(5) + TI * (CET(6) + CET(7) * TI)
TRMX = EXP(TRMO)
T1 = CBRT(TO)
CALCULATE THE IDEAL GAS TRANSLATIONAL THERMAL
ocoo
58
040 R1 = DO ** 0.10
SQRT(DO) * (DO / CET(8) - 1.0)
EXP(TRMO + TRML * Rl + TRM2 * R2) - TRMX
[ SQRT(FX * CMWO / CMXT) / CBRT(HX * HX)
5=
-
59
FUNCTION THERMC(DX,TX,X)
* ok ok ok ok k k ok ok kkkkkkkkkkkkkkkkkKkkkxk*k*kKk K
OOOOOOOOOOO00O0O00
CODED BY : J. F. ELY
NATIONAL BUREAU OF STANDARDS
NATIONAL ENGINEERING LABORATORY
THERMOPHYSICAL PROPERTIES DIVISION
BOULDER, COLORADO 80303
COMMON /MIXDAT/ FX, DFXDT, F(20), HX, DHXDT, H(20), CMX, CMXV,
1 CMXT, ZCX, CORV, CORT
o
TCTMIX = TCOND(DX,TX)
SAVE THE CST RESULTS
oo
FXS = FX
HXS = HX
CMS = CMXV
CALCULCATE THE INTERNAL CONTRIBUTION
TCIMIX = 0.0
D0 100 J = 1, NC
FX=F(J)
HX=H(J)
CMXV=CMW(J)
CPO = CPC(J,1)
TRM = TX
DO 040 K = 2, 7
CPO = CPO + TRM * CPC(J,K)
040 TRM = TRM * TX
TCINT(J) = FINT * (CPO - 4.968) * VSCTY(0.0,TX) / CMW(J)
100 CONTINUE
D0 120 I=1,NC
TRM = 0.0
D0 110 J=1,1
TIJ = X(J) * TCINT(J) / (TCINT(I)+TCINT(J))
TRM = TRM + T1J
60
110 CONTINUE
TCIMIX = TCIMIX + X(I) * TCINT(I) * (2.0 * TRM - TLJ)
120 CONTINUE
FX = FXS
HX = HXS
CMXV = CMS
THERMC = TCTMIX + 2.0 * TCIMIX
RETURN
END
61
FUNCTION CBRT(X)
* * * * Kok ok ok ok kK k ok ok k kK k ok kK Kkkkkkkkkkkkkk KKk
coooo
62
SUBROUTINE LIB(N)
Ch * %k % %k k ok k ok k k kK k k kkkkkkkkkkkkx*kkkk*
63
DUMMY IN THE INTERACTION CONSTANTS
DO 140 L=1,N
I=L*(L-1)/2
D0 140 J=1,L
K=I+J
OMK(K)=1.0
OML(K)=1.0
CONTINUE
RETURN
FORMAT(/" /LIB/ FAILED TO IDENTIFY THE COMPONENT “,7A4)
END
64
BLOCK DATA LIBSET
Kok kK ok k ok ok Kk kK ok ok kKK ok kkkkkkkkxkkkk kK kk*k
RN
R
XPRPXX(K) QUANTITY
CODED BY : J. F. ELY
R e N
COMMON /REFDAT/ R, PCO, DCO, TCO, ZC0, WO, CHHO, GAMMA, A(32),
cT(4), cp(4}, co{9), Co(a), cE(8), cotl9),
* COT(4], CET(8)
COMMON /LIBDAT/ NLIB, NDUM, XPRPO1(22), XPRP02(22), XPRP03(22),
XPRP04(22) , XPRPO5(22), XPRPO6(22), XPRPO7(22), XPRP08(22),
XPRP09(22), XPRP10(22), XPRP11(22), XPRP12(22), XPRP13(22),
XPRP14(22), XPRP15(22), XPRP16(22), XPRP17(22), XPRP18(22),
OONNT B WN
65
DATA R, TCO, PCO, DCO, ZCO, WO, CMWO/ 0.08205616, 190.555,
1 45.387, 10.23, 0.283742, 0.01131, 16.043 /
,-2.064957753744E-05, 1.285951844828E-02,-1.106266656726E+00
3.060813353408E-04,-3.174982181302E-03, 5.191608004779E+00
,-3.074944210271E-04 .071143181503E-05,-9.290851745353E-03
. 1.610140169312€-04, .469830970789E+04,-1.370878559048E+06
Ok ok Ok k%
0
, 1.790105676252E+02, .615880743238E+06, 6.265306650288E-01
, 1.820173769533E+01, .449888505811E-03,-3.159999123798E+01
W
,-5.290335668451E-06 , .694350244152E-03, 8.612049038886E-09
,-2.598235689063E-06, .153374374912E-05/
*
coo
CONSTANTS
+214762100E+06, 0.219046100E+06,-0.861809700E+05,
0.149609900E+05,-0.473066000E+03,-0.233117800E+03,
.377843900E+02,-0.232048100E+01, 0.531176400E-01/
DATA NLIB / 61 /
o
66
DATA XPRPOL / "METH", YANE M, " "
w " 45.387E0, §7.752€0,
1 3 s
2 190.555€0, .011314€0, 16.043E0, 111.630E0,
3 .76692963E+01, .33677582E-14, .97978154E-05, .16480983E-07,
4 -119759199E-10, -.12233376E-21, .31782271E-17/
67
XPRP10 "DIME", "THYL", "BUTA", "NE ",
A e / "2,3-" 30.861E0, 358.000E0,
499.980E0, ~24700€0 86.178E0, 331.130€E0,
.64690800E+01, .82804874E-01 .46561817E-04, .45005110€E-07,
.38194312€-10, -.75539658E-14 .34978877€E-16/
XPRP11
e Cvawp o / "3-ME" "THYL", "PENT", "ANE M, "
30.831E0, 367 .000E0,
504.500€0, ~27300E0 86.178E0, 336.420E0,
.89448557E+01, .91643076E-01, -.14514763E-04, .15734975E-07,
.29889279E-10, - .61427879E-18 .64139897€-17/
68
XPRPI9 / "N-DO', "DECA", "NE
j etz e 17.828€0, 719.700€0,
658 .250E0, .57083€0, 170.341E0, 489.470E0,
.17638199E+02, .14817699E+00, .12419743E-03, -.19432137€-06,
.66242230E-12, .90481892E-13, -.32622075E-16/
XPRP21
e T A/ "N-TE", "TRAD", "ECAN" 3 "
15.525€0, 837.130E0,
692.950€0, <64416E0, 198.395E0, 526.730E0,
EYRY Y
XPRP25
P / “ETHE",' e wowoow
49.700E0, 129.000E0,
PwWN -
69
DATA XPRP28 / "CIs-", “"2-BU", "TENE", " v, ',
1" ', ", "c-2c", "4- ", 41.500€0, 234.000E0,
2 435.600E0, .20200E0, 56.108E0, 276.900E0,
3 .96192379E+01, .10515795€-07, .17176652E-03, -.25410206E-06,
4 .15268957E-09, -.33898932E-13, -.19083062E-22/
70
DATA XPRP37 / "1-HE", "XENE", " o wow "
1" v, v, "ce- ", " , 31.300E0, 350.000E0,
2 504.000E0, .28500E0, 84.162E0, 336.600E0,
3 .12924405E+02, .15954369E-01, .29468316E-03, -.59197697E-06,
4 .54032622E-09, -.24432103E-12, .43999125E-16/
DATA XPRP38 / “1-HE", "PTEN", "E ", ° w o "
PO ", v, oner- ', 28.000E0, 440.000E0,
2 537.200E0, .35800E0, 98.189E0, 366 .800E0,
3 .11443281E+02, .75199352E-01, .75832570E-04, -.11000747E-06,
4 -.18685235e-11, .51822362E-13, -.18519920E-16/
7
. "YLCY", "CLOH", YEXAN', "E "
XPRP46 / "METH"
"MCes™, " " 34.256E0, 368.000E0,
572.200€0, .23600E0 98.190E0, 374.080E0,
.83217106E+01, -.11802893E-02, .47348840E-03, -.84093213E-06,
.65936050E-09, -.24415924E-12, .33736263E-16/
XPRPAS “BNZ
/ "BENZ"
", " [
L 'ENE ", " "
48.340€0, 259.000E0,
562.160E0, .21200E0 78.110E0, 353.240€0,
.36751518E+01, .38030224E-01 .95355250E-04, - .12393250E-06,
\77250878E-12, .56966582E-13, -.20768997E-16/
XPRPS4 gy
/ "HYDR"
]
"OGEN", " "
12.760€0, $4.000E0,
32.980€0, -.21800E0 2.020€0, 20.280€0,
.67501459E+01, .38754626E-03 .31844129E-17, - .87429101E-24,
.18934493E-12, -.95360879E-16, .10839431E-19/
72
DAT. fi KPRESS / "NITR", "0GEN", " "
‘N2, " ", 33.457€E0, $9.000£0,
126 .200€0, .03900E0, 28.010E0, 77.350E0,
.69039288E+01, .10369611E-11, .58071192E-06, .11181148E-08,
+10532056E-11, .22631708E-15, -.23281314E-26/
A XPRP60
/ "SULP", "HUR ", "DIOX", “EC, v v,
i wow "
3 s 'so2 ", " ", 77.809E0, 122.000E0,
430.800E0, .25700E0, 64.060E0, 263.200E0,
.75942478E+01, .33130160E-02, .19711439E-04, - .35434399E-07,
.24974158E-10, -.81159935E-14, .10072061E-17/
73
BS-114A (REV. 2-80)
U.S. DEPT. OF COMM. 1. PUBLICATION OR 2. Performing Organ. Report NoJ 3. Publication Date
REPORT NO.
BIBLIOGRAPHIC DATA B .
SHEET (See instructions) NBS TN-1039" : April 1981
4. TITLE AND SUBTITLE
5. AUTHOR(S)
James F. Ely and H. J. M. Hanley
6. PERFORMING ORGANIZATION (If joint or other than NBS, see instructions) 7. Contract/Grant No.
NATIONAL BUREAU OF STANDARDS
DEPARTMENT OF COMMERCE 8. Type of Report & Period Covere}
WASHINGTON, D.C. 20234
9. SPONSORING ORGANIZATION NAME AND COMPLETE ADDRESS (Street, City, State, ZIP)
12. KEY WORDS (Six to twelve entries; alphabetical order; capitalize only proper names; and separate key words by semicolons)
Computer program; density; extended corresponding states; fluid mixtures;
thermal conductivity; viscosity.
13. AVAILABILITY 14. NO. OF
PRINTED PAGES|
[XJ Unlimited
[ For Official Distribution. Do Not Release to NTIS 80
[] Order From Superintendent of Documents, U.S. Government Printing Office, Washington, D.C. -
20402. 15. Price
] Order From National Technical Information Service (NTIS), Springfield, VA. 22161 $4.00
sizesy GoOgle
U.S. DEPARTMENT OF COMMERCE
National Bureau of Standards
Washington, D.C. 20234
POSTAGE AND FEES PAID
U.S. DEPARTMENT OF COMMERCE
OFFICIAL BUSINESS com-215
Penalty for Private Use, $300