5 * Revision 1.1.1.1 1995/10/24 10:21:55 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
12 SUBROUTINE CLEAR(L,L1,L2)
13 C THIS ROUTINE ZEROS ARRAY L FROM
14 C STARTING POINT L1 TO ENDING POINT L2
16 IF(L2-L1.LT.0)GO TO 20