gpamela/gpcdes/gpkey.inc

*
* $Id: gpkey.inc,v 3.10 2006/10/13 16:36:58 pam-ba Exp $
*
* $Log: gpkey.inc,v $
* Revision 3.10  2006/10/13 16:36:58  pam-ba
* Added a new material, the cadmium, for ND
*
* Revision 3.9  2006/05/18 10:52:32  pam-ba
* TOF geometry completed and a new material, the polystyrene (density 35 g/l), added
*
* Revision 3.8  2006/05/02 11:46:13  pam-ba
* TOF geometry and position updated and a new material, the mylar, added
*
* Revision 3.7  2006/04/10 11:07:43  cafagna
* GEN data card updated, ZDGEN added
*
* Revision 3.6  2006/04/09 23:28:58  cafagna
* Several new things, among this: ND and CARD
*
* Revision 3.5  2005/12/20 12:21:04  cafagna
* gpnd directory added along with ND files
*
* Revision 3.4  2005/12/14 03:16:06  cafagna
* Neutron detector added. Geometry and GPCALOR package
*
* Revision 3.3  2005/06/21 02:42:15  cafagna
* Major modification to the geometry and to the random number chain
*
* Revision 3.2  2002/12/05 10:17:42  pamela
* Update CAS and CALO geometries and positions. Makefile updated as well
*
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna
* First GPAMELA release on CVS
*
*
*
* gpkey.inc
*
*               14/04/2005  13:15     by Marialuigia Ambriola
*               03/10/2002  10.46.12  by  Jens Lund
*CMZ :  3.00/00 01/05/2001  16.02.39  by  Marialuigia Ambriola
*CMZ :  2.03/00 06/11/2000  01.58.14  by  Francesco Cafagna
*CMZ :  2.02/00 12/10/2000  16.08.25  by  Francesco Cafagna
*CMZ :  2.01/00 04/04/2000  18.16.35  by  Unknown
*CMZ :  2.00/00 01/03/2000  12.57.55  by  Francesco Cafagna
*CMZ :  1.02/00 22/10/99  13.28.17  by  Francesco Cafagna
*CMZ :  1.01/00 02/05/96  08.57.38  by  Francesco Cafagna
*CMZ :  1.00/03 15/04/96  14.56.38  by  Francesco Cafagna
*CMZ :  1.00/02 05/04/96  11.38.01  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   30/11/95
* COMMON WITH THE USER DEFINITED DATA CARDS
       INTEGER FFIELD,NDET,NCAL,HBOOK,NSPTM,NHPAK,NAUTMED,NHBFILE,
     +         ISSTR,HLON,NCPL,NCSI,NCAB,NDECAS,NDECAT,NDETOF,
     +         NDETRD,NDESPE,NDECAL,NDES4,NDEND,NDECARD,NGARFILE,
     +         NFSFILE,NLSFILE,HSEED
       LOGICAL TOF,TRD,CAT,CAS,SPE,CAL,TS4,ND,CARD,SPH,
     +         HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4,HND,HCARD,
     +         PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4,PND,PCARD,
     +         CALDIV,CALBLOCK,FLUKA,GPCALOR,
     +         ATMAXFD,ASTEMAX,ADEEMAX,AEPSIL,ASTMIN,HLONG,
     +         BTMAXFD,BSTEMAX,BDEEMAX,BSTMIN,BEPSIL,NOCAPL,NOCASI,
     +         NOCAAB
       REAL    VTMAXFD,VSTEMAX,VDEEMAX,VEPSIL,VSTMIN,SSTR,XYZGEN,DZSH
*ML:
       REAL    PHGEN,THGEN
       REAL    TPAL,TG10,TPN2,TPW,TPKA,TPFE,TRAD,TPRO,TPCF,
     +         TPSC,TSCA,TSTR,TPXE,TPAE
*EM:
       REAL    T10C,TPW2,TPCE
*END EM.
*JeL:
       REAL    TPPL
*END JeL.
       REAL    TMYL,TPOL,TCAD,TCH2,THE3,TTAV
