/[PAMELA software]/gpamela/gpcdes/gpsed.inc
ViewVC logotype

Diff of /gpamela/gpcdes/gpsed.inc

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.1.1.1 by cafagna, Thu Jul 11 16:02:00 2002 UTC revision 3.6 by pam-ba, Thu May 18 10:52:32 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gpsed.inc,v 3.5 2006/05/02 11:44:49 pam-ba Exp $
3    *
4    * $Log: gpsed.inc,v $
5    * 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    * 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    * Revision 3.3  2006/04/09 23:29:00  cafagna
12    * Several new things, among this: ND and CARD
13    *
14    * Revision 3.2  2005/06/21 02:42:17  cafagna
15    * Major modification to the geometry and to the random number chain
16    *
17    * Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
18    * First GPAMELA release on CVS
19  *  *
 * $Log$  
20  *  *
21  *  *
22  * gpsed.inc  * gpsed.inc
# Line 12  Line 27 
27  *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
28  *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
29  *-- Author :    Francesco Cafagna   13/02/96  *-- Author :    Francesco Cafagna   13/02/96
30        PARAMETER  (NSET=12, NSDET=3)  c$$$<<<<<<< gpsed.inc
31        INTEGER    NVTOF,NVS4,NVTRD,NVCAT,NVCAS,        PARAMETER  (NSET=11, NSDET=3)
32       +           NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,        INTEGER    NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD,
33       +           IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,       +           NVSPE ,NVCAL ,NVCALI,ISS1,IDS11Y,IDS12X,ISS2,
34       +           ISS4,IDS4,ISTRD ,       +           IDS21X,IDS22Y,ISS3,IDS31Y,IDS32X,
35       +           IDTRSI,IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,       +           ISS4,IDS4,ISTRD,IDTRSI,
36       +           IDCASX,IDCASY,ISSPE ,IDTSPA,ISCAL,IDCASI  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         +           IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
48         +           IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
49         +           ISCAL,IDCASI,IDCAST,ISND,IDNDTI
50  *  *
51        CHARACTER*4 CNSED        CHARACTER*4 CNSED
52  *  *
53        COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,        COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,
54       +               NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,  c$$$<<<<<<< gpsed.inc
55       +               IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,       +               NVSPE ,NVCAL,NVCALI,NVND,ISS1,IDS11Y,IDS12X,ISS2,
56       +               ISS4,IDS4,ISTRD ,       +               IDS21X,IDS22Y,ISS3,IDS31Y,IDS32X,
57       +               IDTRSI,IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,       +               ISS4,IDS4,ISTRD,IDTRSI,
58       +               IDCASX,IDCASY,ISSPE ,IDTSPA,ISCAL ,IDCASI,  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         +               IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
68         +               IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
69         +               ISCAL,IDCASI,IDCAST,ISND,IDNDTI,
70       +               CNSED(NSET,NSDET)       +               CNSED(NSET,NSDET)
71  *  *
Legend:
Removed from v.3.1.1.1  
changed lines
  Added in v.3.6
  ViewVC Help
Powered by ViewVC 1.1.23