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	*
2	* $Id: gpsed.inc,v 3.2 2005/06/21 02:42:17 cafagna Exp $
3	*
4	* $Log: gpsed.inc,v $
5	* Revision 3.2 2005/06/21 02:42:17 cafagna
6	* Major modification to the geometry and to the random number chain
7	*
8	* Revision 3.1.1.1 2002/07/11 16:02:00 cafagna
9	* First GPAMELA release on CVS
10	*
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	PARAMETER (NSET=14, NSDET=3)
22	INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD,
23	c ml: 27/10/04
24	c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,
25	+ NVSPE ,NVCAL ,NVCALI,NVND,
26	+ ISS11,IDS11YISS12,IDS12X,ISS21,
27	c end ml.
28	+ IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,
29	+ ISS4,IDS4,ISTRD ,
30	+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
31	+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
32	+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI
33	*
34	CHARACTER*4 CNSED
35	*
36	COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,
37	c ml: 27/10/04:
38	c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,
39	+ NVSPE ,NVCAL,NVCALI,NVND,
40	+ ISS11,IDS11Y,ISS12,IDS12X,ISS21,
41	c ml.
42	+ IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,
43	+ ISS4,IDS4,ISTRD ,
44	+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
45	+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
46	+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI,
47	+ CNSED(NSET,NSDET)
48	*