/[PAMELA software]/PamVMC_update/trk/src/f77/gpbegin.F
ViewVC logotype

Annotation of /PamVMC_update/trk/src/f77/gpbegin.F

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (hide annotations) (download) (vendor branch)
Tue Oct 15 15:51:25 2013 UTC (11 years, 2 months ago) by formato
Branch: MAIN, rel
CVS Tags: reltag, HEAD
Changes since 1.1: +0 -0 lines
PamVMC update

1 formato 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

  ViewVC Help
Powered by ViewVC 1.1.23