53 |
real, parameter:: RTT = 273.16 |
real, parameter:: RTT = 273.16 |
54 |
real, parameter:: RLVTT = 2.5008E+6 |
real, parameter:: RLVTT = 2.5008E+6 |
55 |
real, parameter:: RLSTT = 2.8345E+6 |
real, parameter:: RLSTT = 2.8345E+6 |
56 |
real, parameter:: RATM = 100000. |
real, parameter:: RATM = 1e5 |
57 |
|
|
58 |
! A1.8 Curve of saturation |
! A1.8 Curve of saturation |
59 |
REAL RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS |
REAL RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS |
140 |
! 8. DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE. |
! 8. DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE. |
141 |
|
|
142 |
RLMLT = RLSTT-RLVTT |
RLMLT = RLSTT-RLVTT |
143 |
print *, 'Thermodynamic, trans. ' |
print *, 'Thermodynamic, transition of phase:' |
144 |
print '('' Fusion point = '', E13.7)', RTT |
print '('' Fusion point = '', E13.7)', RTT |
145 |
print '('' RLvTt = '', E13.7)', RLVTT |
print '('' RLvTt = '', E13.7)', RLVTT |
146 |
print '('' RLsTt = '', E13.7)', RLSTT |
print '('' RLsTt = '', E13.7)', RLSTT |
147 |
print '('' RLMlt = '', E13.7)', RLMLT |
print '('' RLMlt = '', E13.7)', RLMLT |
148 |
print '('' Normal press. = '', E13.7)', RATM |
print '('' Normal pressure = '', E13.7)', RATM |
149 |
|
|
150 |
! 9. SATURATED VAPOUR PRESSURE. |
! 9. SATURATED VAPOUR PRESSURE. |
151 |
|
|