Other user accessed common blocks

GCCUTSTracking thresholds

      COMMON/GCCUTS/CUTGAM,CUTELE,CUTNEU,CUTHAD,CUTMUO,BCUTE,BCUTM
     +             ,DCUTE ,DCUTM ,PPCUTM,TOFMAX,GCUTS(5)
C

CUTGAM

threshold for gamma transport ( 0.001, CUTS);

CUTELE

threshold for electron and positron transport ( 0.001, CUTS);

CUTNEU

threshold for neutral hadron transport ( 0.01, CUTS);

CUTHAD

threshold for charged hadron and ion transport ( 0.01, CUTS);

CUTMUO

threshold for muon transport ( 0.01, CUTS);

BCUTE

threshold for photons produced by electron bremsstrahlung ( CUTGAM, CUTS);

BCUTM

threshold for photons produced by muon bremsstrahlung ( CUTGAM, CUTS);

DCUTE

threshold for electrons produced by electron $\delta$ -rays ( CUTELE, CUTS);

DCUTM

threshold for electrons produced by muon or hadron $\delta$ -rays ( CUTELE, CUTS);

PPCUTM

threshold for direct pair production by muon ( 0.002, CUTS);

TOFMAX

threshold on time of flight counted from primary interaction time ( $1010$ , CUTS);

GCUTS

free for user applications ( CUTS).

GCDRAWVariables used by the drawing package

      COMMON/GCDRAW/NUMNOD,MAXNOD,NUMND1,LEVVER,LEVHOR,MAXV,IPICK,
     + MLEVV,MLEVH,NWCUT,JNAM,JMOT,JXON,JBRO,JDUP,JSCA,JDVM,JPSM,
     + JNAM1,JMOT1,JXON1,JBRO1,JDUP1,JSCA1,JULEV,JVLEV,
     + LOOKTB(16),
     + GRMAT0(10),GTRAN0(3),IDRNUM,GSIN(41),GCOS(41),SINPSI,COSPSI,
     + GTHETA,GPHI,GPSI,GU0,GV0,GSCU,GSCV,NGVIEW,
     + ICUTFL,ICUT,CTHETA,CPHI,DCUT,NSURF,ISURF,
     + GZUA,GZVA,GZUB,GZVB,GZUC,GZVC,PLTRNX,PLTRNY,
     + LINATT,LINATP,ITXATT,ITHRZ,IPRJ,DPERS,ITR3D,IPKHIT,IOBJ,LINBUF,
     + MAXGU,MORGU,MAXGS,MORGS,MAXTU,MORTU,MAXTS,MORTS,
     + IGU,IGS,ITU,ITS,NKVIEW,IDVIEW,
     + NOPEN,IGMR,IPIONS,ITRKOP,IHIDEN,
     + ZZFU,ZZFV,MYISEL,
     + DDUMMY(15)
C

NUMNOD

number of nodes in non-optimized tree;

MAXNOD

max. number of nodes of non-optimized tree ( MIN(NLEFT, 16,000));

NUMND1

number of nodes in optimized tree;

LEVVER

vertical level in the tree currently scanned by tree routines;

LEVHOR

horizontal node in the tree currently scanned by tree routines;

MAXV

max vertical levels in the tree to be scanned by tree routines;

IPICK

node selected by GDTREE;

MLEVV

number of vertical levels in the last tree scanned;

MLEVH

number of horizontal nodes in the last tree scanned;

NWCUT

max. workspace allocated by cut routines, ( 5000);

JNAM-JVLEV

pointers used by the tree routines;

LOOKTB

colour look-up table, ( LOOKTB(I)=I,I=1,16);

GRMAT0

rotation matrix saved by GDRVOL, ( unitary matrix);

GTRAN0

translation vector saved by GDRVOL, ( 0.,0.,0.);

IDRNUM

flag for GDRAW, set to 1 when called by GDRVOL ( 0);

GSIN

sine table (at $9○$ steps);

GCOS

cosine table (at $9○$ steps);

SINPSI

SIN(GPSI*DEGRAD);

COSPSI

COS(GPSI DEGRAD);

GTHETA

$\theta$ angle of the parallel projection of 3-dimensional images on the screen ($45○$ );

GPHI

$\phi$ angle of the parallel projection of 3-dimensional images on the screen ($135○$ );

GPSI

$\psi$ angle of rotation of the image on the screen ($0○$ );

GU0

U position (X in screen coordinates) of the origin of the drawing in screen units ( 10.);

GV0

V position (Y in screen coordinates) of the origin of the drawing in screen units ( 10.);

GSCU

scale factor for the U screen coordinate ( 0.015);

GSCV

scale factor for the V screen coordinate ( 0.015);

NGVIEW

flag informing GDFR3D and GD3D3D if the view point has changed ( 0);

ICUTFL

flag informing GDRAW if it was called by cut drawing routines;

ICUT

axis along which the cut is performed (1, 2 or 3, 0 if no cut);

CTHETA

$\theta$ angle of cut supplied to GDRAWX (used by GDCUT);

CPHI

$\phi$ angle of cut supplied to GDRAWX (used by GDCUT);

DCUT

coordinate value (along axis ICUT) at which the cut is performed;

NSURF

number of surfaces stored in SURF to be cut;

ISURF

pointer for array SURF;

GZUA

zoom parameter (horizontal scale factor) ( 1.);

GZVA

zoom parameter (vertical scale factor) ( 1.);

GZUB

zoom parameter ( 0.);

GZVB

zoom parameter ( 0.);

GZUC

zoom parameter ( 0.);

GZVC

zoom parameter ( 0.);

PLTRNX

drawing X range in cm ( 20.);

PLTRNY

drawing Y range in cm ( 20.);

LINATT

current line attributes ( colour=1, width=1, style=1, fill=1);

LINATP

permanent line attributes ( LINATT);

ITXATT

current text attributes ( colour = 1, width = 1);

ITHRZ

string containing the status of THRZ option of GDOPT ( 'OFF ');

IPRJ

string containing the status of PROJ option of GDOPT ( 'PARA');

DPERS

distance of the view point from the origin for perspective drawing ( 1000.);

ITR3D

track being scanned (used together with THRZ option);

IPKHIT

flag for GPHITS, if >0 then print only hit number, ( 0);

IOBJ

type of the object being drawn (detector, track, hit, etc.) ( 0);

LINBUF

flag informing GDRAWV if line buffering is wanted or not ( 0);

MAXGU

current number of words of graphic unit banks;

MORGU

number of words to extend graphic unit banks;

MAXGS

current number of words of graphic segment banks;

MORGS

number of words to extend graphic segment banks;

MAXTU

current number of words of text unit banks;

MORTU

number of words to extend text unit banks;

MAXTS

current number of words of text segment banks;

MORTS

number of words to extend text segment banks;

IGU

pointer to current graphic unit bank;

IGS

pointer to current graphic segment bank;

ITU

pointer to current text unit bank;

ITS

pointer to current text segment bank;

NKVIEW

number of view data banks ( 0);

IGVIEW

current view bank number or 0 if none active ( 0);

NOPEN

unused ( 0);

IGMR

flag informing if APOLLO-GMR is being used ( 0);

IPIONS

unused ( 0);

ITRKOP

string containing the status of TRAK option of GDOPT ( 'LINE');

