1 |
* |
* |
2 |
* $Id: gpsed.inc,v 3.3 2006/04/09 23:29:00 cafagna Exp $ |
* $Id: gpsed.inc,v 3.4 2006/05/02 11:13:41 pam-ba Exp $ |
3 |
* |
* |
4 |
* $Log: gpsed.inc,v $ |
* $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 |
* Revision 3.3 2006/04/09 23:29:00 cafagna |
9 |
* Several new things, among this: ND and CARD |
* Several new things, among this: ND and CARD |
10 |
* |
* |
24 |
*CMZ : 1.02/00 21/10/99 16.32.09 by Francesco Cafagna |
*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 |
*CMZ : 1.00/02 15/03/96 16.23.08 by Francesco Cafagna |
26 |
*-- Author : Francesco Cafagna 13/02/96 |
*-- Author : Francesco Cafagna 13/02/96 |
27 |
<<<<<<< gpsed.inc |
c$$$<<<<<<< gpsed.inc |
28 |
PARAMETER (NSET=14, NSDET=3) |
PARAMETER (NSET=11, NSDET=3) |
29 |
INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD, |
INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD, |
30 |
+ NVSPE ,NVCAL ,NVCALI,ISS1,IDS11Y,IDS12X,ISS2, |
+ NVSPE ,NVCAL ,NVCALI,ISS1,IDS11Y,IDS12X,ISS2, |
31 |
+ IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X, |
+ IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X, |
32 |
+ ISS4,IDS4,ISTRD,IDTRSI, |
+ ISS4,IDS4,ISTRD,IDTRSI, |
33 |
======= |
c$$$ ======= |
34 |
PARAMETER (NSET=14, NSDET=3) |
c$$$ PARAMETER (NSET=14, NSDET=3) |
35 |
INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD, |
c$$$ INTEGER NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD, |
36 |
c ml: 27/10/04 |
c$$$c ml: 27/10/04 |
37 |
c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21, |
c$$$c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21, |
38 |
+ NVSPE ,NVCAL ,NVCALI,NVND, |
c$$$ + NVSPE ,NVCAL ,NVCALI,NVND, |
39 |
+ ISS11,IDS11YISS12,IDS12X,ISS21, |
c$$$ + ISS11,IDS11YISS12,IDS12X,ISS21, |
40 |
c end ml. |
c$$$c end ml. |
41 |
+ IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X, |
c$$$ + IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X, |
42 |
+ ISS4,IDS4,ISTRD , |
c$$$ + ISS4,IDS4,ISTRD , |
43 |
>>>>>>> 3.3 |
c$$$>>>>>>> 3.3 |
44 |
+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS , |
+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS , |
45 |
+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA, |
+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA, |
46 |
+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI |
+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI |
48 |
CHARACTER*4 CNSED |
CHARACTER*4 CNSED |
49 |
* |
* |
50 |
COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS, |
COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS, |
51 |
<<<<<<< gpsed.inc |
c$$$<<<<<<< gpsed.inc |
52 |
+ NVSPE ,NVCAL,NVCALI,NVND,ISS1,IDS11Y,IDS12X,ISS2, |
+ NVSPE ,NVCAL,NVCALI,NVND,ISS1,IDS11Y,IDS12X,ISS2, |
53 |
+ IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X, |
+ IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X, |
54 |
+ ISS4,IDS4,ISTRD,IDTRSI, |
+ ISS4,IDS4,ISTRD,IDTRSI, |
55 |
======= |
c$$$======= |
56 |
c ml: 27/10/04: |
c$$$c ml: 27/10/04: |
57 |
c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21, |
c$$$c + NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21, |
58 |
+ NVSPE ,NVCAL,NVCALI,NVND, |
c$$$ + NVSPE ,NVCAL,NVCALI,NVND, |
59 |
+ ISS11,IDS11Y,ISS12,IDS12X,ISS21, |
c$$$ + ISS11,IDS11Y,ISS12,IDS12X,ISS21, |
60 |
c ml. |
c$$$c ml. |
61 |
+ IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X, |
c$$$ + IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X, |
62 |
+ ISS4,IDS4,ISTRD , |
c$$$ + ISS4,IDS4,ISTRD , |
63 |
>>>>>>> 3.3 |
c$$$>>>>>>> 3.3 |
64 |
+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS , |
+ IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS , |
65 |
+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA, |
+ IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA, |
66 |
+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI, |
+ ISCAL,IDCASI,IDCAST,ISND,IDNDTI, |