gpamela/gpcdes/gptotr.inc

*
* $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
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gptotr.inc
8			*
9			*CMZ : 3.00/00 25/01/2002 13.34.47 by Marialuigia Ambriola
10			*-- Author : Marialuigia Ambriola 06/04/2001
11			C #
12			C # Common block to store the Transition Radiation meaningful variables.
13			C # To be filled up in GPUSTEP and stored in the CWNtuple
14			C #
15			C # NPHLAY = Number of converted photons pre layer
16			C # ENLAY = Energy released per layer, KeV
17			C # ENTRTOT= Total energy released in the TRD
18			C # NPHTOTR= Total number of converted photons
19			C # 28/9/2001:
20			C # ENTRSTRAW(32,32)
21			C # NTRSTRAW(32,32)
22			C # 22/02/2002
23			C # ALFATR = Tuning parameter for Transition Radiation Process.
24
25			INTEGER NPHTOTR,NPHLAY,NTRSTRAW,NPHTR
26			REAL ENTRTOT,ENLAY,ENTRSTRAW,ALFATR,ENPHTR
27			LOGICAL TROK
28			COMMON /GPTOTR/ENTRTOT,ENLAY(18),ENTRSTRAW(32,32),
29			+ ALFATR,ENPHTR,NPHTOTR,NPHLAY(18),
30			+ NTRSTRAW(32,32),NPHTR,TROK