APPENDIX B: COMPUTER PROGRAM LISTINGS
Program FFCONST
PROGRAM FFCONST
DIMENSION VI(10),DI(10),FI(10,10,10),FFCALC(10,10,10),
*ERROR(10,10,10),RNI(10,10,10),T(10)
100 FORMAT(15X,3E12.5)
200 FORMAT(////,15X,4E15.6,///,15X,4E15.6)
300 FORMAT(////,20X,3F18.6,/////)
400 FORMAT(2X,1F10.0,1F10.2, 1F10.3,1E15.4,3F10.4)
500 FORMAT(2X,4E12.4)
600 FORMAT(////,15X,3F18.6)
R=.046E-3
ESUM=0.
A1=0.
A2=0.
A3=0.
A4=0.
A5=0.
A6=0.
A7=0.
A8=0.
A9=0.
A10=0.
A11=0.
A12=0.
A13=0.
A14=0.
A15=0.
A16=0.
EMAX=0.
EMIN=1.
JV=9
ID=9
DELTAD=.025
DL=.025
VL=.25
VDELTA=.75
VI(1)=VL
KT=9
TDELTA=10.
TL=70.
T(1)=TL
N=JV*ID*KT
DO 4 K=1,KT
CALL SATLN(T(K),P)
CALL WTRTBL(T(K),P,RHO,XH,DV)
* PRINT 500,T(K),P,RHO,DV
83
Previous Page
