|
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: S T
Length: 12533 (0x30f5)
Types: TextFile
Names: »S00002.f«
└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/doduc/S00002.f«
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21F/doduc/S00002.f«
SUBROUTINE S00002
IMPLICITDOUBLEPRECISION(A-H,O-Z)
COMMON/AAA11/V0011N(20),V0012X(20),V0011,V0012,
1TLIM,ZLIMIN,ZLIMAX,DTVOI,TIMIMP(20),DIFREF(20),DIFMIC(20),
3V00001,V22202,TEMIMP,TEMMIC,DELM,DELV,DELVI,DELVS,
6V22201,V22203,DTPRE,DTPHY,DTTEMP,DTCHAN,DTDIS,DTBEF,DTORG
7,NIMIC,NMULTR,IZONE,N00011(20),ISORT,NECRIT,NSTAR,IPLOT,NZONE
+,IFRE(20),ICO,IIMP,NPAS1(20),NPAS2(20)
COMMON/AAA26/DEB(21),DEBV(21),DEBL(21),ALFAD(21),ALFB(21),
2ALFT(21),HA(21),HB(21),HE(21,2),HEM(21),VE(21,2),
3 XA(21),XB(21),XD(21),XEM(21),SDSC
4 ,TJONC(21),HJONB(21,2),HJONT(21,2),DEBAV(21)
5 ,GLINF(21),GLSUP(21),PP1,PP2,ALNIV
6 ,VGJO(21),GLINFP(21),V55198(21),ICAS(21),ICZW(21)
COMMON/AAA22/DH(22,2),DM(22,2),DPDT,DUU(22,2),DV(22,2),DNU(22,2)
COMMON/AAA33/VCO,XL0055,D876,DINT,DEXT,VOL002,VOL005,LCO,NCRAY
COMMON/AAA44/SC(21),SCAPA(22),SHTC(22),VC(22),XL(22)
1,VFIX,ZCOT(21),I6FT,J6FT,I8FT,J8FT,NC,NC1,NC2,IBCH,IHCH
COMMON/AAA55/KPRESS,KDEB,KCON,KTGAI,KT876,ICAT(3),KIMP,KGLISS
COMMON/AAA66/TS,HFS,HGS,HFGS,DHFPS,DHGPS,VVFS,VVGS,DVVFPS,DVVGPS
1 ,DHFGS,VV1,VV2,DVV1P,DVV2P,T1,T2
COMMON/AAA77/QINIT,TPUI(20),QPUI(20),RPUI,PLMOY,
1 XHTC(22,12),PL(22,12),QREPA(22,12),
2 XMCGA(22,12),XMCUO(22,12),QCED(22,12),QCON(22,12)
3 ,QUGA(22,12),QFOU(22,12),QCEI(2),QCONI(2),QUGII(2)
4 ,TMI(2),DTMI(2),QTOTAL,QTUG,QTGF,TERC(2)
4 ,TGAI(22,12),TGAII(22,12),T876(22,12),TUMAX(22,12)
5 ,TUMIN(22,12),DTGAI(22,12),DT876(22,12)
6 ,TERCO(22,12),TMU(2),DTMU(2),NPUI,NASL(22),NSL(22)
COMMON/AAA88/FLUP(22,2),FLUV(22,2),FLUL(22,2),FLUIV(22,2),
2DEBIL(22,2),FLUIL(22,2),DEBI(22),DEBHI(22),DEBIV(22,2)
COMMON/AAA99/HLCF,HVCFO,HVAP,HCON,HVIN,HLIN,R876,RGAI
1 ,XM876,XMGAI,XL876,XLGAI,CP876,CPGAI,XMC876,XMCGAI
2 ,DIAHY,HGAPP(22),HCG(22),HTC(22,12),HVCFF(22)
COMMON/AAA10/V(22,2),VV(22,2),H(22,2),HF(22,2),HG(22,2),
1 DNUHP(22,2),U(22,2),XM(22,2),XT(22,2),ALFA(22,2),
2 T(22,2),DVVH(22,2),DELH(22,2),DVVP(22,2),DELP(22,2)
3 ,AA(22,2),BB(22,2),DTDH(22,2),DTDP(22,2),DTSAT,
4 DNUPP(22,2),A(22),B(22),C(22),TVID(22,12),M(22,2),IST(22,2)
COMMON/AAA13/TEM,P,DT,HNIV(22),VITESS
1 ,ZNIV,RI(2),ISS,NITERA,NIV,ISLNI,IBTR,IHTR,ITYP(22)
COMMON/AAA16/DBENT(20),TENT(20),HENT(20),DEBE,ENTE,
2 DBSOR(20),TSOR(20),DEBS,DPDTT(20),TDPDT(20)
3 ,HSOR(20),THSOR(20),ENTS,NDBENT,NDPDT,NDBSOR,NHSOR
COMMON/AAA17/DDPDT,DDH(22,2),DDV(22,2),DDM(22,2),DDU(22,2)
COMMON/AAA18/DDEB(21),DDDEB(21),DXAT(21),DXAG(21),DXBT(21),
1 DXBG(21),DNUG(21),DNUF(21),DHE(22,2),DDEBO(21)
COMMON/AAA20/DQP(22,2),DFLUL(22),DFLUV(22),DFLUIL(22),DFLUIV(22)
1 ,DDEBIL(22),DDEBIV(22),DQCEI(2),DQCED(22,12),
2 DDTUO(22,12),DDTGA(22,12),DDTMI(2),DDTMU(2)
INTEGER ITITRE(8)
DOUBLEPRECISION M
READ(5,2020) (ITITRE(I),I=1,8)
2020 FORMAT(8A2)
2060 FORMAT(/,10X,8A2)
READ(5,1000)KPRESS,KDEB,KCON,KTGAI,KT876,KGLISS,(ICAT(I),I=1,3)
READ(5,1540)NZONE
DO 80 I=1,NZONE
READ(5,1061)IFRE(I),TIMIMP(I),DIFREF(I),DIFMIC(I),NPAS1(I),
1NPAS2(I),V0011N(I),V0012X(I)
80 CONTINUE
READ(5,1062)(N00011(I),I=1,NZONE)
V0011=V0011N(1)
V0012=V0012X(1)
READ(5,1510)DELM,DELV,DELVI,DELVS
READ(5,1510)V00001,V22201,V22202,V22203
READ(5,1510)TLIM,ZLIMIN,ZLIMAX
READ(5,1000)NMULTR
DELM=DELM/100.D+00
DELV=DELV/100.D+00
DELVI=DELVI/100.D+00
DELVS=DELVS/100.D+00
VFIX=1./12.D+00
READ(5,1520)NCRAY
READ(5,1510)R876,XL876,CP876
READ(5,1510)RGAI,XLGAI,CPGAI
READ(5,1510)D876,DINT,DEXT
D876=D876/12.D+00
DINT=DINT/12.D+00
DEXT=DEXT/12.D+00
READ(5,1530)TEM,P,QINIT,NC,IBCH,IHCH
NC1=NC+1
NC2=NC+2
XL0055=0.D+00
ITYP(1)=1
DO 100 I=2,NC1
READ(5,1545)ITYP(I),H(I,1),H(I,2),XL1,XL2,SCAPA(I)
GOTO (111,112,113),ITYP(I)
111 XL(I)=XL1
V(I,1)=XL1*SCAPA(I)
VC(I)=V(I,1)
GOTO 100
112 XL(I)=XL1
VC(I)=XL1*SCAPA(I)
V(I,1)=VC(I)*(1.-XL2)
V(I,2)=VC(I)*XL2
GOTO 100
113 XL(I)=XL1+XL2
V(I,1)=XL1*SCAPA(I)
V(I,2)=XL2*SCAPA(I)
VC(I)=V(I,1)+V(I,2)
HNIV(I)=XL1
100 CONTINUE
ITYP(NC2)=1
H(NC2,2)=0.D+00
VC(NC2)=1.D+00
V(NC2,2)=1.D+00
VC(1)=1.D+00
V(1,1)=1.D+00
DO 120 I=IBCH,IHCH
120 XL0055=XL0055+XL(I)
LCO=XL0055
DO 130 II=1,NC2
I=NC2+1-II
H1=H(I,1)
H2=H(I,2)
H3=0.D+00
V1=V(I,1)
V2=V(I,2)
V3=0.D+00
130 CONTINUE
IF(KDEB.EQ.1)READ(5,1550)SDSC
READ(5,1540)NDBENT
READ(5,1511)(TENT(I),DBENT(I),HENT(I),I=1,NDBENT)
READ(5,1540)NHSOR
READ(5,1550)(THSOR(I),HSOR(I),I=1,NHSOR)
IF(KPRESS.EQ.1)GOTO 145
READ(5,1540)NDBSOR
READ(5,1550)(TSOR(I),DBSOR(I),I=1,NDBSOR)
GOTO 150
145 READ(5,1540)NDPDT
READ(5,1550)(TDPDT(I),DPDTT(I),I=1,NDPDT)
150 READ(5,1540)NPUI
READ(5,1550)(TPUI(I),QPUI(I),I=1,NPUI)
READ(5,1542)(HGAPP(I),I=2,NC1)
DO 151 I=2,NC1
151 HGAPP(I)=HGAPP(I)/3600.D+00
READ(5,1560)(NSL(I),I=2,NC1)
DO 160 I=2,NC1
N1=NSL(I)
NASL(I)=NSL(I)
DO 160 J=1,N1
READ(5,1570)PL(I,J),T876(I,J),TGAI(I,J)
1570 FORMAT(3F10.4)
160 CONTINUE
READ(5,3000)HLCF,HVCF,HVAP,HCON,HVIN,HLIN
3000 FORMAT(6F10.4)
HLCF=HLCF/3600.D+00
HVCF=HVCF/3600.D+00
HVAP=HVAP/3600.D+00
HCON=HCON/3600.D+00
HVIN=HVIN/3600.D+00
HLIN=HLIN/3600.
HVCFO=HVCF
TEMIMP=TEM-10000.
TEMMIC=TEMIMP
IZONE=0
IF(TEM.LT.TIMIMP(1))GOTO 1420
1410 IZONE=IZONE+1
IF(IZONE.GE.NZONE)GOTO 1420
IF(TEM.GT.TIMIMP(IZONE+1))GOTO 1410
1420 CONTINUE
IIMP=0
ICO=0
DT=V0011
NIV=0
ISLNI=0
HEN=H(IBCH,1)
READ(5,1542)(SC(I),I=1,NC1)
1542 FORMAT(8F10.4)
VCO=0.
DO 300 I=IBCH,IHCH
300 VCO=VCO+VC(I)
ZNIV=0.
ICA=ICAT(2)
IF(ICA.LE.2)GOTO 211
DO 200 I=2,NC1
IF(ITYP(I).GE.3)GOTO 195
ZNIV=ZNIV+XL(I)
GOTO 200
195 ZNIV=ZNIV+HNIV(I)
NIV=I
GOTO 210
200 CONTINUE
210 CONTINUE
211 CONTINUE
ZCOT(IBCH-1)=0
IF(IBCH.LE.2)GOTO 230
IBC=IBCH-1
DO 220 I=2,IBC
J=IBCH-I
220 ZCOT(J)=ZCOT(J+1)-XL(J+1)
230 DO 240 I=IBCH,NC1
240 ZCOT(I)=ZCOT(I-1)+XL(I)
ZNIV=ZNIV+ZCOT(1)
1000 FORMAT(6(I1,9X),3I1)
1061 FORMAT(I2,8X,3F10.4,2(5X,I5),2F10.6)
1062 FORMAT(40I2)
1500 FORMAT(I1,4X,2I5,5X,3F10.4)
1510 FORMAT(5F10.4)
1511 FORMAT(3F10.4)
1520 FORMAT(I5)
1530 FORMAT(3F10.4,3(I2,8X))
1540 FORMAT(I2)
1545 FORMAT(I1,9X,6F10.4)
1550 FORMAT(2F10.4)
1560 FORMAT(8(I2,8X))
1680 FORMAT(2I3,3X,F7.4,5(2X,F8.4),3(2X,F10.4))
1710 FORMAT(18X,F10.4,4X,F10.4)
1711 FORMAT((14X,3(4X,F10.4)))
1940 FORMAT((4X,I2,4X,3F10.4,2(3X,I5,2X),2F10.6))
RETURN
END