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

Diff of /gpamela/gpcdes/gpunit.inc

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

revision 3.3 by pam-ba, Mon Dec 5 12:15:20 2005 UTC revision 3.4 by bottai, Thu Dec 22 16:18:27 2005 UTC
# Line 1  Line 1 
1  *  *
2  * $Id: gpunit.inc,v 3.2 2005/06/21 02:42:19 cafagna Exp $  * $Id: gpunit.inc,v 3.3 2005/12/05 12:15:20 pam-ba Exp $
3  *  *
4  * $Log: gpunit.inc,v $  * $Log: gpunit.inc,v $
5    * Revision 3.3  2005/12/05 12:15:20  pam-ba
6    * new spectrometer geometry and internal magnetic field
7    *
8  * Revision 3.2  2005/06/21 02:42:19  cafagna  * Revision 3.2  2005/06/21 02:42:19  cafagna
9  * Major modification to the geometry and to the random number chain  * Major modification to the geometry and to the random number chain
10  *  *
# Line 22  Line 25 
25  *  *
26  * Common with the lgical unit number for each file opened by GPAMELA  * Common with the lgical unit number for each file opened by GPAMELA
27  *  *
28        INTEGER LUHBK,LUFMAP1,LUFMAP2,LUFFR,LUTR,LUFMAP,LUGAR,LURSPE,        INTEGER LUHBK,LUFMAP1,LUFMAP2,LUFMAP3,LUFFR,LUTR,LUFMAP,LUGAR
29       +        LUFSF,LULSF       +        ,LURSPE,LUFSF,LULSF
30        CHARACTER*80 CHHBK,CHFMAP1,CHFMAP2,CHFFR,CHTR,CHGAR,        CHARACTER*80 CHHBK,CHFMAP1,CHFMAP2,CHFMAPEX,CHFFR,CHTR,CHGAR,
31       +             CHFMAP,CHRSPE,CHFSF,CHLSF       +             CHFMAP,CHRSPE,CHFSF,CHLSF
32  *  *
33        COMMON /GPCUNIT/ LUHBK,LUFMAP1,LUFMAP2,LUFFR,LUTR,LUFMAP,LUGAR,        COMMON /GPCUNIT/ LUHBK,LUFMAP1,LUFMAP2,LUFMAP3,LUFFR,LUTR,LUFMAP
34       +                 LURSPE,LUFSF,LULSF,CHHBK,CHFMAP1,CHFMAP2,       +             ,LUGAR,LURSPE,LUFSF,LULSF,CHHBK,CHFMAP1,CHFMAP2
35       +                 CHFFR,CHTR,CHGAR,CHFMAP,CHRSPE,CHFSF,CHLSF       +             ,CHFMAPEX,CHFFR,CHTR,CHGAR,CHFMAP,CHRSPE,CHFSF,CHLSF

Legend:
Removed from v.3.3  
changed lines
  Added in v.3.4

  ViewVC Help
Powered by ViewVC 1.1.23