1 |
pamela |
1.1 |
* |
2 |
|
|
* $Id: gpencal.inc,v 3.r3 02/21/2003 09:00 $ |
3 |
|
|
|
4 |
|
|
* gpencal.inc |
5 |
|
|
* |
6 |
|
|
*-- Author : Marialuigia Ambriola 02/21/2003 |
7 |
|
|
C # |
8 |
|
|
C # Common block to store the relesead energy in each strip of the calorimeter. |
9 |
|
|
C # |
10 |
|
|
C # ENEMAT(44,9,32) = Energy released in each strip of each module (keV). |
11 |
|
|
C # They are 32 strips for module. |
12 |
|
|
C # (filled in gpucal.F). |
13 |
|
|
C # ENEPROVA(44,96) = Energy released in each strip of each plane. Here the |
14 |
|
|
C # strips/plane are 96 as in the real detector (keV). This matrix is |
15 |
|
|
C # calculated using the matrix ENEMAT in gpdcal.F. |
16 |
|
|
|
17 |
|
|
REAL ENEMAT,ENEPROVA |
18 |
|
|
* |
19 |
|
|
COMMON /GPENCAL/ENEMAT(44,9,32),ENEPROVA(44,96) |
20 |
|
|
|