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	pamelats	1.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