|
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: 12814 (0x320e)
Types: TextFile
Names: »S00000.f«
└─⟦db229ac7e⟧ Bits:30007240 EUUGD20: SSBA 1.2 / AFW Benchmarks
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21E/doduc/S00000.f«
└─⟦this⟧ »EUUGD20/AFUU-ssba1.21/ssba1.21F/doduc/S00000.f«
SUBROUTINE S00000(INI)
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(42),HEM(21),VE(42),
3 XA(21),XB(21),XD(21),XEM(21),SDSC
4 ,TJONC(21),HJONB(42),HJONT(42),DEBAV(21)
5 ,GLINF(21),GLSUP(21),PP1,PP2,ALNIV
6 ,VGJO(21),GLINFP(21),V55198(21),ICAS(21),ICZW(21)
COMMON/AAA22/DH(44),DM(44),DPDT,DUU(44),DV(44),DNU(44)
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(264),PL(264),QREPA(264),
2 XMCGA(264),XMCUO(264),QCED(264),QCON(264)
3 ,QUGA(264),QFOU(264),QCEI(2),QCONI(2),QUGII(2)
4 ,TMI(2),DTMI(2),QTOTAL,QTUG,QTGF,TERC(2)
4 ,TGAI(264),TGAII(264),T876(264),TUMAX(264)
5 ,TUMIN(264),DTGAI(264),DT876(264)
6 ,TERCO(264),TMU(2),DTMU(2),NPUI,NASL(22),NSL(22)
COMMON/AAA88/FLUP(44),FLUV(44),FLUL(44),FLUIV(44),
2DEBIL(44),FLUIL(44),DEBI(22),DEBHI(22),DEBIV(44)
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(264),HVCFF(22)
COMMON/AAA10/V(44),VV(44),H(44),HF(44),HG(44),
1 DNUHP(44),U(44),XM(44),XT(44),ALFA(44),
2 T(44),DVVH(44),DELH(44),DVVP(44),DELP(44)
3 ,AA(44),BB(44),DTDH(44),DTDP(44),DTSAT,
4 DNUPP(44),A(22),B(22),C(22),TVID(264),M(44),IST(44)
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(44),DDV(44),DDM(44),DDU(44)
COMMON/AAA18/DDEB(21),DDDEB(21),DXAT(21),DXAG(21),DXBT(21),
1 DXBG(21),DNUG(21),DNUF(21),DHE(44),DDEBO(21)
COMMON/AAA20/DQP(44),DFLUL(22),DFLUV(22),DFLUIL(22),DFLUIV(22)
1 ,DDEBIL(22),DDEBIV(22),DQCEI(2),DQCED(264),
2 DDTUO(264),DDTGA(264),DDTMI(2),DDTMU(2)
DOUBLEPRECISION M
DO 1 I=1,20
1 DBENT (I) =INI
DO 2 I=1,20
2 TENT (I) =INI
DO 3 I=1,20
3 HENT (I) =INI
DEBE =INI
ENTE =INI
DO 4 I=1,20
4 DPDTT (I) =INI
DO 5 I=1,20
5 TDPDT (I) =INI
DO 6 I=1,20
6 DBSOR (I) =INI
DO 7 I=1,20
7 TSOR (I) =INI
DEBS =INI
DO 8 I=1,20
8 HSOR (I) =INI
DO 9 I=1,20
9 THSOR (I) =INI
ENTS =INI
NDBENT =INI
NDPDT =INI
NDBSOR =INI
NHSOR =INI
DO 10 I=1,20
10 V0011N (I) =INI
DO 11 I=1,20
11 V0012X (I) =INI
V0011 =INI
V0012 =INI
DTVOI =INI
DO 12 I=1,20
12 TIMIMP (I) =INI
DO 13 I=1,20
13 DIFREF (I) =INI
DO 14 I=1,20
14 DIFMIC (I) =INI
TEMIMP =INI
TEMMIC =INI
DELM =INI
DELV =INI
DELVI =INI
DELVS =INI
TLIM =INI
ZLIMIN =INI
ZLIMAX =INI
V00001 =INI
V22202 =INI
V22201 =INI
V22203 =INI
DTPRE =INI
DTPHY =INI
DTTEMP =INI
DTCHAN =INI
DTDIS =INI
DTBEF =INI
DTORG =INI
NIMIC =INI
NMULTR =INI
IZONE =INI
DO 15 I=1,20
15 N00011 (I) =INI
ISORT =INI
NECRIT =INI
NSTAR =INI
IPLOT =INI
NZONE =INI
DO 16 I=1,20
16 IFRE (I) =INI
ICO =INI
IIMP =INI
DO 17 I=1,20
17 NPAS1 (I) =INI
DO 18 I=1,20
18 NPAS2 (I) =INI
DO 19 I=1,21
19 DEB (I) =INI
DO 20 I=1,21
20 DEBV (I) =INI
DO 21 I=1,21
21 DEBL (I) =INI
DO 22 I=1,21
22 ALFAD (I) =INI
DO 23 I=1,21
23 ALFB (I) =INI
DO 24 I=1,21
24 ALFT (I) =INI
DO 25 I=1,21
25 HA (I) =INI
DO 26 I=1,21
26 HB (I) =INI
DO 27 I=1,42
27 HE (I) =INI
DO 28 I=1,21
28 HEM (I) =INI
DO 29 I=1,42
29 VE (I) =INI
DO 30 I=1,21
30 XA (I) =INI
DO 31 I=1,21
31 XB (I) =INI
DO 32 I=1,21
32 XD (I) =INI
DO 33 I=1,21
33 XEM (I) =INI
SDSC =INI
DO 34 I=1,21
34 TJONC (I) =INI
DO 35 I=1,42
35 HJONB (I) =INI
DO 36 I=1,42
36 HJONT (I) =INI
DO 37 I=1,21
37 DEBAV (I) =INI
DO 38 I=1,21
38 GLINF (I) =INI
DO 39 I=1,21
39 GLSUP (I) =INI
PP1 =INI
PP2 =INI
ALNIV =INI
DO 40 I=1,21
40 VGJO (I) =INI
DO 41 I=1,21
41 GLINFP (I) =INI
DO 42 I=1,21
42 V55198 (I) =INI
DO 43 I=1,21
43 ICAS (I) =INI
DO 44 I=1,21
44 ICZW (I) =INI
DO 45 I=1,44
45 DH (I) =INI
DO 46 I=1,44
46 DM (I) =INI
DPDT =INI
DO 47 I=1,44
47 DUU (I) =INI
DO 48 I=1,44
48 DV (I) =INI
DO 49 I=1,44
49 DNU (I) =INI
DDPDT =INI
DO 50 I=1,44
50 DDH (I) =INI
DO 51 I=1,44
51 DDV (I) =INI
DO 52 I=1,44
52 DDM (I) =INI
DO 53 I=1,44
53 DDU (I) =INI
DO 54 I=1,21
54 DDEB (I) =INI
DO 55 I=1,21
55 DDDEB (I) =INI
DO 56 I=1,21
56 DXAT (I) =INI
DO 57 I=1,21
57 DXAG (I) =INI
DO 58 I=1,21
58 DXBT (I) =INI
DO 59 I=1,21
59 DXBG (I) =INI
DO 60 I=1,21
60 DNUG (I) =INI
DO 61 I=1,21
61 DNUF (I) =INI
DO 62 I=1,44
62 DHE (I) =INI
DO 63 I=1,21
63 DDEBO (I) =INI
DO 64 I=1,44
64 DQP (I) =INI
DO 65 I=1,22
65 DFLUL (I) =INI
DO 66 I=1,22
66 DFLUV (I) =INI
DO 67 I=1,22
67 DFLUIL (I) =INI
DO 68 I=1,22
68 DFLUIV (I) =INI
DO 69 I=1,22
69 DDEBIL (I) =INI
DO 70 I=1,22
70 DDEBIV (I) =INI
DO 71 I=1,2
71 DQCEI (I) =INI
DO 72 I=1,264
72 DQCED (I) =INI
DO 73 I=1,264
73 DDTUO (I) =INI
DO 74 I=1,264
74 DDTGA (I) =INI
DO 75 I=1,2
75 DDTMI (I) =INI
DO 76 I=1,2
76 DDTMU (I) =INI
VCO =INI
XL0055 =INI
D876 =INI
DINT =INI
DEXT =INI
VOL002 =INI
VOL005 =INI
LCO =INI
NCRAY =INI
DO 77 I=1,21
77 SC (I) =INI
DO 78 I=1,22
78 SCAPA (I) =INI
DO 79 I=1,22
79 SHTC (I) =INI
DO 80 I=1,22
80 VC (I) =INI
DO 81 I=1,22
81 XL (I) =INI
VFIX =INI
DO 82 I=1,21
82 ZCOT (I) =INI
I6FT =INI
J6FT =INI
I8FT =INI
J8FT =INI
NC =INI
NC1 =INI
NC2 =INI
IBCH =INI
IHCH =INI
KPRESS =INI
KDEB =INI
KCON =INI
KTGAI =INI
KT876 =INI
DO 83 I=1,3
83 ICAT (I) =INI
KIMP =INI
KGLISS =INI
TS =INI
HFS =INI
HGS =INI
HFGS =INI
DHFPS =INI
DHGPS =INI
VVFS =INI
VVGS =INI
DVVFPS =INI
DVVGPS =INI
DHFGS =INI
VV1 =INI
VV2 =INI
DVV1P =INI
DVV2P =INI
T1 =INI
T2 =INI
QINIT =INI
DO 84 I=1,20
84 TPUI (I) =INI
DO 85 I=1,20
85 QPUI (I) =INI
RPUI =INI
PLMOY =INI
DO 86 I=1,264
86 XHTC (I) =INI
DO 87 I=1,264
87 PL (I) =INI
DO 88 I=1,264
88 QREPA (I) =INI
DO 89 I=1,264
89 XMCGA (I) =INI
DO 90 I=1,264
90 XMCUO (I) =INI
DO 91 I=1,264
91 QCED (I) =INI
DO 92 I=1,264
92 QCON (I) =INI
DO 93 I=1,264
93 QUGA (I) =INI
DO 94 I=1,264
94 QFOU (I) =INI
DO 95 I=1,2
95 QCEI (I) =INI
DO 96 I=1,2
96 QCONI (I) =INI
DO 97 I=1,2
97 QUGII (I) =INI
DO 98 I=1,2
98 TMI (I) =INI
DO 99 I=1,2
99 DTMI (I) =INI
QTOTAL =INI
QTUG =INI
QTGF =INI
DO 100 I=1,2
100 TERC (I) =INI
DO 101 I=1,264
101 TGAI (I) =INI
DO 102 I=1,264
102 TGAII (I) =INI
DO 103 I=1,264
103 T876 (I) =INI
DO 104 I=1,264
104 TUMAX (I) =INI
DO 105 I=1,264
105 TUMIN (I) =INI
DO 106 I=1,264
106 DTGAI (I) =INI
DO 107 I=1,264
107 DT876 (I) =INI
DO 108 I=1,264
108 TERCO (I) =INI
DO 109 I=1,2
109 TMU (I) =INI
DO 110 I=1,2
110 DTMU (I) =INI
NPUI =INI
DO 111 I=1,22
111 NASL (I) =INI
DO 112 I=1,22
112 NSL (I) =INI
DO 113 I=1,44
113 FLUP (I) =INI
DO 114 I=1,44
114 FLUV (I) =INI
DO 115 I=1,44
115 FLUL (I) =INI
DO 116 I=1,44
116 FLUIV (I) =INI
DO 117 I=1,44
117 FLUIL (I) =INI
DO 118 I=1,22
118 DEBI (I) =INI
DO 119 I=1,22
119 DEBHI (I) =INI
DO 120 I=1,44
120 DEBIV (I) =INI
DO 121 I=1,44
121 DEBIL (I) =INI
HLCF =INI
HVCFO =INI
HVAP =INI
HCON =INI
HVIN =INI
HLIN =INI
R876 =INI
RGAI =INI
XM876 =INI
XMGAI =INI
XL876 =INI
XLGAI =INI
CP876 =INI
CPGAI =INI
XMC876 =INI
XMCGAI =INI
DIAHY =INI
DO 122 I=1,22
122 HGAPP (I) =INI
DO 123 I=1,22
123 HCG (I) =INI
DO 124 I=1,264
124 HTC (I) =INI
DO 125 I=1,22
125 HVCFF (I) =INI
DO 126 I=1,44
126 V (I) =INI
DO 127 I=1,44
127 VV (I) =INI
DO 128 I=1,44
128 H (I) =INI
DO 129 I=1,44
129 HF (I) =INI
DO 130 I=1,44
130 HG (I) =INI
DO 131 I=1,44
131 DNUHP (I) =INI
DO 132 I=1,44
132 U (I) =INI
DO 133 I=1,44
133 XM (I) =INI
DO 134 I=1,44
134 XT (I) =INI
DO 135 I=1,44
135 ALFA (I) =INI
DO 136 I=1,44
136 T (I) =INI
DO 137 I=1,44
137 DVVH (I) =INI
DO 138 I=1,44
138 DELH (I) =INI
DO 139 I=1,44
139 DVVP (I) =INI
DO 140 I=1,44
140 DELP (I) =INI
DO 141 I=1,44
141 AA (I) =INI
DO 142 I=1,44
142 BB (I) =INI
DO 143 I=1,44
143 DTDH (I) =INI
DO 144 I=1,44
144 DTDP (I) =INI
DTSAT =INI
DO 145 I=1,44
145 DNUPP (I) =INI
DO 146 I=1,22
146 A (I) =INI
DO 147 I=1,22
147 B (I) =INI
DO 148 I=1,22
148 C (I) =INI
DO 149 I=1,264
149 TVID (I) =INI
DO 150 I=1,44
150 M (I) =INI
DO 151 I=1,44
151 IST (I) =INI
TEM =INI
P =INI
DT =INI
DO 152 I=1,22
152 HNIV (I) =INI
VITESS =INI
ZNIV =INI
DO 153 I=1,2
153 RI (I) =INI
ISS =INI
NITERA =INI
NIV =INI
ISLNI =INI
IBTR =INI
IHTR =INI
DO 154 I=1,22
154 ITYP (I) =INI
RETURN
END