*
* $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)