SATPRESS:
p0=7.8617-2644.1*(1/tsat(i))- 173690#*(1/tsat(i))^2
p0=132.89*10^p0 ' [N/m^2]
RETURN
LATHEAT:
tr=tsat(i)/tc
hfg(i)=(10481*(1-tr)^.354+12805*(1-tr)^.456)*4184/MW
RETURN
VISCOS:
aa=1.16145: bb=.14874: cc=.52487: dd=.7732: ee=2.16178: ff=2.43787
tfict=.001451*tsat(i)
muu(i)=aa/tfict^bb+cc/EXP(dd*tfict)+ee/EXP(ff*tfict)
muu(i)=.00000051873#*SQR(tsat(i)/muu(i))
RETURN