ZZFU

ZZFV

MYISEL

DDUMMY

array of dummy words;

      COMMON/GCFLAG/IDEBUG,IDEMIN,IDEMAX,ITEST,IDRUN,IDEVT,IEORUN
     +        ,IEOTRI,IEVENT,ISWIT(10),IFINIT(20),NEVENT,NRNDM(2)
      COMMON/GCFLAX/BATCH, NOLOG
      LOGICAL BATCH, NOLOG
C

IDEBUG

flag set internally to 1 to activate debug output if IDEMIN $\le$ IEVENT $\le$ IDEMAX and IEVENT is a multiple of ITEST;

IDEMIN

first event to debug ( DEBU);

IDEMAX

last event to debug ( DEBU);

ITEST

number of events between two activations of the debug printing;

IDRUN

current user run number ( 1, RUNG);

IDEVT

current user event number ( 1, RUNG);

IEORUN

flag to terminate run if non-zero;

IEOTRI

flag to abort current event if non-zero;

IEVENT

current event sequence number ( 1);

ISWIT

user flags, the first three are used by GDEBUG to select the debug output ( 0, SWIT);

IFINIT

internal initialisation flags;

NEVENT

number of events to be processed ( 10000000, TRIG);

NRNDM

initial seeds for the random number generator. If NRNDM(2)=0 the sequence number NRNDM(1) is taken from a predefined set of 215 independent sequences. Otherwise the random number generator is initialised with the two seeds NRNDM(1), NRNDM(2) ( 9876, 54321);

BATCH

true if the job is running in batch; set by the GXINT interactive program;

NOLOG

true if no login kumac file is requested; set by the GXINT interactive program;

      PARAMETER (NTRCG=1)
      PARAMETER (NWB=207,NWREV=100,NWS=1500)
      PARAMETER (C2TOC1=7.7, C3TOC1=2.,TVLIM=1296.)
      COMMON /GCGOBJ/IST,IFCG,ILCG,NTCUR,NFILT,NTNEX,KCGST
     +             ,NCGVOL,IVFUN,IVCLOS,IFACST,NCLAS1,NCLAS2,NCLAS3
      COMMON /CGBLIM/IHOLE,CGXMIN,CGXMAX,CGYMIN,CGYMAX,CGZMIN,CGZMAX
C
C

NTRCG

NWB

NWREV

NWS

C2TOC1

C3TOC1

TVLIM

IST

IFCG

ILCG

NTCUR

NFILT

NTNEX

KCGST

NCGVOL

IVFUN

IVCLOS

IFACST

NCLAS1

NCLAS2

NCLAS3

IHOLE

CGXMIN

CGXMAX

CGYMIN

CGYMAX

CGZMIN

CGZMAX

      COMMON/GCHILN/LARECG(2), JCGOBJ, JCGCOL, JCOUNT, JCLIPS,
     +              IMPOIN, IMCOUN, JSIX, JSIY, JSIZ,
     +              JPXC, JPYC, JPZC, ICLIP1, ICLIP2
*

LARECG

JCGOBJ

JCGCOL

JCOUNT

JCLIPS

IMPOIN

IMCOUN

JSIX

JSIY

JSIZ

JPXC

JPYC

JPZC

ICLIP1

ICLIP2

This common block contains the pointers to various ZEBRA data structures which refer to the current material during tracking.

      COMMON/GCJLOC/NJLOC(2),JTM,JMA,JLOSS,JPROB,JMIXT,JPHOT,JANNI
     +                  ,JCOMP,JBREM,JPAIR,JDRAY,JPFIS,JMUNU,JRAYL
     +                  ,JMULOF,JCOEF,JRANG
C
      COMMON/GCJLCK/NJLCK(2),JTCKOV,JABSCO,JEFFIC,JINDEX,JCURIN
     +                      ,JPOLAR,JTSTRA,JTSTCO,JTSTEN,JTASHO
C
      EQUIVALENCE (JLASTV,JTSTEN)
C

NJLOC

ZEBRA link area control variables;

JTM

tracking medium;

JMA

material;

JLOSS

energy loss table;

JPROB

bank containing some physic constants of the material;

JMIXT

mixture parameters;

JPHOT

photoelectric effect cross-section;

JANNI

positron annihilation cross-section;

JCOMP

Compton effect cross-section;

JBREM

bremsstrahlung cross-section;

JPAIR

photon pair production and muon direct pair production cross-section;

JDRAY

$\delta$ -ray production cross-section;

JPFIS

photo-fission cross-section;

JMUNU

muon-nucleus interaction cross-section;

JRAYL

Rayleigh effect cross-section;

JMULOF

STMIN, see [PHYS010];

JCOEF

bank containing the coefficients of the parabolic range-energy fit;

JRANG

range;

NJLCK

ZEBRA link area control variables;

JTCKOV

Cerenkov photons energy binning;

JABSCO

absorption coefficient;

JEFFIC

quantum efficiency;

JINDEX

refraction index;

JCURIN

Cerenkov angle integral;

JPOLAR

polarisation information;

JTSTRA

top level bank for PAI energy loss fluctuations model;

JTSTCO

coefficients for PAI energy loss fluctuations model;

JTSTEN

energy binning for PAI energy loss fluctuations model;

JTASHO

coefficients for ASHO energy loss fluctuations model;

For more information see [CONS199]. GCJUMPPointers for the jump package Variable JU$...$ contains the address of the routine GU$...$ .

      PARAMETER    (MAXJMP=30)
      COMMON/GCJUMP/JUDCAY, JUDIGI, JUDTIM, JUFLD , JUHADR, JUIGET,
     +              JUINME, JUINTI, JUKINE, JUNEAR, JUOUT , JUPHAD,
     +              JUSKIP, JUSTEP, JUSWIM, JUTRAK, JUTREV, JUVIEW,
     +              JUPARA
      DIMENSION     JMPADR(MAXJMP)
      EQUIVALENCE  (JMPADR(1), JUDCAY)
*

      COMMON/GCKINE/IKINE,PKINE(10),ITRA,ISTAK,IVERT,IPART,ITRTYP
     +      ,NAPART(5),AMASS,CHARGE,TLIFE,VERT(3),PVERT(4),IPAOLD
C

IKINE

user integer word ( 0, KINE);

PKINE

user array of real ( 0, KINE);

ITRA

track number;

ISTAK

stack track number;

IVERT

vertex number;

IPART

particle number;

ITRTYP

particle tracking type;

NAPART

name of current particle (ASCII codes stored in an integer array, 4 characthers per word);

AMASS

mass of current particle in GeV $c-2$ ;

CHARGE

charge of current particle in electron charge unit;

TLIFE

average life time of current particle in seconds;

VERT

coordinates of origin vertex for current track;

PVERT

track kinematics at origin vertex ( PVERT(4) not used);

IPAOLD

particle number of the previous track.

      INTEGER MXGKIN
      PARAMETER (MXGKIN=100)

