*
* $Id$
*
* $Log$
*
*
* gptotr.inc
*
*CMZ :  3.00/00 25/01/2002  13.34.47  by  Marialuigia Ambriola
*-- Author :    Marialuigia Ambriola   06/04/2001
C #
C # Common block to store the Transition Radiation meaningful variables.
C # To be filled up in GPUSTEP and stored in the CWNtuple
C #
C # NPHLAY = Number of converted photons pre layer
C # ENLAY  = Energy released per layer, KeV
C # ENTRTOT= Total energy released in the TRD
C # NPHTOTR= Total number of converted photons
C # 28/9/2001:
C # ENTRSTRAW(32,32)
C # NTRSTRAW(32,32)
C # 22/02/2002
C # ALFATR = Tuning parameter for Transition Radiation Process.

      INTEGER NPHTOTR,NPHLAY,NTRSTRAW,NPHTR
      REAL    ENTRTOT,ENLAY,ENTRSTRAW,ALFATR,ENPHTR
      LOGICAL TROK
      COMMON /GPTOTR/ENTRTOT,ENLAY(18),ENTRSTRAW(32,32),
     +              ALFATR,ENPHTR,NPHTOTR,NPHLAY(18),
     +              NTRSTRAW(32,32),NPHTR,TROK
