|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: F T
Length: 1063 (0x427)
Types: TextFile
Names: »F00113.f«
└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/doduc/F00113.f«
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21F/doduc/F00113.f«
DOUBLEPRECISIONFUNCTION F00113(IOPT,P,DIAHY,TWA,TFL,AL)
IMPLICITDOUBLEPRECISION(A-H,O-Z)
DOUBLEPRECISION R(15),F(15)
DATA R /.15,.25,.35,.45,.65,.85,1.05,1.25,1.45,1.95,2.45,
1 2.95,3.45,3.95,4.45/
DATA F /.4258,.5359,.6235,.6981,.8238,.9295,1.0222,
1 1.1056,1.1820,1.3506,1.4967,1.6271,1.7459,1.8555,1.9578/
TW=TWA/1000.+.45967
TF=TFL/1000.+.45967
IF(IOPT.GE.3)GOTO 1000
PWL=(P/14.696)*DIAHY*TW/TF
TT=TW*1000.D+00
EH2O=S00093(PWL,TT)
RAP=TF/TW
IF(RAP.GE..45)GOTO 200
I1=IDINT(RAP/.1-1.5)+1
GOTO 500
200 IF(RAP.GE.1.45)GOTO 300
I1=IDINT(RAP/.2-2.25)+4
GOTO 500
300 I1=IDINT(RAP/.5-2.9)+9
500 I2=I1+1
R1=R(I1)
R2=R(I2)
F1=F(I1)
F2=F(I2)
FF=F1+(RAP-R1)*(F2-F1)/(R2-R1)
AH2O=2.*EH2O*FF
EWALL=.6
CCC=1.73/(1./EWALL+1./AH2O-1.)
GOTO 2000
1000 CONTINUE
CCC=(1.-.6*AL)*1.73/(1.25-.15*AL)
2000 CONTINUE
F00113=CCC*(TW+TF)*(TW*TW+TF*TF)/3600.D+00
RETURN
END