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