*END ML.
       COMMON /GPCKEY/TOF,TRD,CAT,CAS,SPE,CAL,TS4,ND,CARD,SPH,
     +               HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4,HND,HCARD,
     +               PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4,PND,PCARD,
     +               CALDIV,CALBLOCK,FLUKA,GPCALOR,ATMAXFD,ASTEMAX,
     +               ADEEMAX,AEPSIL,ASTMIN,HLONG,BTMAXFD,BSTEMAX,
     +               BDEEMAX,BSTMIN,BEPSIL,NOCAPL(44),NOCASI(9),
     +               NOCAAB(22),
     +               FFIELD,NDET(10),NCAL(3),HBOOK,NSPTM(17),NHPAK,
     +               NAUTMED(5),NHBFILE(21),ISSTR,HLON,NCPL(44),NCSI(9),
     +               NCAB(22),NDECAS(3),NDECAT(3),NDETOF(3),NDETRD(3),
     +               NDESPE(3),NDECAL(3),NDES4(3),NDEND(3),NDECARD(3),
     +               NGARFILE(21),NFSFILE(21),NLSFILE(21),HSEED,
     +               VTMAXFD,VSTEMAX,VDEEMAX,VEPSIL,VSTMIN,
     +               SSTR(2),XYZGEN(6),DZSH,PHGEN(2),THGEN(2),
*ML:
     +               TPAL(5),TG10(5),TPN2(5),TPW(5),TPKA(5),TPFE(5),
     +               TRAD(5),TPRO(5),TPCF(5),TPSC(5),TSCA(5),TSTR(5),
     +               TPXE(5),TPAE(5),
*END ML.
*EM:
     +               TPW2(5),TPCE(5),T10C(5),
*END EM.
*JeL:
     +               TPPL(5),
*END JeL.
     +               TMYL(5),TPOL(5),TCAD(5),TCH2(5),THE3(5),TTAV(5)
