src/f77/gpbegin.F

      SUBROUTINE GPBEGIN
* This was written for zeroing arrays before each event
*
#include "gpstripspe.inc"
*#include "gprspe.inc"
*
* clean strip structure for SPE
*

*
      DO I=1,NPLANES
         DO II=1,NSENSORS
            DO III=1,NSTRIPX
               PROXTANTI(I,II,III)=0.
            ENDDO
            DO III=1,NSTRIPY
               PROYTANTI(I,II,III)=0.
            ENDDO
         ENDDO
      ENDDO
*
C prepare the vector for the global strip position to be filled runtime
C
      DO I=1,NPLANES
         DO II=1,NSENSORS
            DO III=1,NSTRIPX
               GLOBSTRIPX(I,II,III)=0.
            ENDDO
            DO III=1,NSTRIPY
               GLOBSTRIPY(I,II,III)=0.
            ENDDO
         ENDDO
      ENDDO
c
      END
1	SUBROUTINE GPBEGIN
2	* This was written for zeroing arrays before each event
3	*
4	#include "gpstripspe.inc"
5	*#include "gprspe.inc"
6	*
7	* clean strip structure for SPE
8	*
9
10	*
11	DO I=1,NPLANES
12	DO II=1,NSENSORS
13	DO III=1,NSTRIPX
14	PROXTANTI(I,II,III)=0.
15	ENDDO
16	DO III=1,NSTRIPY
17	PROYTANTI(I,II,III)=0.
18	ENDDO
19	ENDDO
20	ENDDO
21	*
22	C prepare the vector for the global strip position to be filled runtime
23	C
24	DO I=1,NPLANES
25	DO II=1,NSENSORS
26	DO III=1,NSTRIPX
27	GLOBSTRIPX(I,II,III)=0.
28	ENDDO
29	DO III=1,NSTRIPY
30	GLOBSTRIPY(I,II,III)=0.
31	ENDDO
32	ENDDO
33	ENDDO
34	c
35	END