include/f77/gprspe.inc

*
* $Id: gprspe.inc,v 3.1 2005/12/06 01:08:13 cafagna Exp $
*
* $Log: gprspe.inc,v $
* Revision 3.1  2005/12/06 01:08:13  cafagna
* Adding new magnetic field routines
*
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpdspe.inc
*
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*-- Author :    Sergio Bottai   30/05/05
*
* Parameters for spe hit resolution
*
      INTEGER NDHIRES,NBINANG
      PARAMETER(NDHIRES=1000,NBINANG=11)
      REAL XMULT1_2,XMULT3,XRMSHMS,VANG,WX,WY,ANGLECUT
      COMMON/RESSPE/XMULT1_2(NBINANG),XMULT3(NBINANG),XRMSHMS(NBINANG),
     + VANG(12),WX(NDHIRES,NBINANG),WY(NDHIRES,NBINANG),ANGLECUT
1	*
2	* $Id: gprspe.inc,v 3.1 2005/12/06 01:08:13 cafagna Exp $
3	*
4	* $Log: gprspe.inc,v $
5	* Revision 3.1 2005/12/06 01:08:13 cafagna
6	* Adding new magnetic field routines
7	*
8	* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
9	* First GPAMELA release on CVS
10	*
11	*
12	*
13	* gpdspe.inc
14	*
15	*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
16	*-- Author : Sergio Bottai 30/05/05
17	*
18	* Parameters for spe hit resolution
19	*
20	INTEGER NDHIRES,NBINANG
21	PARAMETER(NDHIRES=1000,NBINANG=11)
22	REAL XMULT1_2,XMULT3,XRMSHMS,VANG,WX,WY,ANGLECUT
23	COMMON/RESSPE/XMULT1_2(NBINANG),XMULT3(NBINANG),XRMSHMS(NBINANG),
24	+ VANG(12),WX(NDHIRES,NBINANG),WY(NDHIRES,NBINANG),ANGLECUT