/[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.2 by cafagna, Tue Jun 21 02:42:19 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.1.1.1 2002/07/11 16:02:00 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
9    * Major modification to the geometry and to the random number chain
10    *
11  * Revision 3.1.1.1  2002/07/11 16:02:00  cafagna  * Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
12  * First GPAMELA release on CVS  * First GPAMELA release on CVS
13  *  *
# Line 19  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,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,LULSF        INTEGER LUHBK,LUFMAP1,LUFMAP2,LUFMAP3,LUFFR,LUTR,LUFMAP,LUGAR
29        CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,CHLSF       +        ,LURSPE,LUFSF,LULSF
30  *        CHARACTER*80 CHHBK,CHFMAP1,CHFMAP2,CHFMAPEX,CHFFR,CHTR,CHGAR,
31        COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,       +             CHFMAP,CHRSPE,CHFSF,CHLSF
32       +                 LULSF,CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,  *
33       +                 CHLSF        COMMON /GPCUNIT/ LUHBK,LUFMAP1,LUFMAP2,LUFMAP3,LUFFR,LUTR,LUFMAP
34         +             ,LUGAR,LURSPE,LUFSF,LULSF,CHHBK,CHFMAP1,CHFMAP2
35         +             ,CHFMAPEX,CHFFR,CHTR,CHGAR,CHFMAP,CHRSPE,CHFSF,CHLSF
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.4
  ViewVC Help
Powered by ViewVC 1.1.23