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	nikolas	1.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