*
      PARAMETER (MULTRA=50)
      CHARACTER*4 GNASH, GNNVV, GNVNV
      COMMON/GCMUTR/NCVOLS,KSHIFT,NSHIFT,ICUBE,NAIN,JJJ,
     +              NIET,IOLDSU,IVOOLD,IWPOIN,IHPOIN,IVECVO(100),
     +              PORGX,PORGY,PORGZ,POX(15),POY(15),POZ(15),GBOOM,
     +              PORMIR(18),PORMAR(18),IPORNT,
     +              ICGP,CLIPMI(6),CLIPMA(6),
     +              ABCD(4),BMIN(6),BMAX(6),CGB(16000),CGB1(16000),
     +              GXMIN(MULTRA),GXMAX(MULTRA),GYMIN(MULTRA),
     +              GYMAX(MULTRA),GZMIN(MULTRA),GZMAX(MULTRA),
     +              GXXXX(MULTRA),GYYYY(MULTRA),GZZZZ(MULTRA)
*
      COMMON/GCMUTC/   GNASH(MULTRA),GNNVV(MULTRA),GNVNV(MULTRA)
*

NCVOLS

KSHIFT

NSHIFT

ICUBE

NAIN

JJJ

NIET

IOLDSU

IVOOLD

IWPOIN

IHPOIN

IVECVO

PORGX

PORGY

PORGZ

POX

POY

POZ

GBOOM

PORMIR

PORMAR

IPORNT

ICGP

CLIPMI

CLIPMA

ABCD

BMIN

BMAX

CGB

CGB1

GXMIN

GXMAX

GYMIN

GYMAX

GZMIN

GZMAX

GXXXX

GYYYY

GZZZZ

GNASH

GNNVV

GNVNV

+SEQ, GCKMAX
      COMMON/GCKING/KCASE,NGKINE,GKIN(5,MXGKIN),
     +                           TOFD(MXGKIN),IFLGK(MXGKIN)
      INTEGER       KCASE,NGKINE ,IFLGK,MXPHOT,NGPHOT
      REAL          GKIN,TOFD,XPHOT
C
      PARAMETER (MXPHOT=800)
      COMMON/GCKIN2/NGPHOT,XPHOT(11,MXPHOT)
C
      COMMON/GCKIN3/GPOS(3,MXGKIN)
      REAL          GPOS
C

KCASE

Mechanism which has generated the secondary particles;

NGKINE

Number of generated secondaries;

GKIN(1,I)

x component of momentum of $Ith$ particle;

GKIN(2,I)

y component of momentum;

GKIN(3,I)

z component of momentum;

GKIN(4,I)

total energy;

GKIN(5,I)

particle code (see [CONS300]);

TOFD(I)

time offset with respect to current time of flight;

IFLGK(I)

Flag controlling the handling of track by GSKING, GSSTAK;

<0

particle is discarded;

0

( D) particle is stored in the temporary stack JSTAK for further tracking;

1

like 0 but particle is stored in JVERTX/JKINE structure as well;

>1

particle is attached to vertex IFLGK(I).

GPOS(1,I)

x position of $Ith$ particle;

GPOS(2,I)

y position;

GPOS(3,I)

z position;

NGPHOT

number of Cerenkov photons generated in the current step;

XPHOT(1,I)

x position of the $Ith$ photon;

XPHOT(2,I)

y position;

XPHOT(3,I)

z position;

XPHOT(4,I)

x component of momentum;

XPHOT(5,I)

y component of momentum;

XPHOT(6,I)

z component of momentum;

XPHOT(7,I)

momentum of the photon;

XPHOT(8,I)

x component of the polarisation vector;

XPHOT(9,I)

y component of the polarisation vector;

XPHOT(10,I)

z component of the polarisation vector;

XPHOT(11,I)

time of flight in seconds of the photon.

      COMMON/GCLIST/NHSTA,NGET ,NSAVE,NSETS,NPRIN,NGEOM,NVIEW,NPLOT
     +       ,NSTAT,LHSTA(20),LGET (20),LSAVE(20),LSETS(20),LPRIN(20)
     +             ,LGEOM(20),LVIEW(20),LPLOT(20),LSTAT(20)
C

NHSTA

number of histograms on data record HSTA;

NGET

number of data structures on data record GET;

NSAVE

number of data structures on data record SAVE;

NSETS

number of items on data record SETS;

NPRIN

number of items on data record PRIN;

NGEOM

number of items on data record GEOM;

NVIEW

number of items on data record VIEW;

NPLOT

number of items on data record PLOT;

NSTAT

number of items on data record STAT (obsolete);

LHSTA ... LSTAT

lists of items set via the input records ( HSTA ...,STAT).

      COMMON/GCMATE/NMAT,NAMATE(5),A,Z,DENS,RADL,ABSL
C

NMAT

current material number;

NAMATE

name of current material (ASCII codes stored in an integer array, 4 characthers per word);

A

atomic weight of current material;

Z

atomic number of current material;

DENS

density of current material in g $cm-3$ ;

RADL

radiation length of current material;

ABSL

absorption length of current material.

Precomputed quantities for multiple scattering and energy binning for JMATE banks. See also [CONS199] for the energy binning and [PHYS325] for a description of the variables OMCMOL and CHCMOL.

      COMMON/GCMULO/SINMUL(101),COSMUL(101),SQRMUL(101),OMCMOL,CHCMOL
     +  ,EKMIN,EKMAX,NEKBIN,NEK1,EKINV,GEKA,GEKB,EKBIN(200),ELOW(200)
C

SINMUL

not used any more;

COSMUL

not used any more;

SQRMUL

not used any more;

OMCMOL

constant $\Omega$₀ of the Moliére theory;

CHCMOL

$\chi$_cc constant of the Moliére theory;

EKMIN

lower edge of the energy range of the tabulated cross sections ( $10-5$ , ERAN);

EKMAX

upper edge of the energy range of the tabulated cross sections ( $104$ , ERAN);

NEKBIN

number of energy bins to be used ( 90, ERAN);

NEK1

NEKBIN+1;

EKINV

$1/\; (\; log$₁₀(EKMAX)-log₁₀(EKMIN) ) ;

GEKA

NEKBIN*EKINV;

GEKB

1-GEKA*EKBIN(1);

EKBIN

$log(\; ELOW)$ ;

ELOW

low edges of the energy bins.

      COMMON/GCMZFO/IOMATE,IOPART,IOTMED,IOSEJD,IOSJDD,IOSJDH,IOSTAK
     +             ,IOMZFO(13)
C

IOMATE

I/O descriptor for the JMATE bank;

IOPART

I/O descriptor for the JPART bank;

IOTMED

I/O descriptor for the JTMED bank;

IOSEJD

I/O descriptor for the detector banks;

IOSJDD

I/O descriptor for the second dependent bank of the detector banks;

IOSJDH

I/O descriptor for the first dependent bank of the detector banks;

IOSTAK

I/O descriptor for the JSTAK bank;

IOMZFO

free I/O descriptors.

      COMMON/GCNUM/NMATE ,NVOLUM,NROTM,NTMED,NTMULT,NTRACK,NPART
     +            ,NSTMAX,NVERTX,NHEAD,NBIT
      COMMON /GCNUMX/ NALIVE,NTMSTO
C

NMATE

number of material banks;

NVOLUM

number of volume banks;

NROTM

number of rotation matrix banks;

NTMED

number of tracking media banks;

NTMULT

total number of tracks processed in current event (including secondaries);

NTRACK

number of tracks in the JKINE bank for current event;

NPART

maximum particle code;

NSTMAX

maximum number of tracks ( high-water mark) in stack JSTAK for current event;

