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