gpamela/gpcdes/gpsed.inc

*
* $Id: gpsed.inc,v 3.2 2005/06/21 02:42:17 cafagna Exp $
*
* $Log: gpsed.inc,v $
* Revision 3.2  2005/06/21 02:42:17  cafagna
* Major modification to the geometry and to the random number chain
*
* Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
* First GPAMELA release on CVS
*
*
*
* gpsed.inc
*
*CMZ :  3.00/00 28/03/2001  19.49.01  by  Marialuigia Ambriola
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 22/02/2000  18.01.18  by  Francesco Cafagna
*CMZ :  1.02/00 21/10/99  16.32.09  by  Francesco Cafagna
*CMZ :  1.00/02 15/03/96  16.23.08  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   13/02/96
      PARAMETER  (NSET=14, NSDET=3)
      INTEGER    NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD,
c ml: 27/10/04
c    +           NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,
     +           NVSPE ,NVCAL ,NVCALI,NVND,
     +           ISS11,IDS11YISS12,IDS12X,ISS21,
c end ml.
     +           IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,
     +           ISS4,IDS4,ISTRD ,
     +           IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
     +           IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
     +           ISCAL,IDCASI,IDCAST,ISND,IDNDTI
*
      CHARACTER*4 CNSED
*
      COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,
c ml: 27/10/04:
c    +               NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,
     +               NVSPE ,NVCAL,NVCALI,NVND,
     +               ISS11,IDS11Y,ISS12,IDS12X,ISS21,
c ml.
     +               IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,
     +               ISS4,IDS4,ISTRD ,
     +               IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
     +               IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
     +               ISCAL,IDCASI,IDCAST,ISND,IDNDTI,
     +               CNSED(NSET,NSDET)
*
1	cafagna	3.1	*
2	cafagna	3.3	* $Id: gpsed.inc,v 3.2 2005/06/21 02:42:17 cafagna Exp $
3	cafagna	3.2	*
4			* $Log: gpsed.inc,v $
5	cafagna	3.3	* Revision 3.2 2005/06/21 02:42:17 cafagna
6			* Major modification to the geometry and to the random number chain
7			*
8	cafagna	3.2	* Revision 3.1.1.1 2002/07/11 16:02:00 cafagna
9			* First GPAMELA release on CVS
10	cafagna	3.1	*
11			*
12			*
13			* gpsed.inc
14			*
15			*CMZ : 3.00/00 28/03/2001 19.49.01 by Marialuigia Ambriola
16			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
17			*CMZ : 2.00/00 22/02/2000 18.01.18 by Francesco Cafagna
18			*CMZ : 1.02/00 21/10/99 16.32.09 by Francesco Cafagna
19			*CMZ : 1.00/02 15/03/96 16.23.08 by Francesco Cafagna
20			*-- Author : Francesco Cafagna 13/02/96
21	cafagna	3.3	PARAMETER (NSET=14, NSDET=3)
22			INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD,
23	cafagna	3.2	c ml: 27/10/04
24			c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,
25	cafagna	3.3	+ NVSPE ,NVCAL ,NVCALI,NVND,
26			+ ISS11,IDS11YISS12,IDS12X,ISS21,
27	cafagna	3.2	c end ml.
28	cafagna	3.1	+ IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,
29			+ ISS4,IDS4,ISTRD ,
30	cafagna	3.2	+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
31	cafagna	3.3	+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
32			+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI
33	cafagna	3.1	*
34			CHARACTER*4 CNSED
35			*
36			COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,
37	cafagna	3.2	c ml: 27/10/04:
38			c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,
39	cafagna	3.3	+ NVSPE ,NVCAL,NVCALI,NVND,
40			+ ISS11,IDS11Y,ISS12,IDS12X,ISS21,
41	cafagna	3.2	c ml.
42	cafagna	3.1	+ IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,
43			+ ISS4,IDS4,ISTRD ,
44	cafagna	3.2	+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
45	cafagna	3.3	+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
46			+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI,
47	cafagna	3.1	+ CNSED(NSET,NSDET)
48			*