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