FUNCTION DILTR(TEMP)
C	TC-ZERO FOR OXYGEN FROM IN 1025
	DIMENSION A(9)
	DATA A/−2.0395052193E+5,2.4088141709E+5
	1 ,−1,2014175183E+5,3.295494919E+4
	2 ,−5.4244239598E+3,5.4734865540E+2
	3 ,−3.2854821539E+1,1.0753572103
	4 ,−1.4610986820E−2/
	T=TEMP
	TF=T**(1./3.)
	TFF=T**(−4./3.)
	SUM = 0
	00 20 I = 1, 9
	TFF = TFF * TF
	20 SUM = SUM + A (I) * TFF
	DILTR = SUM
	RETURN
	END
	FUNCTION THERMR (RHO,TEMP)
C	4TH SURFACE, COEF. FROM TC021 AND MINIMS, 3 MAR 02
	DIMENSION 8(10)
	DATA B/.298644E-5
	1,.59842EF+00,.11362E−01,−.19520E−04
	2,.47624E+00.−.64769E−03,.83223E−06
	3,−.278141E−4,.153705E−6,.147176E+1/
	T = TEMP
	DEN=RHO
	TCZERO-DILT(T) /1000.
	TCZERO-DILT(T)/1000.
	AL=B(1)*T
	BE=B(2)+B(3)*T+B(4)*T**2
	GA=B(5)+B(6)*T+B(7)*T**2
	DE=B(8)+B(9)*T+B(10)/T**2
	THERMR=TCZERO+AL*DEN+DE*(EXP(DE*DEN**GA)−1.0)
	RETURN
	END
	FUNCTION CRITCR(RHO,TEMP)
C	4TH SURFACE, COEF. FROM TCO21 AND MINIMS. 3 MAR 82
	DIMENSION C(7)
	DATA C/.219200E+0,−145.55,.734512E−02,−.282950E−04
	1,−.71599E−3,.13804E+0,.12980E−5/
	DATA (TC=154.581),(RHOC=13.63)
	T=TEMP
	DEN=RHO
	DELD=ABS(DEN-RHOC)/RHOC
	IF(T.LT.TC) T=TC+(TC−T)
	IF(T.LT.307.443) GO TO 4
	CRITCR=0.
	RETURN
	4 CONTINUE
	AMP=C(1)/(T+C(2))+C(3)+C(4)*T
	DELT=T−TC
	RHOCENT=RHOC+C(5)*DELT**1.5
	DELRHO=DEN-RHOCEN
	X1.C(6)*DELRHO
	IF(DELRHO.LT.O.) X1=X1C(7)*DELRMO**5
	CRITCR.AMPL*EXP(*−X1**2)
	IF(T.GT.162.9805) RETURN
	IF(DEN.LT.7.5.OR.DEN.GT.18.) RETURN
	TEST1-SENG01(DEN,T)
	IF(TEST1*GT.CRITCR) CRITCR-TEST1
	RETURN
	END
	FUNCTION SENG81(RHO,TEMP)***
C	SCALED EQUATION ONLY, VERSION OF 12 FEB 82
C	CRITICAL ENHANCEMENT AS IN SENGERS ET AL 1981 U MARYL. REPORT
C	UNITS, IN MDL/L,K, INTERNAL ALSO ATM, OUT W/M-K, ETA G/CM-S,0K J/K
C	1.02 REPLACED BY 1.04, PARAMETER VARIATION FOR WEBER DATA
	DATA (TC=154.581), (DC=13.63),(BK-1.38054E-23),(PC-49.77054)
	1 ,(ZZ=5.9783E−10)
	DATA (E=0.287),(G=1.190), (B=0.355).(DD=2.36),(XZ=O.183),(DE=4.352)
	DEN=RHO
	T=TEMP
	DELO=ABS(DEN-DC)/DC
	DELT=ABS(T-TC)/TC
	OFACT=EXP(−(39.8*DELT**2+5.45*DELD**4))
	RSTAR=DEN/DC
	VIS.VISC(DEN,T)*C(1.0E−06)
	CALL DPOT(OPT,DEN,T)
C	IF(DELD.LE.0.25.AND.DELT.LT.0.03) GO TO 8
C	CALL DPDD(OPD,DEN,T)
C	CHISTAR=PC*DEN/(DC**2*DPD)
C	GO TO 12
	8 IF(DELD.EQ.O.) GO TO 3
	X=DELT/DELD**(1.0/B)
	Y=(X+XZ)/XZ
	TOP DELD**(−G/B)*((1.+E)/(1.+E*Y**(2.*B)))**((G−1.)/(2.*B))
	DIV=DD*(DE+(Y−1.)*(DE−1./B+E*Y**(2.*B))/(1.+E*Y**(2.*B)))
	CHISTAR=TOP/DIV
	12 CHI-CHISTAR**0.468067
	UPPER.1.04*BK/PC*(T*DPT/RSTAR)**2*CHI*DFACT*1.01325E+6
	SENG81=UPPER/(ZZ*6.*3.14159*VIS)
	RETURN
	3 BGAM.XZ**G/DD*((1.+E)/E)**((6−1.)/(2.*B))
	CHISTAR=BGAM*(DELT)**(−G)
	GO TO 12
	END