| 1 | 
* | 
| 2 | 
* $Id: gpkey.inc,v 3.2 2002/12/05 10:17:42 pamela Exp $ | 
| 3 | 
* | 
| 4 | 
* $Log: gpkey.inc,v $ | 
| 5 | 
* Revision 3.2  2002/12/05 10:17:42  pamela | 
| 6 | 
* Update CAS and CALO geometries and positions. Makefile updated as well | 
| 7 | 
* | 
| 8 | 
* Revision 3.1.1.1  2002/07/11 16:01:59  cafagna | 
| 9 | 
* First GPAMELA release on CVS | 
| 10 | 
* | 
| 11 | 
* | 
| 12 | 
* | 
| 13 | 
* gpkey.inc | 
| 14 | 
* | 
| 15 | 
*               14/04/2005  13:15     by Marialuigia Ambriola | 
| 16 | 
*               03/10/2002  10.46.12  by  Jens Lund | 
| 17 | 
*CMZ :  3.00/00 01/05/2001  16.02.39  by  Marialuigia Ambriola | 
| 18 | 
*CMZ :  2.03/00 06/11/2000  01.58.14  by  Francesco Cafagna | 
| 19 | 
*CMZ :  2.02/00 12/10/2000  16.08.25  by  Francesco Cafagna | 
| 20 | 
*CMZ :  2.01/00 04/04/2000  18.16.35  by  Unknown | 
| 21 | 
*CMZ :  2.00/00 01/03/2000  12.57.55  by  Francesco Cafagna | 
| 22 | 
*CMZ :  1.02/00 22/10/99  13.28.17  by  Francesco Cafagna | 
| 23 | 
*CMZ :  1.01/00 02/05/96  08.57.38  by  Francesco Cafagna | 
| 24 | 
*CMZ :  1.00/03 15/04/96  14.56.38  by  Francesco Cafagna | 
| 25 | 
*CMZ :  1.00/02 05/04/96  11.38.01  by  Francesco Cafagna | 
| 26 | 
*-- Author :    Francesco Cafagna   30/11/95 | 
| 27 | 
* COMMON WITH THE USER DEFINITED DATA CARDS | 
| 28 | 
       INTEGER FFIELD,NDET,NCAL,HBOOK,NSPTM,NHPAK,NAUTMED,NHBFILE, | 
| 29 | 
     +         ISSTR,HLON,NCPL,NCSI,NCAB,NDECAS,NDECAT,NDETOF, | 
| 30 | 
     +         NDETRD,NDESPE,NDECAL,NDES4,NGARFILE,NFSFILE,NLSFILE, | 
| 31 | 
     +         HSEED | 
| 32 | 
       LOGICAL TOF,TRD,CAT,CAS,SPE,CAL,TS4,SPH, | 
| 33 | 
     +         HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL,HS4, | 
| 34 | 
     +         PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4, | 
| 35 | 
     +         CALDIV,CALBLOCK,FLUKA, | 
| 36 | 
     +         ATMAXFD,ASTEMAX,ADEEMAX,AEPSIL,ASTMIN,HLONG, | 
| 37 | 
     +         BTMAXFD,BSTEMAX,BDEEMAX,BSTMIN,BEPSIL,NOCAPL,NOCASI, | 
| 38 | 
     +         NOCAAB | 
| 39 | 
       REAL    VTMAXFD,VSTEMAX,VDEEMAX,VEPSIL,VSTMIN,SSTR,XYZGEN,DZSH | 
| 40 | 
*ML: | 
| 41 | 
       REAL    PHGEN,THGEN | 
| 42 | 
       REAL    TPAL,TG10,TPN2,TPW,TPKA,TPFE,TRAD,TPRO,TPCF, | 
| 43 | 
     +         TPSC,TSCA,TSTR,TPXE,TPAE | 
| 44 | 
*EM: | 
| 45 | 
       REAL    T10C,TPW2,TPCE | 
| 46 | 
*END EM. | 
| 47 | 
*JeL: | 
| 48 | 
       REAL    TPPL | 
| 49 | 
*END JeL. | 
| 50 | 
*END ML. | 
| 51 | 
       COMMON /GPCKEY/TOF,TRD,CAT,CAS,SPE,CAL,TS4,SPH, | 
| 52 | 
     +               HBK,HTOF,HTRD,HCAT,HCAS,HSPE,HCAL, | 
| 53 | 
     +               PTOF,PTRD,PCAT,PCAS,PSPE,PCAL,PS4, | 
| 54 | 
     +               CALDIV,CALBLOCK,FLUKA,ATMAXFD,ASTEMAX, | 
| 55 | 
     +               ADEEMAX,AEPSIL,ASTMIN,HLONG,BTMAXFD,BSTEMAX, | 
| 56 | 
     +               BDEEMAX,BSTMIN,BEPSIL,NOCAPL(44),NOCASI(9), | 
| 57 | 
     +               NOCAAB(22), | 
| 58 | 
     +               FFIELD,NDET(8),NCAL(3),HBOOK,NSPTM(17),NHPAK, | 
| 59 | 
     +               NAUTMED(5),NHBFILE(21),ISSTR,HLON,NCPL(44),NCSI(9), | 
| 60 | 
     +               NCAB(22),NDECAS(3),NDECAT(3),NDETOF(3),NDETRD(3), | 
| 61 | 
     +               NDESPE(3),NDECAL(3),NDES4(3), | 
| 62 | 
     +               NGARFILE(21),NFSFILE(21),NLSFILE(21),HSEED, | 
| 63 | 
     +               VTMAXFD,VSTEMAX,VDEEMAX,VEPSIL,VSTMIN, | 
| 64 | 
     +               SSTR(2),XYZGEN(5),DZSH,PHGEN(2),THGEN(2), | 
| 65 | 
*ML: | 
| 66 | 
     +               TPAL(5),TG10(5),TPN2(5),TPW(5),TPKA(5),TPFE(5), | 
| 67 | 
     +               TRAD(5),TPRO(5),TPCF(5),TPSC(5),TSCA(5),TSTR(5), | 
| 68 | 
     +               TPXE(5),TPAE(5), | 
| 69 | 
*END ML. | 
| 70 | 
*EM: | 
| 71 | 
     +               TPW2(5),TPCE(5),T10C(5), | 
| 72 | 
*END EM. | 
| 73 | 
*JeL: | 
| 74 | 
     +               TPPL(5) | 
| 75 | 
*END JeL. | 
| 76 | 
* |