gpamela/gpcdes/gpcal.inc

*
* $Id: gpcal.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $
*
* $Log: gpcal.inc,v $
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpcal.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 22/10/99  16.31.02  by  Francesco Cafagna
*CMZ :  1.00/02 13/03/96  17.29.46  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   14/02/96
*
* Common with CWN variable for CASI
*
      INTEGER NTHCAL,ICAPL,ICASI,ICAST
      REAL  XINCAL,YINCAL,ZINCAL,ERELCAL
C Ml: 14/03/2003
      INTEGER ICASTRIP,ICAPLANE,ICAMOD
      REAL ENESTRIP
C end Ml. 14/03/2003     
      COMMON /GPCCASI/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL),
     +                XINCAL(NHMCAL),YINCAL(NHMCAL),
     +                ZINCAL(NHMCAL),ERELCAL(NHMCAL),
C Ml: 14/03/2003
     +                ICASTRIP(NHMCAL),ICAPLANE(NHMCAL),
     +                ICAMOD(NHMCAL),ENESTRIP(NHMCAL)
C end Ml 14/03/2003
*
1	*
2	* $Id: gpcal.inc,v 3.1.1.1 2002/07/11 16:01:59 cafagna Exp $
3	*
4	* $Log: gpcal.inc,v $
5	* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
6	* First GPAMELA release on CVS
7	*
8	*
9	*
10	* gpcal.inc
11	*
12	*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
13	*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
14	*CMZ : 1.02/00 22/10/99 16.31.02 by Francesco Cafagna
15	*CMZ : 1.00/02 13/03/96 17.29.46 by Francesco Cafagna
16	*-- Author : Francesco Cafagna 14/02/96
17	*
18	* Common with CWN variable for CASI
19	*
20	INTEGER NTHCAL,ICAPL,ICASI,ICAST
21	REAL XINCAL,YINCAL,ZINCAL,ERELCAL
22	C Ml: 14/03/2003
23	INTEGER ICASTRIP,ICAPLANE,ICAMOD
24	REAL ENESTRIP
25	C end Ml. 14/03/2003
26	COMMON /GPCCASI/ NTHCAL,ICAPL(NHMCAL),ICASI(NHMCAL),ICAST(NHMCAL),
27	+ XINCAL(NHMCAL),YINCAL(NHMCAL),
28	+ ZINCAL(NHMCAL),ERELCAL(NHMCAL),
29	C Ml: 14/03/2003
30	+ ICASTRIP(NHMCAL),ICAPLANE(NHMCAL),
31	+ ICAMOD(NHMCAL),ENESTRIP(NHMCAL)
32	C end Ml 14/03/2003
33	*