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