gpamela/gpcdes/gptofm.inc

*
* $Id$
*
* $Log$
*
*
* gptofm.inc
*
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.02/00 10/03/97  12.52.14  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  15.52.53  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   14/02/96
*
* Common with CWN variable for TMST and TMPL detector
*
      INTEGER NTHTOFM,IMTPAR,IMTPAD
      REAL  XMTPAD,YMTPAD,ZMTPAD,
C     +      XOMTPAD,YOMTPAD,ZOMTPAD,
     +      ERMTPAD,PAMTPAD
      COMMON /GPCTOFM/ NTHTOFM,IMTPAR(NHMTOF),IMTPAD(NHMTOF),
     +                XMTPAD(NHMTOF),YMTPAD(NHMTOF),ZMTPAD(NHMTOF),
C     +                XOMTPAD(NHMTOF),YOMTPAD(NHMTOF),ZOMTPAD(NHMTOF),
     +                ERMTPAD(NHMTOF),PAMTPAD(NHMTOF)
*
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gptofm.inc
8			*
9			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
10			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
11			*CMZ : 1.02/00 10/03/97 12.52.14 by Francesco Cafagna
12			*CMZ : 1.00/02 04/04/96 15.52.53 by Francesco Cafagna
13			*-- Author : Francesco Cafagna 14/02/96
14			*
15			* Common with CWN variable for TMST and TMPL detector
16			*
17			INTEGER NTHTOFM,IMTPAR,IMTPAD
18			REAL XMTPAD,YMTPAD,ZMTPAD,
19			C + XOMTPAD,YOMTPAD,ZOMTPAD,
20			+ ERMTPAD,PAMTPAD
21			COMMON /GPCTOFM/ NTHTOFM,IMTPAR(NHMTOF),IMTPAD(NHMTOF),
22			+ XMTPAD(NHMTOF),YMTPAD(NHMTOF),ZMTPAD(NHMTOF),
23			C + XOMTPAD(NHMTOF),YOMTPAD(NHMTOF),ZOMTPAD(NHMTOF),
24			+ ERMTPAD(NHMTOF),PAMTPAD(NHMTOF)
25			*