4.3.16 SUBROUTINE ZDELLY(REFPSD, LL, LAYLIS) : DELete LaYers

This routine removes all layers from layer LL outwards

ARGUMENTS:

INPUT :

     REFPSD : .TRUE. if reference surface inside layer LL
     LL : last layer to keep in LAYLIS
     LAYLIS : List of detector layers hit by particle :
              LAYLIS(1,i) = number of the i:th hit layer.
                            LAYLIS(2,i) tells if it is a  plane
                            or a cylinder, if it measures or not,
                            and if it is the reference layer.
              LAYLIS(2,i) = 0  : mathematical layer : no material,
                                 no measurement. Ignored in all
                                 calculations
                            1  : seen by a cylinder
                            2  : seen by a plane
                            -1 : particle went through a cylinder, but
                                 was not seen by the detector.
                            -2 : particle went through a plane, but
                                 was not seen by the detector.
                            10 : the layer is a reference cylinder
                            20 : the layer is a reference plane
              LAYLIS(3,i) = No. of radiation lengths in layer.
              LAYLIS(1,i) = -1 -> end of list.

OUTPUT :

     LAYLIS : as above, but modified to remove layers beyond LL.

IMPLICIT INPUTS:

    none

IMPLICIT OUTPUTS:

    none

CALLED BY :

ZDKLCL, KiLl Calorimter Layers (see 4.3.8). ZDBREM, generate BREMsstrahlung (see 4.3.9). ZDPAIR, generate PAIR production (see 4.3.10).

CALLED ROUTINE(S):

none

SIDE EFFECTS:

none

AUTHORS:

M. Berggren, UFRJ

CREATION DATE:

03-may-1996