NVERTX

number of vertices in JVERTX bank for current event;

NHEAD

number of data words in the JHEAD bank ( 10);

NBIT

number of bits per word (initialised in GINIT via ZEBRA);

NALIVE

number of particles to be tracked in the parallel tracking stack (this mode of tracking is disabled in the current GEANT version);

NTMSTO

total number of tracks tracked in the current event so far. Same as NTMULT in /GCTRAK/;

      COMMON/GCOMIS/ICOMIS,JUINIT,JUGEOM,JUKINE,JUSTEP,JUOUT,JULAST
*

ICOMIS

flag to avoid a double initialisation of COMIS;

GCONSTBasic constants See next section for the value of these parameters.

      COMMON/GCONST/PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
      COMMON/GCONSX/EMMU,PMASS,AVO
C

PI

$\pi$ ;

TWOPI

$2\pi$ ;

PIBY2

$\pi /2$ ;

DEGRAD

degrees to radiants conversion factor ($\pi /180$ );

RADDEG

radiants to degrees conversion factor ($180/\pi$ );

CLIGHT

light velocity in cm $s-1$ ;

BIG

arbitrary large number;

EMASS

electron mass in GeV $c-2$ ;

EMMU

muon mass in GeV $c-2$ ;

PMASS

proton mass in GeV $c-2$ ;

AVO

Avogadro's number $x10-24$ .

GCONSPBasic constants These parameters are in SINGLE PRECISION on 64 bits machines.

      DOUBLE PRECISION PI,TWOPI,PIBY2,DEGRAD,RADDEG,CLIGHT,BIG,EMASS
      DOUBLE PRECISION EMMU,PMASS,AVO
*
      PARAMETER (PI=3.14159265358979324D0)
      PARAMETER (TWOPI=6.28318530717958648D0)
      PARAMETER (PIBY2=1.57079632679489662D0)
      PARAMETER (DEGRAD=0.0174532925199432958D0)
      PARAMETER (RADDEG=57.2957795130823209D0)
      PARAMETER (CLIGHT=29979245800.D0)
      PARAMETER (BIG=10000000000.D0)
      PARAMETER (EMASS=0.0005109990615D0)
      PARAMETER (EMMU=0.105658387D0)
      PARAMETER (PMASS=0.9382723128D0)
      PARAMETER (AVO=0.60221367D0)
*

      COMMON/GCOPTI/ IOPTIM
C

IOPTIM

Optimisation flag

-1

no optimisation at all; GSORD calls disabled;

0

no optimisation; only user calls to GSORD kept;

1

all non-GSORDered volumes are ordered along the best axis;

2

all volumes are ordered along the best axis.

      INTEGER    BITPHI, BITTET, BITPOT
      LOGICAL    SYMPHI, SYMTEU, SYMTED
      PARAMETER (LSTACK = 5000)
C     BITPOT is for Phi.Or.Tet
C
C ---------------------------------------------------------
      COMMON    /GCPARA/
     +                   EPSIX0 (LSTACK)       ,
     +                   IDRPHI (LSTACK     )  , IDRTET (LSTACK     ),
     +                   IDROUT (LSTACK     )  , JPLOST (LSTACK     ),
     +                   IPHTMP (LSTACK     )  ,
     +                   BITPHI (LSTACK     )  , BITTET (LSTACK     ),
     +                   BITPOT (LSTACK     )  , JJLOST, JJFILL,
     +                                           JENTRY, JEMPTY,
     +                                           EPSMAX,
     +                   JJTEMP, JJWORK        , JJSTK1,
     +                   J1TEMP,                 J1STK1,
     +                   IFOUNP, IFOUNT        , IFNPOT,
     +                                           SYMPHI,
     +                   SYMTEU, SYMTED
C

LSTACK

dimension of the energy ray stack;

JJLOST

number of energy rays lost in each tracking step;

EPSMAX

maximum number of radiation lengths that an energy ray can travel;

JJTEMP

temporary pointer;

JJWORK

actual size of the energy ray stack;

JJSTK1

J1TEMP

J1STK1

IFOUNP

Number of energy rays that change cell in $\phi$

direction;

IFOUNT

Number of energy rays that change cell in $\theta$

direction;

IFNPOT

Number of energy rays that change cell either in $\phi$

or in $\theta$ ;

SYMPHI

.TRUE. if PHIMAX-PHIMIN = $360○$ ;

SYMTEU

.TRUE. if TETMIN = $0○$ ;

SYMTED

.TRUE. if TETMAX = $180○$ .

      COMMON/GCPARM/IPARAM,PCUTGA,PCUTEL,PCUTNE,PCUTHA,PCUTMU
     +             ,NSPARA,MPSTAK,NPGENE
      REAL PACUTS(5)
      EQUIVALENCE (PACUTS(1),PCUTGA)
C

IPARAM

Parameterisation flag ( 0, PCUT);

0 =

parameterisation is not in effect, normal tracking will be used;

1 =

parameterisation is in effect;

PCUTGA

parameterisation threshold for photons ( 0., PCUT)

PCUTEL

parameterisation threshold for electrons and positrons ( 0., PCUT);

PCUTNE

parameterisation threshold for neutral hadrons ( 0., PCUT);

PCUTHA

parameterisation threshold for charged hadrons ( 0., PCUT);

PCUTMU

parameterisation threshold for muons ( 0., PCUT);

NSPARA

not used;

MPSTAK

optimum size of the Energy ray stack ( 2000);

NPGENE

number of Energy rays generated per primary particle ( 20);

      COMMON/GCPHYS/IPAIR,SPAIR,SLPAIR,ZINTPA,STEPPA
     +             ,ICOMP,SCOMP,SLCOMP,ZINTCO,STEPCO
     +             ,IPHOT,SPHOT,SLPHOT,ZINTPH,STEPPH
     +             ,IPFIS,SPFIS,SLPFIS,ZINTPF,STEPPF
     +             ,IDRAY,SDRAY,SLDRAY,ZINTDR,STEPDR
     +             ,IANNI,SANNI,SLANNI,ZINTAN,STEPAN
     +             ,IBREM,SBREM,SLBREM,ZINTBR,STEPBR
     +             ,IHADR,SHADR,SLHADR,ZINTHA,STEPHA
     +             ,IMUNU,SMUNU,SLMUNU,ZINTMU,STEPMU
     +             ,IDCAY,SDCAY,SLIFE ,SUMLIF,DPHYS1
     +             ,ILOSS,SLOSS,SOLOSS,STLOSS,DPHYS2
     +             ,IMULS,SMULS,SOMULS,STMULS,DPHYS3
     +             ,IRAYL,SRAYL,SLRAYL,ZINTRA,STEPRA
      COMMON/GCPHLT/ILABS,SLABS,SLLABS,ZINTLA,STEPLA
     +             ,ISYNC
     +             ,ISTRA
*

IPAIR

control variable for the / pair production process;

SPAIR

distance to the next pair production in the current material;

SLPAIR

total distance travelled by the $\gamma$ when pair production occurs;

ZINTPA

number of interaction lengths to the next pair production;

STEPPA

interaction length for pair production for the current material and energy;

ICOMP

control variable for the Compton scattering process;

SCOMP

distance to the next Compton scattering in the current material;

SLCOMP

