next up previous contents
Next: 4.4.56 SUBROUTINE ZTFOLL(MOMENT, CHA, Up: 4.4 Patch SGVTRKER : Previous: 4.4.54 SUBROUTINE ZTNOLM(ON_OFF) :   Contents


4.4.55 SUBROUTINE ZTINI(STEER, RR,PRDET,PLDET) : Tracking Initialisation

Initialise the tracking package by reading detector geometries (up to 3 different, can be increased to 9 by replacing NGEOM in ZXSIZ and recompiling the libraries) from external files.

ARGUMENTS:
INPUT :
    STEER : Steering info. Here values in row 3 are used:
                  STEER(3,0)   : Number of detector setups.
                         ,4)   : 0.0 -> don't generate brems and photon
                                 conversions in the tracking detectors.
                                 1.0 -> do generate brems and photon
                                 conversions in the tracking detectors.
                         ,5)   : Minimum electron momentum to generate
                                 brems
    RR   : Offset in radius. This will be added to all radii, to
           avoid numerical problems at radius 0.
    PRDET : If .TRUE., print the detector geometry after loading
    PLDET : If .TRUE., print the detector geometry if a form
            suitable for plotting in PAW
IMPLICIT INPUTS:
    From logical units 51 through 53 :
      Detector geometries 1 through 3
IMPLICIT OUTPUTS:
    To /ZTBAR/ (Barrel tracking geometry) : all variables.
    To /ZTFWD/ (Forward tracking geometry) : all variables.
    To /ZTBAC/ (Barrel calorimeter geometry) : all variables.
    To /ZTFWC/ (Forward calorimeter geometry) : all variables.
    To /ZTGPT/ (pointer in ZTBAR and ZTFWD) : all variables.
    To /PXCONS/ : pi and BMAG, the magnetic field.
    To /ZTSEL/ : RREF, reference radius; ZREF, reference z.
CALLED BY :
ZDORD, Detector simulation ORDers. (see 4.3.2). ZAINI, Analysis Initialisation (if requested) (see 4.5.3).

CALLED ROUTINE(S):
none

SIDE EFFECTS:
Units 51 to 50+NGEO, will be opened read and closed. If the format of any of these file is incorrect, or if any of the files does not exist, an error arrises.

AUTHORS:
M. Berggren, UFRJ

CREATION DATE:
07-APR-1995



Mikael Berggren 2003-03-27