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
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
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
43 EQUIVALENCE (JPCOMS,JUINIT)
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"
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
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
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"
95 #include "geant321/ertrio.inc"
96 #include "geant321/eropts.inc"
97 #include "geant321/erwork.inc"
100 COMMON / QUEST / IQUEST(100)
102 CHARACTER *(*) CHCOMM
103 #if defined(CERNLIB_DECS)
104 INTEGER*8 GCADDI, GCADDF, GCADDL, GCADDC, GCADDD, IADD
106 INTEGER GCADDI, GCADDF, GCADDL, GCADDC, GCADDD
109 IF(CHCOMM.EQ.'GCASHO') THEN
111 ELSE IF(CHCOMM.EQ.'IQ') THEN
113 ELSE IF(CHCOMM.EQ.'LQ') THEN
114 IADD=GCADDF(FENDQ(16))
115 ELSE IF(CHCOMM.EQ.'GCCURS') THEN
117 ELSE IF(CHCOMM.EQ.'GCCUTS') THEN
119 ELSE IF(CHCOMM.EQ.'GCDRAW') THEN
121 ELSE IF(CHCOMM.EQ.'GCFDIM') THEN
123 ELSE IF(CHCOMM.EQ.'GCFLAG') THEN
125 ELSE IF(CHCOMM.EQ.'GCGOBJ') THEN
127 ELSE IF(CHCOMM.EQ.'GCBLIM') THEN
129 ELSE IF(CHCOMM.EQ.'GCHIL2') THEN
131 ELSE IF(CHCOMM.EQ.'GCHILN') THEN
133 ELSE IF(CHCOMM.EQ.'GCHVIR') THEN
135 ELSE IF(CHCOMM.EQ.'GCJLOC') THEN
137 ELSE IF(CHCOMM.EQ.'GCJLCK') THEN
139 ELSE IF(CHCOMM.EQ.'GCJUMP') THEN
141 ELSE IF(CHCOMM.EQ.'GCKINE') THEN
143 ELSE IF(CHCOMM.EQ.'GCKING') THEN
145 ELSE IF(CHCOMM.EQ.'GCKIN2') THEN
147 ELSE IF(CHCOMM.EQ.'GCKIN3') THEN
149 ELSE IF(CHCOMM.EQ.'GCLINK') THEN
151 ELSE IF(CHCOMM.EQ.'GCLIST') THEN
153 ELSE IF(CHCOMM.EQ.'GCLUND') THEN
155 ELSE IF(CHCOMM.EQ.'GCMATE') THEN
157 ELSE IF(CHCOMM.EQ.'GCMULO') THEN
159 ELSE IF(CHCOMM.EQ.'GCMUTR') THEN
161 ELSE IF(CHCOMM.EQ.'GCMUTC') THEN
163 ELSE IF(CHCOMM.EQ.'GCMZFO') THEN
165 ELSE IF(CHCOMM.EQ.'GCNUM') THEN
167 ELSE IF(CHCOMM.EQ.'GCOMIS') THEN
169 ELSE IF(CHCOMM.EQ.'GCONST') THEN
171 ELSE IF(CHCOMM.EQ.'GCOPTI') THEN
173 ELSE IF(CHCOMM.EQ.'GCPARA') THEN
175 ELSE IF(CHCOMM.EQ.'GCPARM') THEN
177 ELSE IF(CHCOMM.EQ.'GCPHNR') THEN
179 ELSE IF(CHCOMM.EQ.'GCPHPR') THEN
181 ELSE IF(CHCOMM.EQ.'GCPHRD') THEN
183 ELSE IF(CHCOMM.EQ.'GCPXRN') THEN
185 ELSE IF(CHCOMM.EQ.'GCPXCF') THEN
187 ELSE IF(CHCOMM.EQ.'GCPHYS') THEN
189 ELSE IF(CHCOMM.EQ.'GCPHLT') THEN
191 ELSE IF(CHCOMM.EQ.'GCPIXE') THEN
193 ELSE IF(CHCOMM.EQ.'GCPOLY') THEN
195 ELSE IF(CHCOMM.EQ.'GCPUSH') THEN
197 ELSE IF(CHCOMM.EQ.'GCRAYT') THEN
199 ELSE IF(CHCOMM.EQ.'GCRZ1') THEN
201 ELSE IF(CHCOMM.EQ.'GCRZ2') THEN
203 ELSE IF(CHCOMM.EQ.'GCSCAL') THEN
205 ELSE IF(CHCOMM.EQ.'GCSCAN') THEN
207 ELSE IF(CHCOMM.EQ.'GCSCAC') THEN
209 ELSE IF(CHCOMM.EQ.'GCSETS') THEN
211 ELSE IF(CHCOMM.EQ.'GCSHPT') THEN
213 ELSE IF(CHCOMM.EQ.'GCSPEE') THEN
215 ELSE IF(CHCOMM.EQ.'GCSTAK') THEN
217 ELSE IF(CHCOMM.EQ.'GCSTRA') THEN
219 ELSE IF(CHCOMM.EQ.'GCTIME') THEN
221 ELSE IF(CHCOMM.EQ.'GCTMED') THEN
223 ELSE IF(CHCOMM.EQ.'GCTRAK') THEN
225 ELSE IF(CHCOMM.EQ.'GCTPOL') THEN
227 ELSE IF(CHCOMM.EQ.'GCUNIT') THEN
229 ELSE IF(CHCOMM.EQ.'GCURSB') THEN
231 ELSE IF(CHCOMM.EQ.'GCVDMA') THEN
233 ELSE IF(CHCOMM.EQ.'GCVOL1') THEN
235 ELSE IF(CHCOMM.EQ.'GCVOL2') THEN
237 ELSE IF(CHCOMM.EQ.'GCVOLU') THEN
239 ELSE IF(CHCOMM.EQ.'GCXLUN') THEN
241 ELSE IF(CHCOMM.EQ.'GFKDIS') THEN
243 ELSE IF(CHCOMM.EQ.'GSECTI') THEN
245 ELSE IF(CHCOMM.EQ.'GCTLIT') THEN
247 ELSE IF(CHCOMM.EQ.'QUEST') THEN
249 ELSE IF(CHCOMM.EQ.'ERTRIO') THEN
251 ELSE IF(CHCOMM.EQ.'EROPTS') THEN
253 ELSE IF(CHCOMM.EQ.'EROPTC') THEN
255 ELSE IF(CHCOMM.EQ.'ERWORK') THEN
257 ELSE IF(CHCOMM.EQ.'GCBANK') THEN
264 123 FORMAT(' *** GCOMAD: cannot load common ',A)