total distance travelled by the $\gamma$ when Compton scattering occurs;

ZINTCO

number of interaction lengths to the next Compton scattering;

STEPCO

interaction length for Compton scattering for the current material and energy;

IPHOT

control variable for the photoelectric effect process;

SPHOT

distance to the next photoelectric effect in the current material;

SLPHOT

total distance travelled by the $\gamma$ when photoelectric effect occurs;

ZINTPH

number of interaction lengths to the next photoelectric effect;

STEPPH

interaction length for photoelectric effect for the current material and energy;

IPFIS

control variable for the $\gamma$ -induced nuclear fission process;

SPFIS

distance to the next $\gamma$ -induced nuclear fission in the current material;

SLPFIS

total distance travelled by the $\gamma$ when $\gamma$ -induced nuclear fission occurs;

ZINTPF

number of interaction lengths to the next $\gamma$ -induced nuclear fission;

STEPPF

interaction length for $\gamma$ -induced nuclear fission for the current material and energy;

IDRAY

control variable for the $\delta$ -ray production process;

SDRAY

distance to the next $\delta$ -ray production in the current material;

SLDRAY

total distance travelled by the particle when $\delta$ -ray production occurs;

ZINTDR

number of interaction lengths to the next $\delta$ -ray production;

STEPDR

interaction length for $\delta$ -ray production for the current material and energy;

IANNI

control variable for the positron annichilation process;

SANNI

distance to the next positron annichilation in the current material;

SLANNI

total distance travelled by the positron when positron annichilation occurs;

ZINTAN

number of interaction lengths to the next positron annichilation;

STEPAN

interaction length for positron annichilation for the current material and energy;

IBREM

control variable for the bremsstrahlung process;

SBREM

distance to the next bremsstrahlung in the current material;

SLBREM

total distance travelled by the particle when bremsstrahlung occurs;

ZINTBR

number of interaction lengths to the next bremsstrahlung;

STEPBR

interaction length for bremsstrahlung for the current material and energy;

IHADR

control variable for the hadronic interaction process;

SHADR

distance to the next hadronic interaction in the current material;

SLHADR

total distance travelled by the particle when hadronic interaction occurs;

ZINTHA

number of interaction lengths to the next hadronic interaction;

STEPHA

interaction length for hadronic interaction for the current material and energy;

IMUNU

control variable for the $\mu$ nuclear interaction process;

SMUNU

distance to the next $\mu$ nuclear interaction in the current material;

SLMUNU

total distance travelled by the $\mu$ when $\mu$ nuclear interaction occurs;

ZINTMU

number of interaction lengths to the next $\mu$ nuclear interaction;

STEPMU

interaction length for $\mu$ nuclear interaction for the current material and energy;

IDCAY

control variable for the decay in flight process;

SDCAY

distance to the next decay in flight in the current material;

SLIFE

total distance travelled by the particle when decay in flight occurs;

SUMLIF

time to the next interaction point in ct units;

DPHYS1

not used;

ILOSS

control variable for the energy loss process;

SLOSS

step limitation due to continuous processes: energy loss, bending in magnetic field, Cerenkov photon generation and multiple scattering;

SOLOSS

not used;

STLOSS

not used; set equal to STEP for backward compatibility;

DPHYS2

not used;

IMULS

control variable for the energy loss process;

SMULS

maximum step allowed by the multiple scattering simulation;

SOMULS

not used;

STMULS

not used; set equal to step for backward compatibility;

DPHYS3

not used.

ILABS

control variable for the Cerenkov photon absorption process;

SLABS

distance to the next Cerenkov photon absorption process;

SLLABS

not used;

ZINTLA

number of interaction lengths to the next Cerenkov photon absorption process;

STEPLA

interaction length for Cerenkov photon absorption process;

ISYNC

control variable for synchrotron radiation production;

ISTRA

control variable for energy loss fluctuation simulation;

      COMMON/GCPOLY/IZSEC,IPSEC
C

IZSEC

Z section number;

IPSEC

$\phi$ sector number.

      COMMON/GCPUSH/NCVERT,NCKINE,NCJXYZ,NPVERT,NPKINE,NPJXYZ
C

NCVERT

initial size of bank JVERTX ( 5);

NCKINE

initial size of bank JKINE ( 50);

NCJXYZ

initial size of bank JXYZ ( 50);

NPVERT

increment for size of bank JVERTX ( 5);

NPKINE

increment for size of bank JKINE ( 10);

NPJXYZ

increment for size of bank JXYZ ( 10).

      COMMON/GCRZ1/NRECRZ,NRGET,NRSAVE,LRGET(20),LRSAVE(20)
      INTEGER      NRECRZ,NRGET,NRSAVE,LRGET    ,LRSAVE
      COMMON/GCRZ2/RZTAGS
      CHARACTER*8 RZTAGS(4)
C

NRECRZ

record size (argument of RZMAKE);

NRGET

number of data structures declared on data record RGET;

NRSAVE

number of data structures declared on data record RSAV;

LRGET,LRSAVE

corresponding user lists of items;

RZTAGS

key names (argument of RZMAKE).

      PARAMETER(MXSLNK=100)
      COMMON/GCSCAL/ ISLINK(MXSLNK)
      EQUIVALENCE (LSLAST,ISLINK(MXSLNK))
      EQUIVALENCE (LSCAN ,ISLINK(1)),(LSTEMP,ISLINK(2))
      EQUIVALENCE (LSPARA,ISLINK(3)),(LSERAY,ISLINK(4))
*

LSCAN

LSTEMP

LSPARA

LSERAY

LSLAST

      PARAMETER (MSLIST=32,MAXMDT=3)
      COMMON/GCSCAN/SCANFL,NPHI,PHIMIN,PHIMAX,NTETA,TETMIN,TETMAX,
     +              MODTET,IPHIMI,IPHIMA,IPHI1,IPHIL,NSLMAX,
     +              NSLIST,ISLIST(MSLIST),VSCAN(3),FACTX0,FACTL,
     +              FACTR,IPHI,ITETA,ISCUR,SX0,SABS,TETMID(MAXMDT),
     +              TETMAD(MAXMDT)
     +             ,SX0S,SX0T,SABSS,SABST,FACTSF
     +             ,DLTPHI,DLTETA,DPHIM1,DTETM1
     +             ,FCX0M1,FCLLM1,FCRRM1
      LOGICAL SCANFL
      COMMON/GCSCAC/SFIN,SFOUT
      CHARACTER*80 SFIN,SFOUT
*

MSLIST

dimension of ISLIST array ( 32);

MAXMDT

number of $\theta$ division types ( 3);

SCANFL

SCAN flag ( .FALSE., SCAN, STURN);

.TRUE.

creation of SCAN geometry, geantinos will be tracked;

.FALSE.

normal tracking;

NPHI

number of $\phi$ divisions ( 90, SCAN, PHI);

PHIMIN

minimum $\phi$ in degrees ($0○$ , SCAN, PHI);

PHIMAX

maximum $\phi$ in degrees ($360○$ , SCAN, PHI);

NTETA

number of $\theta$ divisions ( 90, SCAN, TETA);

TETMIN

minimum value of $\theta$

($0○$ , SCAN, TETA);

TETMAX

maximum value of $\theta$ (180, SCAN, $\theta$ );

