This routine removes all layers from the first calorimeter traversed by the track and outwards.
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.
LAYLIS : as above, but modified to remove layers beyond first calorimeter layer (including that layer).
none
none
(To check if layer IS a Calorimeter (Barrel))
(To check if layer IS a Calorimeter (Forward))
(To DELete LaYers)