/[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.2 by cafagna, Tue Jun 21 02:42:17 2005 UTC revision 3.5 by pam-ba, Tue May 2 11:44:49 2006 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpsed.inc,v 3.1.1.1 2002/07/11 16:02: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
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  * Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
15  * First GPAMELA release on CVS  * First GPAMELA release on CVS
16  *  *
# Line 15  Line 24 
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        PARAMETER  (NSET=12, NSDET=3)  c$$$<<<<<<< gpsed.inc
28        INTEGER    NVTOF,NVS4,NVTRD,NVCAT,NVCAS,        PARAMETER  (NSET=11, NSDET=3)
29  c ml: 27/10/04        INTEGER    NVTOF,NVS4,NVTRD,NVCAT,NVCAS,NVCARD,
30  c    +           NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,       +           NVSPE ,NVCAL ,NVCALI,ISS1,IDS11Y,IDS12X,ISS2,
31       +           NVSPE ,NVCAL ,NVCALI,ISS11,IDS11YISS12,IDS12X,ISS21,       +           IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X,
32  c end ml.       +           ISS4,IDS4,ISTRD,IDTRSI,
33       +           IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,  c$$$ =======
34       +           ISS4,IDS4,ISTRD ,  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 ,       +           IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
45       +           IDCASX,IDCASY,ISSPE ,IDTSPA,ISCAL,IDCASI,IDCAST       +           IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
46         +           ISCAL,IDCASI,IDCAST,ISND,IDNDTI
47  *  *
48        CHARACTER*4 CNSED        CHARACTER*4 CNSED
49  *  *
50        COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,        COMMON /GPCSED/ NVTOF,NVS4,NVTRD,NVCAT,NVCAS,
51  c ml: 27/10/04:  c$$$<<<<<<< gpsed.inc
52  c    +               NVSPE ,NVCAL ,ISS11,IDS11X,ISS12,IDS12Y,ISS21,       +               NVSPE ,NVCAL,NVCALI,NVND,ISS1,IDS11Y,IDS12X,ISS2,
53       +             NVSPE ,NVCAL,NVCALI,ISS11,IDS11Y,ISS12,IDS12X,ISS21,       +               IDS21X,IDS22Y,ISS3A,IDS31Y,IDS32X,
54  c ml.       +               ISS4,IDS4,ISTRD,IDTRSI,
55       +               IDS21X,ISS22,IDS22Y,ISS31,IDS31Y,ISS32,IDS32X,  c$$$=======
56       +               ISS4,IDS4,ISTRD ,  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 ,       +               IDTRSO,ISCAT ,IDCATL,IDCATT,ISCAS ,
65       +               IDCASX,IDCASY,ISSPE ,IDTSPA,ISCAL ,IDCASI,IDCAST,       +               IDCASX,IDCASY,ISCARD,IDCAR1,IDCAR2,ISSPE ,IDTSPA,
66         +               ISCAL,IDCASI,IDCAST,ISND,IDNDTI,
67       +               CNSED(NSET,NSDET)       +               CNSED(NSET,NSDET)
68  *  *
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.5
  ViewVC Help
Powered by ViewVC 1.1.23