MODTET

type of $\theta$ division (1, SCAN, $\theta$ );

1

$\theta$ is expressed in terms of degrees;

2

$\theta$ is expressed in terms of pseudorapidity;

3

$\theta$ is expressed in terms of $cos(\theta )$ ;

IPHIMI

not used;

IPHIMA

not used;

IPHI1

internal index ( PHIMIN);

IPHIL

internal index ( PHIMAX);

NSLMAX

not used;

NSLIST

number of volumes to be scanned ( 1, SCAL);

ISLIST

list of volumes to be scanned ( SCAL, SLIST);

VSCAN

scan vertex origin ( SCAP, VERTEX);

FACTX0

scale factor for SX0 ( 100., SCAP, SFACTORS);

FACTL

scale factor for SABS ( 10., SCAP, SFACTORS);

FACTR

scale factor for R ( 100., SCAP, SFACTORS);

IPHI

$\phi$ bin of the current cell;

ITETA

$\theta$ bin of the current cell;

ISCUR

pointer in LPHI to first triplet of words for a given ITETA cell;

SX0

sum of radiation lengths up to current R boundary;

SABS

sum of absorption lengths up to current R boundary;

TETMID

bound value for TETMIN ( 0., -10., -1. if MODTET is 1, 2 or 3 respectively);

TETMAD

bound value for TETMAX ( 180., 10., 1. if MODTET is 1, 2 or 3 respectively);

SX0S

sum of radiation lengths for the sensitive mediums in the current cell;

SX0T

sum of radiation lengths in the current cell;

SABSS

sum of absorption lengths for the sensitive mediums in the current cell;

SABST

sum of absorption lengths in the current cell;

FACTSF

scale factor for the sampling fractions ( 1000.);

DLTPHI

bin in $\phi$ , (PHIMAX-PHIMIN)/NPHI;

DLTETA

bin in $\theta$ , (TETMAX-TETMIN)/NTETA;

DPHIM1

$DLTPHI-1$ ;

DTETM1

$DLTETA-1$ ;

FCX0M1

$FACTX0-1$ ;

FCLLM1

$FACTL-1$ ;

FCRRM1

$FACTR-1$ ;

SFIN

not used;

SFOUT

not used.

      COMMON/GSECTI/ AIEL(20),AIIN(20),AIFI(20),AICA(20),ALAM,K0FLAG
C

AIEL

elastic cross-sections. AIEL(I) is the elastic cross-section for the $Ith$ element composing the current material;

AIIN

inelastic cross-sections;

AIFI

fission cross-sections;

AICA

nuclear capture cross-sections;

ALAM

total cross-section;

K0FLAG

obsolete.

      COMMON/GCSETS/IHSET,IHDET,ISET,IDET,IDTYPE,NVNAME,NUMBV(20)
C

IHSET

set identifier, ASCII equivalent of 4 characters;

IHDET

detector identifier, ASCII equivalent of 4 characters;

ISET

position of set in bank JSET;

IDET

position of detector in bank JS=LQ(JSET-ISET);

IDTYPE

user defined detector type;

NVNAME

number of elements in NUMBV;

NUMBV

list of volume copy numbers to identify the detector.

      PARAMETER ( NSBOX=1,  NSTRD1=2, NSTRD2=3, NSTRAP=4, NSTUBE=5,
     +  NSTUBS=6, NSCONE=7, NSCONS=8, NSSPHE=9, NSPARA=10,NSPGON=11,
     +  NSPCON=12,NSELTU=13,NSHYPE=14,NSGTRA=28, NSCTUB=29 )

      COMMON/GCSPEE/S1,S2,S3,SS1,SS2,SS3,LEP,IPORLI,ISUBLI,
     +              SRAGMX,SRAGMN,RAINT1,RAINT2,RMIN1,RMIN2,
     +              RMAX1,RMAX2,JPORJJ,ITSTCU,IOLDCU,ISCOP,
     +              NTIM,NTFLAG,LPASS,JSC
*

S1

S2

S3

SS1

SS2

SS3

LEP

IPORLI

ISUBLI

SRAGMX

SRAGMN

RAINT1

RAINT2

RMIN1

RMIN2

RMAX1

RMAX2

JPORJJ

ITSTCU

IOLDCU

ISCOP

NTIM

NTFLAG

LPASS

JSC

      PARAMETER (NWSTAK=12,NWINT=11,NWREAL=12,NWTRAC=NWINT+NWREAL+5)
      COMMON /GCSTAK/ NJTMAX, NJTMIN, NTSTKP, NTSTKS, NDBOOK, NDPUSH,
     +                NJFREE, NJGARB, NJINVO, LINSAV(15), LMXSAV(15)
C

NWSTAK

NWINT

NWREAL

NWTRAC

NJTMAX

NJTMIN

NTSTKP

NTSTKS

NDBOOK

NDPUSH

NJFREE

NJGARB

NJINVO

LINSAV

LMXSAV

      COMMON/GCTIME/TIMINT,TIMEND,ITIME,IGDATE,IGTIME
C

TIMINT

time reqeusted for the run phase, after initialisation ( TIME, not used);

TIMEND

time requested for program termination phase ( 1, TIME);

ITIME

number of events between two tests of time left ( 1, TIME);

IGDATE

current date in integer format YYMMDD;

IGTIME

current time in integer format HHMM;

      COMMON/GCTMED/NUMED,NATMED(5),ISVOL,IFIELD,FIELDM,TMAXFD,STEMAX
     +      ,DEEMAX,EPSIL,STMIN,CFIELD,PREC,IUPD,ISTPAR,NUMOLD
      COMMON/GCTLIT/THRIND,PMIN,DP,DNDL,JMIN,ITCKOV,IMCKOV,NPCKOV
C

NUMED

current tracking medium number;

NATMED

name of current tracking medium (ASCII codes stored in an integer array, 4 characthers per word);

ISVOL

-1

non-sensitive volume with sensitive volume tracking parameters;

0

non-sensitive volume;

1

sensitive volume;

IFIELD

0

no field;

1

user defined field (GUFLD);

2

user defined field (GUFLD) along z;

3

uniform field ( FIELDM) along z;

FIELDM

maximum field;

TMAXFD

maximum turning angle in one step due to the magnetic field;

STEMAX

maximum step allowed;

DEEMAX

maximum fraction of energy loss in one step due to continuous processes;

EPSIL

boundary crossing accuracy;

STMIN

minimum step size limitation due to: energy loss, multiple scattering, magnetic field bending or, if active, Cerenkov photons production;

CFIELD

constant for field step evaluation;

PREC

effective step for boundary crossing ($0.1\; x$ EPSIL);

IUPD

0

new particle or new medium in current step;

1

no change of medium or particle;

ISTPAR

0

global tracking parameters are used;

1

special tracking parameters are used for this medium;

NUMOLD

number of the previous tracking medium;

THRIND

$\beta -1$ of the current particle;

PMIN

minimum momentum in GeV $c-1$ for the photon transport;

DP

momentum window to generate the photons;

DNDL

number of photons generated per centimeter;

JMIN

pointer to the photon threshold energy bin;

ITCKOV

flag for the Cerenkov photon generation:

0

disactivated;

1

activated;

IMCKOV

flag for the Cerenkov photon generation in current material, same meaning than above;

