gpamela/gpcdes/gptofb.inc

*
* $Id$
*
* $Log$
*
*
* gptofb.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  16.44.36  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   14/02/96
*
* Common with CWN variable for TBST and TBPL detector
*
*
      INTEGER NTHTOFB,IBTPAR,IBTPAD
      REAL  XBTPAD,YBTPAD,ZBTPAD,
C     +      XOBTPAD,YOBTPAD,ZOBTPAD,
     +      ERBTPAD,PABTPAD
      COMMON /GPCTOFB/ NTHTOFB,IBTPAR(NHMTOF),IBTPAD(NHMTOF),
     +                XBTPAD(NHMTOF),YBTPAD(NHMTOF),ZBTPAD(NHMTOF),
C     +                XOBTPAD(NHMTOF),YOBTPAD(NHMTOF),ZOBTPAD(NHMTOF),
     +                ERBTPAD(NHMTOF),PABTPAD(NHMTOF)
*
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gptofb.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 16.44.36 by Francesco Cafagna
13	*-- Author : Francesco Cafagna 14/02/96
14	*
15	* Common with CWN variable for TBST and TBPL detector
16	*
17	*
18	INTEGER NTHTOFB,IBTPAR,IBTPAD
19	REAL XBTPAD,YBTPAD,ZBTPAD,
20	C + XOBTPAD,YOBTPAD,ZOBTPAD,
21	+ ERBTPAD,PABTPAD
22	COMMON /GPCTOFB/ NTHTOFB,IBTPAR(NHMTOF),IBTPAD(NHMTOF),
23	+ XBTPAD(NHMTOF),YBTPAD(NHMTOF),ZBTPAD(NHMTOF),
24	C + XOBTPAD(NHMTOF),YOBTPAD(NHMTOF),ZOBTPAD(NHMTOF),
25	+ ERBTPAD(NHMTOF),PABTPAD(NHMTOF)
26	*