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