Parent Directory
| 
Revision Log
Test pamVMC
| 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 |