1 |
* |
2 |
* $Id: gpsed.inc,v 3.4 2006/05/02 11:13:41 pam-ba Exp $ |
3 |
* |
4 |
* $Log: gpsed.inc,v $ |
5 |
* Revision 3.4 2006/05/02 11:13:41 pam-ba |
6 |
* TOF geometry and position updated and a new material, the mylar, added |
7 |
* |
8 |
* Revision 3.3 2006/04/09 23:29:00 cafagna |
9 |
* Several new things, among this: ND and CARD |
10 |
* |
11 |
* Revision 3.2 2005/06/21 02:42:17 cafagna |
12 |
* Major modification to the geometry and to the random number chain |
13 |
* |
14 |
* Revision 3.1.1.1 2002/07/11 16:02:00 cafagna |
15 |
* First GPAMELA release on CVS |
16 |
* |
17 |
* |
18 |
* |
19 |
* gpsed.inc |
20 |
* |
21 |
*CMZ : 3.00/00 28/03/2001 19.49.01 by Marialuigia Ambriola |
22 |
*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola |
23 |
*CMZ : 2.00/00 22/02/2000 18.01.18 by Francesco Cafagna |
24 |
*CMZ : 1.02/00 21/10/99 16.32.09 by Francesco Cafagna |
25 |
*CMZ : 1.00/02 15/03/96 16.23.08 by Francesco Cafagna |
26 |
*-- Author : Francesco Cafagna 13/02/96 |
27 |
c$$$<<<<<<< gpsed.inc |
28 |
PARAMETER (NSET=11, NSDET=3) |
29 |
INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD, |
30 |
+ NVSPE ,NVCAL ,NVCALI,ISS1,IDS11Y,IDS12X,ISS2, |
31 |
+ IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X, |
32 |
+ ISS4,IDS4,ISTRD,IDTRSI, |
33 |
c$$$ ======= |
34 |
c$$$ PARAMETER (NSET=14, NSDET=3) |
35 |
c$$$ INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD, |
36 |
c$$$c ml: 27/10/04 |
37 |
c$$$c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21, |
38 |
c$$$ + NVSPE ,NVCAL ,NVCALI,NVND, |
39 |
c$$$ + ISS11,IDS11YISS12,IDS12X,ISS21, |
40 |
c$$$c end ml. |
41 |
c$$$ + IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X, |
42 |
c$$$ + ISS4,IDS4,ISTRD , |
43 |
c$$$>>>>>>> 3.3 |
44 |
+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS , |
45 |
+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA, |
46 |
+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI |
47 |
* |
48 |
CHARACTER*4 CNSED |
49 |
* |
50 |
COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS, |
51 |
c$$$<<<<<<< gpsed.inc |
52 |
+ NVSPE ,NVCAL,NVCALI,NVND,ISS1,IDS11Y,IDS12X,ISS2, |
53 |
+ IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X, |
54 |
+ ISS4,IDS4,ISTRD,IDTRSI, |
55 |
c$$$======= |
56 |
c$$$c ml: 27/10/04: |
57 |
c$$$c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21, |
58 |
c$$$ + NVSPE ,NVCAL,NVCALI,NVND, |
59 |
c$$$ + ISS11,IDS11Y,ISS12,IDS12X,ISS21, |
60 |
c$$$c ml. |
61 |
c$$$ + IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X, |
62 |
c$$$ + ISS4,IDS4,ISTRD , |
63 |
c$$$>>>>>>> 3.3 |
64 |
+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS , |
65 |
+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA, |
66 |
+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI, |
67 |
+ CNSED(NSET,NSDET) |
68 |
* |