NPCKOV

number of energy bins for the Cerenkov photons;

      PARAMETER (MAXMEC=30)
      COMMON/GCTRAK/VECT(7),GETOT,GEKIN,VOUT(7),NMEC,LMEC(MAXMEC)
     + ,NAMEC(MAXMEC),NSTEP ,MAXNST,DESTEP,DESTEL,SAFETY,SLENG
     + ,STEP  ,SNEXT ,SFIELD,TOFG  ,GEKRAT,UPWGHT,IGNEXT,INWVOL
     + ,ISTOP ,IGAUTO,IEKBIN, ILOSL, IMULL,INGOTO,NLDOWN,NLEVIN
     + ,NLVSAV,ISTORY
      PARAMETER (MAXME1=30)
      COMMON/GCTPOL/POLAR(3), NAMEC1(MAXME1)
C

VECT

track parameters ($x,y,z,p$_x/p,p_y/p,p_z/p,p );

GETOT

particle total energy;

GEKIN

particle kinetic energy;

VOUT

track parameters at the end of the step, used internally by GEANT;

NMEC

number of mechanisms active for current step;

LMEC

list of mechanism numbers for current step;

NAMEC

list of mechanism names for current step (ASCII codes stored in an integer, 4 characthers per word);

NSTEP

number of steps for current track;

MAXNST

maximum number of steps allowed (10000);

DESTEP

total energy lost in current step;

DESTEL

same as DESTEP, kept for backward compatibility;

SAFETY

underestimated distance to closest medium boundary;

SLENG

current track length;

STEP

size of current tracking step;

SNEXT

distance to current medium boundary along the direction of the particle;

SFIELD

obsolete;

TOFG

current time of flight in seconds;

GEKRAT

interpolation coefficient in the energy table ELOW;

UPWGHT

user word for current particle;

IGNEXT

indicates whether the particles is reaching a medium boundary in the current step:

0

SNEXT has not been computed in current step;

1

SNEXT has been computed in current step: particle is reaching a boundary;

INWVOL

0

track is inside a volume;

1

track has entered a new volume or it is a new track;

2

track is exiting current volume;

3

track is exiting the setup;

ISTOP

0

particle will continue to be tracked;

1

particle has disappeared (decay, inelastic interaction ...);

2

particle has fallen below the cutoff energy or has interacted but no secondaries have been generated;

IGAUTO

0

tracking parameters are given by the user;

1

tracking parameters are calculated by GEANT;

IEKBIN

current kinetic energy bin in table ELOW;

ILOSL

local energy loss flag (see /GCPHYS/);

IMULL

local multiple scattering flag (see /GCPHYS/);

INGOTO

daughter number, in the current mother, which the particle will enter if continuing along a straight line for SNEXT centimeters;

NLDOWN

lowest level reached down the tree (parallel tracking only);

NLEVIN

number of levels currently filled and valid in /GCVOLU/;

NLVSAV

current level (parallel tracking only);

ISTORY

User flag for current track history (reset to 0 in GLTRAC);

POLAR

polarisation vector for current Cerenkov photon;

NAMEC1

additional list of mechanism names for current step (ASCII codes stored in an integer, 4 characthers per word);

      CHARACTER*4 MEC(MAXMEC),MEC1(MAXME1),DFLT(2)
      PARAMETER (LEFTM1=MAXME1-9)
      DATA MEC/'NEXT','MULS','LOSS','FIEL','DCAY','PAIR','COMP','PHOT'
     +        ,'BREM','DRAY','ANNI','HADR','ECOH','EVAP','FISS','ABSO'
     +        ,'ANNH','CAPT','EINC','INHE','MUNU','TOFM','PFIS','SCUT'
     +        ,'RAYL','PARA','PRED','LOOP','NULL','STOP'/
      DATA MEC1/'LABS','LREF','SMAX','SCOR','CKOV','REFL','REFR',
     +          'SYNC','STRA',LEFTM1*'    '/

NEXT 1

particle has reached the boundary of current volume;

MULS 2

multiple scattering;

LOSS 3

continuous energy loss;

FIEL 4

bending in magnetic field;

DCAY 5

particle decay;

PAIR 6

photon pair-production or muon direct pair production;

COMP 7

Compton scattering;

PHOT 8

photoelectric effect;

BREM 9

bremsstrahlung;

DRAY 10

$\delta$ -ray production;

ANNI 11

positron annihilation;

HADR 12

hadronic interaction;

ECOH 13

hadronic elastic coherent scattering;

EVAP 14

nuclear evaporation;

FISS 15

nuclear fission;

ABSO 16

nuclear absorption;

ANNH 17

anti-proton annihilation;

CAPT 18

neutron capture;

EINC 19

hadronic elastic incoherent scattering;

INHE 20

hadronic inelastic scattering;

MUNU 21

muon-nuclear interaction;

TOFM 22

exceeded time of flight cut;

PFIS 23

nuclear photo-fission;

SCUT 24

the particle due to bending in magnetic field was unexpectedly crossing volume boundaries and the step has been halved to avoid this;

RAYL 25

Rayleigh effect;

PARA 26

parametrisation activated;

PRED 27

error matrix computed ( GEANE tracking);

LOOP 28

not used;

NULL 29

no mechanism is active, usually at the entrance of a new volume;

STOP 30

particle has fallen below energy threshold and tracking stops;

LABS 101

Cerenkov photon absorption;

LREF 102

Cerenkov photon reflection/refraction;

SMAX 103

step limited by STEMAX;

SCOR 104

correction against loss of precision in boundary crossing;

CKOV 105

Cerenkov photon generation;

REFL 106

Cerenkov photon reflection;

REFR 107

Cerenkov photon refraction;

SYNC 108

synchrotron radiation generation;

STRA 109

PAI or ASHO model used for energy loss fluctuations.

      COMMON/GCUNIT/LIN,LOUT,NUNITS,LUNITS(5)
      INTEGER LIN,LOUT,NUNITS,LUNITS
      COMMON/GCMAIL/CHMAIL
      CHARACTER*132 CHMAIL
C

LIN

input unit to read data records;

LOUT

output unit;

NUNITS

number of additional units;

LUNITS

list of additional units;

CHMAIL

character string containing the message to be printed by GMAIL.

LIN and LOUT are defined in GINIT through ZEBRA. NUNITS and LUNITS are reserved for user ZEBRA files. GCVOLUCurrent geometrical information

      COMMON/GCVOLU/NLEVEL,NAMES(15),NUMBER(15),
     +LVOLUM(15),LINDEX(15),INFROM,NLEVMX,NLDEV(15),LINMX(15),
     +GTRAN(3,15),GRMAT(10,15),GONLY(15),GLX(3)
C

NLEVEL

level in the geometrical tree reached by the last successful search;

NAMES

volume names at each level in the current tree (ASCII codes stored in an integer, 4 characters per word);

NUMBER

volume copy or division numbers at each level in the tree;

LVOLUM

volume numbers in the JVOLU bank at each level in the tree;

LINDEX

number of the daughter where the current track is at each level in the tree;

INFROM

daughter of the current volume from which the particle exited;

NLEVMX

maximum number of levels in the geometry tree;

NLDEV

number of the volumes at each level whose structure has been developed;

LINMX

number of positioned contents or cells from division at each level;

GTRAN