*
1	cafagna	3.1	*
2	pam-ba	3.11	* $Id: gpkey.inc,v 3.10 2006/10/13 16:36:58 pam-ba Exp $
3	pamela	3.2	*
4			* $Log: gpkey.inc,v $
5	pam-ba	3.11	* Revision 3.10 2006/10/13 16:36:58 pam-ba
6			* Added a new material, the cadmium, for ND
7			*
8	pam-ba	3.10	* Revision 3.9 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	pam-ba	3.9	* Revision 3.8 2006/05/02 11:46:13 pam-ba
12			* TOF geometry and position updated and a new material, the mylar, added
13			*
14	pam-ba	3.8	* Revision 3.7 2006/04/10 11:07:43 cafagna
15			* GEN data card updated, ZDGEN added
16			*
17	cafagna	3.7	* Revision 3.6 2006/04/09 23:28:58 cafagna
18			* Several new things, among this: ND and CARD
19			*
20	cafagna	3.6	* Revision 3.5 2005/12/20 12:21:04 cafagna
21			* gpnd directory added along with ND files
22			*
23	cafagna	3.5	* Revision 3.4 2005/12/14 03:16:06 cafagna
24			* Neutron detector added. Geometry and GPCALOR package
25			*
26	cafagna	3.4	* Revision 3.3 2005/06/21 02:42:15 cafagna
27			* Major modification to the geometry and to the random number chain
28			*
29	cafagna	3.3	* Revision 3.2 2002/12/05 10:17:42 pamela
30			* Update CAS and CALO geometries and positions. Makefile updated as well
31			*
32	pamela	3.2	* Revision 3.1.1.1 2002/07/11 16:01:59 cafagna
33			* First GPAMELA release on CVS
34	cafagna	3.1	*
35			*
36			*
37			* gpkey.inc
38			*
39	cafagna	3.3	* 14/04/2005 13:15 by Marialuigia Ambriola
40	pamela	3.2	* 03/10/2002 10.46.12 by Jens Lund
41	cafagna	3.1	*CMZ : 3.00/00 01/05/2001 16.02.39 by Marialuigia Ambriola
42			*CMZ : 2.03/00 06/11/2000 01.58.14 by Francesco Cafagna
43			*CMZ : 2.02/00 12/10/2000 16.08.25 by Francesco Cafagna
44			*CMZ : 2.01/00 04/04/2000 18.16.35 by Unknown
45			*CMZ : 2.00/00 01/03/2000 12.57.55 by Francesco Cafagna
46			*CMZ : 1.02/00 22/10/99 13.28.17 by Francesco Cafagna
47			*CMZ : 1.01/00 02/05/96 08.57.38 by Francesco Cafagna
48			*CMZ : 1.00/03 15/04/96 14.56.38 by Francesco Cafagna
49			*CMZ : 1.00/02 05/04/96 11.38.01 by Francesco Cafagna
50			*-- Author : Francesco Cafagna 30/11/95
51			* COMMON WITH THE USER DEFINITED DATA CARDS
52			INTEGER FFIELD,NDET,NCAL,HBOOK,NSPTM,NHPAK,NAUTMED,NHBFILE,
53	cafagna	3.3	+ ISSTR,HLON,NCPL,NCSI,NCAB,NDECAS,NDECAT,NDETOF,
54	cafagna	3.6	+ NDETRD,NDESPE,NDECAL,NDES4,NDEND,NDECARD,NGARFILE,
55			+ NFSFILE,NLSFILE,HSEED
56			LOGICAL TOF,TRD,CAT,CAS,SPE,CAL,TS4,ND,CARD,SPH,
57			+ HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4,HND,HCARD,
58			+ PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4,PND,PCARD,
59	cafagna	3.4	+ CALDIV,CALBLOCK,FLUKA,GPCALOR,
60	cafagna	3.1	+ ATMAXFD,ASTEMAX,ADEEMAX,AEPSIL,ASTMIN,HLONG,
61			+ BTMAXFD,BSTEMAX,BDEEMAX,BSTMIN,BEPSIL,NOCAPL,NOCASI,
62			+ NOCAAB
63			REAL VTMAXFD,VSTEMAX,VDEEMAX,VEPSIL,VSTMIN,SSTR,XYZGEN,DZSH
64			*ML:
65			REAL PHGEN,THGEN
66			REAL TPAL,TG10,TPN2,TPW,TPKA,TPFE,TRAD,TPRO,TPCF,
67			+ TPSC,TSCA,TSTR,TPXE,TPAE
68			*EM:
69			REAL T10C,TPW2,TPCE
70			*END EM.
71	pamela	3.2	*JeL:
72			REAL TPPL
73			*END JeL.
74	pam-ba	3.11	REAL TMYL,TPOL,TCAD,TCH2,THE3,TTAV
75	cafagna	3.1	*END ML.
76	cafagna	3.6	COMMON /GPCKEY/TOF,TRD,CAT,CAS,SPE,CAL,TS4,ND,CARD,SPH,
77			+ HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4,HND,HCARD,
78			+ PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4,PND,PCARD,
79	cafagna	3.4	+ CALDIV,CALBLOCK,FLUKA,GPCALOR,ATMAXFD,ASTEMAX,
80	cafagna	3.1	+ ADEEMAX,AEPSIL,ASTMIN,HLONG,BTMAXFD,BSTEMAX,
81			+ BDEEMAX,BSTMIN,BEPSIL,NOCAPL(44),NOCASI(9),
82			+ NOCAAB(22),
83	cafagna	3.6	+ FFIELD,NDET(10),NCAL(3),HBOOK,NSPTM(17),NHPAK,
84	cafagna	3.1	+ NAUTMED(5),NHBFILE(21),ISSTR,HLON,NCPL(44),NCSI(9),
85			+ NCAB(22),NDECAS(3),NDECAT(3),NDETOF(3),NDETRD(3),
86	cafagna	3.6	+ NDESPE(3),NDECAL(3),NDES4(3),NDEND(3),NDECARD(3),
87	cafagna	3.3	+ NGARFILE(21),NFSFILE(21),NLSFILE(21),HSEED,
88	cafagna	3.1	+ VTMAXFD,VSTEMAX,VDEEMAX,VEPSIL,VSTMIN,
89	cafagna	3.7	+ SSTR(2),XYZGEN(6),DZSH,PHGEN(2),THGEN(2),
90	cafagna	3.1	*ML:
91			+ TPAL(5),TG10(5),TPN2(5),TPW(5),TPKA(5),TPFE(5),
92			+ TRAD(5),TPRO(5),TPCF(5),TPSC(5),TSCA(5),TSTR(5),
93			+ TPXE(5),TPAE(5),
94			*END ML.
95			*EM:
96			+ TPW2(5),TPCE(5),T10C(5),
97			*END EM.
98	pamela	3.2	*JeL:
99	pam-ba	3.8	+ TPPL(5),
100	pamela	3.2	*END JeL.
101	pam-ba	3.11	+ TMYL(5),TPOL(5),TCAD(5),TCH2(5),THE3(5),TTAV(5)
102	cafagna	3.1	*