paraffin wax deposition and fouling

C
NC = C
C REiCS EACH SET OF RE[iJCS FOP UN
C
2 REAC(5,4) rr,TIME
4 FOP.AT(I2 ,7X,F1U.6)
IF(M’..LT.l) GOTO 30
IF(M.EC.RP.GE) Gn1021
77 IF(’.Ec.NRPAGE) NRPñCF=NPPACE+29
REAO (5,22) TWT,TWO,1KI,TKO,C’K,PW,DPT
22 FOR”AT(F9. 6,6F10.6)
GOTC 66
C
C CALCULATES PHYSICAL PROPERTIES OF MIXTtJRE
C
66 T=(IKI÷TKO)/2.0
SG=c. 796163—0.00C729T
DEN=SG*O.99904*62.3
CP=C.1j038+0.031 62 *T
TK=( 8.69—O.0045*T)/100.O
VLL=A*O.43434LflG(T+273.0)+R
IF(VLL.GF.38.0) GOTO 16
1]. VL=1C.O**VLL
IF(VL.GE.38.J) GOTO 16
12 V=1.C.0**VL—O.953
V=V*36. 0/029. 0
C
C CALCULATES FLOWRATES
C
13 FK=CO(1,NT)(DPKC(1,’iT) )‘60.0
15 FW=CD(2,NT)(DPWCN(2,NT))*60.0
V K F K / ( 00 N * CA)
VFPS=VK/3600.0
VMS=W PS*J.3348
C
C CALCUI ATES REYNOLD5 uMPEP. Nfl PRANOTL NI)WER Fop SET OF EATA
C
C
RE= (D/J 2.)) VK/’J
PR=CP*V*DCN!TK
C CALCULATFS HEAT TRNFFP PFSISTAtCF FOR DATA ST