gpamela/gpcdes/gpencal.inc

*
* $Id: gpencal.inc,v 3.r3 02/21/2003 09:00 $

* gpencal.inc
*
*-- Author :    Marialuigia Ambriola   02/21/2003
C #
C # Common block to store the relesead energy in each strip of the calorimeter.
C #
C # ENEMAT(44,9,32) = Energy released in each strip of each module (keV). 
C #                   They are 32 strips for module.
C # (filled in gpucal.F). 
C # ENEPROVA(44,96)  = Energy released in each strip of each plane. Here the
C # strips/plane are 96 as in the real detector (keV). This matrix is
C # calculated using the matrix ENEMAT in gpdcal.F.

      REAL ENEMAT,ENEPROVA
*
      COMMON /GPENCAL/ENEMAT(44,9,32),ENEPROVA(44,96)
      
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