
18
i00
19
ii0
20
120
130
140
150
REAL
OPEN
OPEN
PI =
READ
READ
READ
READ
READ
READ
READ
READ
READ
READ
OD, KINS
(UNIT=3, FILE ='DATA85.DAT', STATUS='OLD', ERR=I8)
(UNIT=l, FILE ='PRN')
3.1415927
THE
THE
THE
THE
THE
THE
THE
THE
THE
THE
TOTAL LENGTH OF PIPE, ft.: TOTL
TEMPERATURE IN THE PIPE, oF: TP
HOT-MEDIUM INLET TEMPERATURE, oF: TMI
HOT-MEDIUM OUTLET TEMPERATURE, oF: TMO
AIR TEMPERATURE, oF: TAIR
OUTSIDE DIAMETER OF PIPE, inch.: OD
ALLOWANCE FOR THE TRACER DIAMETER, inch.: TAL
INSULATION THICKNESS, inch.: TK
THERMAL CONDUCTIVITY OF INSULATION, Btu/hr.ft^2(oF/ft): KINS
SPECIFIC HEAT CAPACITY OF THE HOT MEDIUM, Btu/Ib.oF: CP
READ THE FILM HEAT TRANSFER COEFFICIENT TO AIR CORRECTED
FOR THE WIND, Btu/hr.ft^2.oF: HA
READ THE THERMAL CONDUCTANCE, TRACER TO PIPE
WITHOUT CEMENT, Btu/hr.oF (ft. of pipe).: TCA
READ THE THERMAL CONDUCTANCE, TRACER TO PIPE
WITH CEMENT, Btu/hr.oF (ft. of pipe).: TCB
READ (3, *
READ (3, *
READ (3, *
READ (3, *
, ERR=I9) TOTL, TP, TMI
, ERR=I9) TMO, TAIR, OD
, ERR=I9) TAL, TK, KINS
, ERR=I9) CP, HA, TCA, TCB
GO TO 20
WRITE (*, i00)
FORMAT (6X, 'DATA FILE DOES NOT EXIST')
GO TO 999
WRITE (*, ii0)
FORMAT (6X, 'ERROR MESSAGE IN THE DATA VALUE')
GO TO 999
WRITE (i, 120)
FORMAT
(///,
10X, 'HEAT TRACER REQUIREMENTS FOR PIPELINES AND ',
/, 10X, 'HEAT LOSS FROM AN INSULATED PIPELINE WITH TRACING', /,
78(IH*))
WRITE ( I, 130) TOTL, TP, TMI
FORMAT (6X, 'TOTAL PIPELINE LENGTH, ft.:',T60,F9.1,/,
6X, 'TEMPERATURE IN PIPE, oF:',T60,F9.1,/,
6X, 'HOT-MEDIUM INLET TEMPERATURE, oF:',T60,F9.1)
WRITE (i, 140) TMO, TAIR, OD
FORMAT (6X, 'HOT MEDIUM OUTLET TEMPERATURE, oF:',T60, F9.1,/,
6X, 'AIR TEMPERATURE, oF:',T60,F9.1,/,
6X, 'OUTSIDE DIAMETER OF PIPE, in.:',T60,F9.3)
WRITE (i, 150) TAL, TK, KINS
FORMAT (6X, 'ALLOWANCE FOR TRACER DIAMETER, in.:', T60, F9.2,/,
6X, 'INSULATION THICKNESS, in.:', T60, F9.2, /, 6X,
'THERMAL CONDUCTIVITY OF INSULATION, Btu/hr.ft^2(oF/ft): ' , T60,
717