]> git.uio.no Git - u/mrichter/AliRoot.git/blame - GEANT321/comad/gcomad.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / comad / gcomad.F
CommitLineData
09298c03 1*CMZ : 22/01/99 15.54.06 by Rene Brun
2*-- Author : Federico Carminati 28/11/98
3 SUBROUTINE GCOMAD(CHCOMM,IADD)
4*#include "geant321/gcasho.inc"
5 COMMON/GCASHO/ZMED,AMED,DMED,E0MED,ZSMED(50),ESMED(50),ALFA,
6 * STEPALT,PLIN,PLOG,BE2,PLASM,TRNSMA,
7* * STEP,PLIN,PLOG,BE2,PLASM,TRNSMA,
8 * BOSC(50),AOSC(50),EOSC(50),ZOSC(50),EMEAN,
9 * CMGO(2000),EMGO,EMGOMI,
10 * NSMED,IOSC(50),NOSC,NMGO,NMGOMA
11C
12 REAL ZMED,AMED,DMED,E0MED,ZSMED,ESMED,ALFA,
13 * STEPALT,PLIN,PLOG,BE2,PLASM,TRNSMA,
14* * STEP,PLIN,PLOG,BE2,PLASM,TRNSMA,
15 * BOSC,AOSC,EOSC,ZOSC,EMEAN,CMGO,EMGO,EMGOMI
16 INTEGER NSMED,IOSC,NOSC,NMGO,NMGOMA
17C
18#include "geant321/gcbank.inc"
19#include "geant321/gccurs.inc"
20#include "geant321/gccuts.inc"
21#include "geant321/gcdraw.inc"
22#include "geant321/gcfdim.inc"
23#include "geant321/gcflag.inc"
24#include "geant321/gcgobj.inc"
25#include "geant321/gchil2.inc"
26#include "geant321/gchiln.inc"
27#include "geant321/gchvir.inc"
28#include "geant321/gcjloc.inc"
29#include "geant321/gcjump.inc"
30#include "geant321/gckine.inc"
31#include "geant321/gcking.inc"
32#include "geant321/gclist.inc"
33#include "geant321/gclund.inc"
34#include "geant321/gcmate.inc"
35#include "geant321/gcmulo.inc"
36#include "geant321/gcmutr.inc"
37#include "geant321/gcmzfo.inc"
38#include "geant321/gcnum.inc"
39*#include "geant321/gcomis.inc"
40* COMMON/GCOMIS/JUINIT,JUGEOM,JUKINE,JUSTEP,JUOUT,JULAST
41 COMMON/GCOMIS/KUINIT,KUGEOM,KUKINE,KUSTEP,KUOUT,KULAST
42 DIMENSION JPCOMS(6)
43 EQUIVALENCE (JPCOMS,JUINIT)
44*
45#include "geant321/gconst.inc"
46#include "geant321/gcopti.inc"
47#include "geant321/gcpara.inc"
48#include "geant321/gcparm.inc"
49#include "geant321/gcpmxz.inc"
50#include "geant321/gcphnr.inc"
51#include "geant321/gcphpr.inc"
52#include "geant321/gcphrd.inc"
53#include "geant321/gcphxs.inc"
54#include "geant321/gcphys.inc"
55#include "geant321/gcpixe.inc"
56#include "geant321/gcpoly.inc"
57#include "geant321/gcpush.inc"
58#include "geant321/gcrayt.inc"
59#include "geant321/gcrz.inc"
60#include "geant321/gcscal.inc"
61#include "geant321/gcscan.inc"
62#include "geant321/gcsets.inc"
63#include "geant321/gcshpt.inc"
64*#include "geant321/gcspee.inc"
65*
66* REAL S1,S2,S3,SS1,SS2,SS3,SRAGMX,SRAGMN,
67 REAL S1,S2ALT,S3,SS1,SS2,SS3,SRAGMX,SRAGMN,
68 + RAINT1,RAINT2,RMIN1,RMIN2,RMAX1,RMAX2
69 INTEGER ISCOP,NTIM,NTFLAG,IOLDCU,ITSTCU,ISUBLI,IPORLI
70 INTEGER LPASS,JPORJJ,LEP,JSC
71*
72* COMMON/GCSPEE/S1,S2,S3,SS1,SS2,SS3,LEP,IPORLI,ISUBLI,
73 COMMON/GCSPEE/S1,S2ALT,S3,SS1,SS2,SS3,LEP,IPORLI,ISUBLI,
74 + SRAGMX,SRAGMN,RAINT1,RAINT2,RMIN1,RMIN2,
75 + RMAX1,RMAX2,JPORJJ,ITSTCU,IOLDCU,ISCOP,
76 + NTIM,NTFLAG,LPASS,JSC
77*
78
79#include "geant321/gcstak.inc"
80#include "geant321/gcstra.inc"
81#include "geant321/gctime.inc"
82#include "geant321/gctmed.inc"
83#include "geant321/gctrak.inc"
84#include "geant321/gcunit.inc"
85#include "geant321/gcursb.inc"
86#include "geant321/gcvdma.inc"
87#include "geant321/gcvol1.inc"
88#include "geant321/gcvol2.inc"
89#include "geant321/gcvolu.inc"
90#include "geant321/gcxlun.inc"
91#include "geant321/gfkdis.inc"
92#include "geant321/gsecti.inc"
93*
94* Commons for GEANE
95#include "geant321/ertrio.inc"
96#include "geant321/eropts.inc"
97#include "geant321/erwork.inc"
98* Commons for GEANE
99*
100 COMMON / QUEST / IQUEST(100)
101*
102 CHARACTER *(*) CHCOMM
103#if defined(CERNLIB_DECS)
104 INTEGER*8 GCADDI, GCADDF, GCADDL, GCADDC, GCADDD, IADD
105#else
106 INTEGER GCADDI, GCADDF, GCADDL, GCADDC, GCADDD
107#endif
108*
109 IF(CHCOMM.EQ.'GCASHO') THEN
110 IADD=GCADDF(ZMED)
111 ELSE IF(CHCOMM.EQ.'IQ') THEN
112 IADD=GCADDI(LQ(8))
113 ELSE IF(CHCOMM.EQ.'LQ') THEN
114 IADD=GCADDF(FENDQ(16))
115 ELSE IF(CHCOMM.EQ.'GCCURS') THEN
116 IADD=GCADDI(INTFLA)
117 ELSE IF(CHCOMM.EQ.'GCCUTS') THEN
118 IADD=GCADDF(CUTGAM)
119 ELSE IF(CHCOMM.EQ.'GCDRAW') THEN
120 IADD=GCADDI(NUMNOD)
121 ELSE IF(CHCOMM.EQ.'GCFDIM') THEN
122 IADD=GCADDI(NPROC)
123 ELSE IF(CHCOMM.EQ.'GCFLAG') THEN
124 IADD=GCADDI(IDEBUG)
125 ELSE IF(CHCOMM.EQ.'GCGOBJ') THEN
126 IADD=GCADDI(IST)
127 ELSE IF(CHCOMM.EQ.'GCBLIM') THEN
128 IADD=GCADDI(IHOLE)
129 ELSE IF(CHCOMM.EQ.'GCHIL2') THEN
130 IADD=GCADDI(LARETT)
131 ELSE IF(CHCOMM.EQ.'GCHILN') THEN
132 IADD=GCADDI(LARECG)
133 ELSE IF(CHCOMM.EQ.'GCHVIR') THEN
134 IADD=GCADDI(JVIRT)
135 ELSE IF(CHCOMM.EQ.'GCJLOC') THEN
136 IADD=GCADDI(NJLOC)
137 ELSE IF(CHCOMM.EQ.'GCJLCK') THEN
138 IADD=GCADDI(NJLCK)
139 ELSE IF(CHCOMM.EQ.'GCJUMP') THEN
140 IADD=GCADDI(JUDCAY)
141 ELSE IF(CHCOMM.EQ.'GCKINE') THEN
142 IADD=GCADDI(IKINE)
143 ELSE IF(CHCOMM.EQ.'GCKING') THEN
144 IADD=GCADDI(KCASE)
145 ELSE IF(CHCOMM.EQ.'GCKIN2') THEN
146 IADD=GCADDI(NGPHOT)
147 ELSE IF(CHCOMM.EQ.'GCKIN3') THEN
148 IADD=GCADDF(GPOS)
149 ELSE IF(CHCOMM.EQ.'GCLINK') THEN
150 IADD=GCADDI(JDIGI)
151 ELSE IF(CHCOMM.EQ.'GCLIST') THEN
152 IADD=GCADDI(NHSTA)
153 ELSE IF(CHCOMM.EQ.'GCLUND') THEN
154 IADD=GCADDI(IFLUND)
155 ELSE IF(CHCOMM.EQ.'GCMATE') THEN
156 IADD=GCADDI(NMAT)
157 ELSE IF(CHCOMM.EQ.'GCMULO') THEN
158 IADD=GCADDF(SINMUL)
159 ELSE IF(CHCOMM.EQ.'GCMUTR') THEN
160 IADD=GCADDI(NCVOLS)
161 ELSE IF(CHCOMM.EQ.'GCMUTC') THEN
162 IADD=GCADDC(GNASH)
163 ELSE IF(CHCOMM.EQ.'GCMZFO') THEN
164 IADD=GCADDI(IOMATE)
165 ELSE IF(CHCOMM.EQ.'GCNUM') THEN
166 IADD=GCADDI(NMATE)
167 ELSE IF(CHCOMM.EQ.'GCOMIS') THEN
168 IADD=GCADDI(KUINIT)
169 ELSE IF(CHCOMM.EQ.'GCONST') THEN
170 IADD=GCADDF(PI)
171 ELSE IF(CHCOMM.EQ.'GCOPTI') THEN
172 IADD=GCADDI(IOPTIM)
173 ELSE IF(CHCOMM.EQ.'GCPARA') THEN
174 IADD=GCADDF(EPSIX0)
175 ELSE IF(CHCOMM.EQ.'GCPARM') THEN
176 IADD=GCADDI(IPARAM)
177 ELSE IF(CHCOMM.EQ.'GCPHNR') THEN
178 IADD=GCADDI(IGNRFN)
179 ELSE IF(CHCOMM.EQ.'GCPHPR') THEN
180 IADD=GCADDF(GFLUPR)
181 ELSE IF(CHCOMM.EQ.'GCPHRD') THEN
182 IADD=GCADDF(GPHRAT)
183 ELSE IF(CHCOMM.EQ.'GCPXRN') THEN
184 IADD=GCADDC(CRNGUP)
185 ELSE IF(CHCOMM.EQ.'GCPXCF') THEN
186 IADD=GCADDF(COFS)
187 ELSE IF(CHCOMM.EQ.'GCPHYS') THEN
188 IADD=GCADDI(IPAIR)
189 ELSE IF(CHCOMM.EQ.'GCPHLT') THEN
190 IADD=GCADDI(ILABS)
191 ELSE IF(CHCOMM.EQ.'GCPIXE') THEN
192 IADD=GCADDI(LIMPRE)
193 ELSE IF(CHCOMM.EQ.'GCPOLY') THEN
194 IADD=GCADDI(IZSEC)
195 ELSE IF(CHCOMM.EQ.'GCPUSH') THEN
196 IADD=GCADDI(NCVERT)
197 ELSE IF(CHCOMM.EQ.'GCRAYT') THEN
198 IADD=GCADDI(INTEN)
199 ELSE IF(CHCOMM.EQ.'GCRZ1') THEN
200 IADD=GCADDI(NRECRZ)
201 ELSE IF(CHCOMM.EQ.'GCRZ2') THEN
202 IADD=GCADDC(RZTAGS)
203 ELSE IF(CHCOMM.EQ.'GCSCAL') THEN
204 IADD=GCADDI(ISLINK)
205 ELSE IF(CHCOMM.EQ.'GCSCAN') THEN
206 IADD=GCADDL(SCANFL)
207 ELSE IF(CHCOMM.EQ.'GCSCAC') THEN
208 IADD=GCADDC(SFIN)
209 ELSE IF(CHCOMM.EQ.'GCSETS') THEN
210 IADD=GCADDI(IHSET)
211 ELSE IF(CHCOMM.EQ.'GCSHPT') THEN
212 IADD=GCADDI(NSHLST)
213 ELSE IF(CHCOMM.EQ.'GCSPEE') THEN
214 IADD=GCADDF(S1)
215 ELSE IF(CHCOMM.EQ.'GCSTAK') THEN
216 IADD=GCADDI(NJTMAX)
217 ELSE IF(CHCOMM.EQ.'GCSTRA') THEN
218 IADD=GCADDF(EMAX)
219 ELSE IF(CHCOMM.EQ.'GCTIME') THEN
220 IADD=GCADDF(TIMINT)
221 ELSE IF(CHCOMM.EQ.'GCTMED') THEN
222 IADD=GCADDI(NUMED)
223 ELSE IF(CHCOMM.EQ.'GCTRAK') THEN
224 IADD=GCADDF(VECT)
225 ELSE IF(CHCOMM.EQ.'GCTPOL') THEN
226 IADD=GCADDF(POLAR)
227 ELSE IF(CHCOMM.EQ.'GCUNIT') THEN
228 IADD=GCADDI(LIN)
229 ELSE IF(CHCOMM.EQ.'GCURSB') THEN
230 IADD=GCADDI(NUMNDS)
231 ELSE IF(CHCOMM.EQ.'GCVDMA') THEN
232 IADD=GCADDI(NVMANY)
233 ELSE IF(CHCOMM.EQ.'GCVOL1') THEN
234 IADD=GCADDI(NLEVL1)
235 ELSE IF(CHCOMM.EQ.'GCVOL2') THEN
236 IADD=GCADDI(NLEVE2)
237 ELSE IF(CHCOMM.EQ.'GCVOLU') THEN
238 IADD=GCADDI(NLEVEL)
239 ELSE IF(CHCOMM.EQ.'GCXLUN') THEN
240 IADD=GCADDI(LUNIT)
241 ELSE IF(CHCOMM.EQ.'GFKDIS') THEN
242 IADD=GCADDF(ZINE)
243 ELSE IF(CHCOMM.EQ.'GSECTI') THEN
244 IADD=GCADDF(AIEL)
245 ELSE IF(CHCOMM.EQ.'GCTLIT') THEN
246 IADD=GCADDF(THRIND)
247 ELSE IF(CHCOMM.EQ.'QUEST') THEN
248 IADD=GCADDI(IQUEST)
249 ELSE IF(CHCOMM.EQ.'ERTRIO') THEN
250 IADD=GCADDD(ERDTRP)
251 ELSE IF(CHCOMM.EQ.'EROPTS') THEN
252 IADD=GCADDF(ERPLI)
253 ELSE IF(CHCOMM.EQ.'EROPTC') THEN
254 IADD=GCADDC(CHOPTI)
255 ELSE IF(CHCOMM.EQ.'ERWORK') THEN
256 IADD=GCADDD(EI)
257 ELSE IF(CHCOMM.EQ.'GCBANK') THEN
258 IADD=GCADDI(NZEBRA)
259 ELSE
260 WRITE(6,123) CHCOMM
261 IADD=0
262 ENDIF
263*
264 123 FORMAT(' *** GCOMAD: cannot load common ',A)
265 END