x,y,z offsets of the cumulative coordinate transformation from the master system to the system at each level;

GRMAT

rotation matrix elements for the cumulative transformation from the master system to the system at each level; $GRMAT(10,LEVEL)=0$ indicates the null rotation;

GONLY

flag indicating if the volume is ONLY (1) or MANY (0) at each level in the tree;

GLX

current point in local coordinates system (local use only!).

      COMMON/GCVOL2/NLEVE2,NAMES2(15),NUMB2(15),
     +LVOL2(15),LIND2(15),INFRO2,NLDEV2(15),LINMX2(15),
     +GTRAN2(3,15),GRMAT2(10,15),GONLY2(15),GLX2(15)
      INTEGER NLEVE2,NAMES2,NUMB2,LVOL2,LIND2,INFRO2,NLDEV2,LINMX2
C

      COMMON/GCXLUN/LUNIT(128)
*

LUNIT

Logical units numbers.

GCCURSCursor position information for interactive graphics

      COMMON/GCCURS/INTFLA,SIZD2,FACHV,HALF,SAVPLX,SAVPLY,YPLT,XPLT
*

INTFLA

SIZD2

FACHV

HALF

SAVPLX

SAVPLY

YPLT

XPLT

GCURSB

      COMMON/GCURSB/NUMNDS,IADDI,NUMND2,NNPAR,IISELT
      COMMON/GCURSC/MOMO
      CHARACTER*4 MOMO
*

NUMNDS

IADDI

NUMND2

NNPAR

IISELT

MOMO

GCSTRAVariables for the PAI energy loss model

      PARAMETER (ILTAB=200)
      COMMON /GCSTR2 / EMAX,EM(200),SFINT,EPSR(ILTAB),EPSI(ILTAB),
     +  FINT(ILTAB),EMIN,EPPS,BETA2,GAMMA2,WP2,S2,MEEV,EMM(200),
     +  GAMLOG(21),NP,NTAB,IE,NFACT,NICOLL
*

EMAX

EM

SFINT

EPSR

EPSI

FINT

EMIN

EPPS

BETA2

GAMMA2

WP2

S2

MEEV

EMM

GAMLOG

NP

NTAB

IE

NFACT

NICOLL

GCASHOVariables for the ASHO energy loss model

      COMMON/GCASHO/ZMED,AMED,DMED,E0MED,ZSMED(50),ESMED(50),ALFA,
     *             STEP,PLIN,PLOG,BE2,PLASM,TRNSMA,
     *             BOSC(50),AOSC(50),EOSC(50),ZOSC(50),EMEAN,
     *             CMGO(2000),EMGO,EMGOMI,
     *             NSMED,IOSC(50),NOSC,NMGO,NMGOMA
C

ZMED

AMED

DMED

E0MED

ZSMED

ESMED

ALFA

STEP

PLIN

PLOG

BE2

PLASM

TRNSMA

BOSC

AOSC

EOSC

ZOSC

EMEAN

CMGO

EMGO

EMGOMI

NSMED

IOSC

NOSC

NMGO

NMGOMA

GCHIL2Temporary ZEBRA link area for the drawing of the geometrical tree

      COMMON/GCHIL2/LARETT(2),JTICK,JMYLL,JFIMOT,JFISCA,JFINAM,
     +              JAASS1,JAASS2,
     +              JAASS3,JAASS4,JTICKS,JMYLLS,JMYMOT
*

LARETT

ZEBRA control variables for the link area;

JTICK

JMYLL

JFIMOT

JFISCA

JFINAM

JAASS1

JAASS2

JAASS3

JAASS4

JTICKS

JMYLLS

JMYMOT

GCVOL1Push-pop stack of the volume tree for Cerenkov tracking These variables are used to save and restore the variables with the similar name in the /GCVOLU/ common block.

      COMMON/GCVOL1/NLEVL1,NAMES1(15),NUMBR1(15),LVOLU1(15)
C

GCLUNDControl variables for the interface with JETSET

      COMMON/GCLUND/IFLUND,ECLUND
C

IFLUND

flavour of the quarks to be generated, first input variable to LUEEVT;

ECLUND

energy in GeV of the collision, second input variable to LUEEVT.

GCPMXZNumber of elements with photoelectric cross-section Number of elements for which the Sandia parametrisation is used for the photoelectric cross-sections.

      PARAMETER (MAXELZ=100)
C

GC10EVLower limit for Sandia parametrisation

      PARAMETER (G10EV=1.0E-8)
      PARAMETER (TENEV=1.E-2)
C

G10EV

lower limit in GeV;

TENEV

lower limit in keV;

GCSHPTShell potentials The meaning of the variables is explained in the comments.

C  Shells are numbered from 1 to 24.
C  Shells used:
C               K,L1,L2,L3,M1,M2,M3,M4,M5
C               N1,N2,N3,N4,N5,N6,N7,
C               O1,O2,O3,O4,O5,P1,P2,P3
C   VARIABLES:
C     NSHLST - value of Z for which the shells starts to be present
C     N1ST   - pointer to K shell of a given Z (in ESHELL array)
C     NSHLLS - Number of used shells for a given Z
C     ESHELL - Shells potentials in eV !!!
      INTEGER LENGTH,MAXSHL
      PARAMETER (LENGTH=  1409)
      PARAMETER (MAXSHL=24)
      INTEGER NSHLST,N1ST,NSHLLS
      REAL ESHELL
      DIMENSION NSHLST(MAXSHL),N1ST(MAXELZ),NSHLLS(MAXELZ)
      DIMENSION ESHELL(LENGTH)
      COMMON /GCSHPT/NSHLST,N1ST,NSHLLS,ESHELL
C

GCPHPRProbability of radiative decay mode

C  Probability of radiative decay mode.
      COMMON /GCPHPR/ GFLUPR(4,MAXELZ)
C

GCPHNRNonradiative decay mode for photoelectric effect

C  INRFIN - nonradiative decay mode
      COMMON /GCPHNR/ IGNRFN(8,MAXELZ)
C

GCPHRDRadiative rates for photoelectric effect

C  GRATE - radiative modes' rates
      PARAMETER (KSHLS=6)
      PARAMETER (L1SHLS=8)
      PARAMETER (L2SHLS=7)
      PARAMETER (L3SHLS=8)
      PARAMETER (ISHLS=29)
      COMMON / GCPHRD / GPHRAT(ISHLS,MAXELZ),ISHLUS(24,4),ISHLTR(ISHLS)
C

GCPHXSSandia parametrisation coefficients

+KEEP,GCPHXS.
      PARAMETER (MAXPOW=4)
      PARAMETER (MAXINT=13)
      CHARACTER*6 CRNGUP
      COMMON /GCPXRN/ CRNGUP(MAXINT,MAXELZ)
      COMMON /GCPXCF/ COFS(MAXPOW,MAXINT,MAXELZ),GPOMIN(MAXELZ)
C

MAXPOW

maximum power of the variable $E-1$ in the parametrisation;

MAXINT

maximum number of parametrisation intervals;

MAXELZ

maximum number of elements included in the parametrisation;

CRNGUP

limits of the energy intervals for the parametrisation;

COFS

coefficients of the parametrisation;

GPOMIN

minimum value of the parametrisation;

F.G.de Bilio

ZZZZ999