CERN Program Library Long Writeup W5013 - CERNLIB ...

+SEQ /GCUNIT/
Description of logical units
C
COMMON/GCUNIT/LIN,LOUT,NUNITS,LUNITS(5)
INTEGER LIN,LOUT,NUNITS,LUNITS
COMMON/GCMAIL/CHMAIL
CHARACTER*132 CHMAIL
LIN
LOUT
NUNITS
LUNITS
CHMAIL
input unit to read data records;
output unit;
number of additional units;
list of additional units;
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.
+SEQ /GCVOLU/
Current geometrical information
C
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)
NLEVEL
NAMES
NUMBER
LVOLUM
LINDEX
INFROM
NLEVMX
NLDEV
LINMX
GTRAN
GRMAT
GONLY
GLX
level in the geometrical tree reached by the last successful search;
volume names at each level in the current tree (ASCII codes stored in an integer, 4 characters
per word);
volume copy or division numbers at each level in the tree;
volume numbers in the JVOLU bank at each level in the tree;
number of the daughter where the current track is at each level in the tree;
daughter of the current volume from which the particle exited;
maximum number of levels in the geometry tree;
number of the volumes at each level whose structure has been developed;
number of positioned contents or cells from division at each level;
x,y,z offsets of the cumulative coordinate transformation from the master system to the system
at each level;
rotation matrix elements for the cumulative transformation from the master system to the system
at each level; GRMAT(10, LEVEL)=0indicates the null rotation;
flag indicating if the volume is ONLY (1) or MANY (0) at each level in the tree;
current point in local coordinates system (local use only!).
+SEQ /GCVOL2/
Back-up for /GCVOLU/
The variables have the same meaning of the variables in common /GCVOLU/ with similar names.
444 ZZZZ010 – 27