/[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.3 by pam-ba, Mon Dec 5 12:15:20 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.2 2005/06/21 02:42:19 cafagna Exp $
3  *  *
4  * $Log: gpunit.inc,v $  * $Log: gpunit.inc,v $
5    * Revision 3.2  2005/06/21 02:42:19  cafagna
6    * Major modification to the geometry and to the random number chain
7    *
8  * Revision 3.1.1.1  2002/07/11 16:02:00  cafagna  * Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
9  * First GPAMELA release on CVS  * First GPAMELA release on CVS
10  *  *
# Line 19  Line 22 
22  *  *
23  * Common with the lgical unit number for each file opened by GPAMELA  * Common with the lgical unit number for each file opened by GPAMELA
24  *  *
25        INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,LULSF        INTEGER LUHBK,LUFMAP1,LUFMAP2,LUFFR,LUTR,LUFMAP,LUGAR,LURSPE,
26        CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,CHLSF       +        LUFSF,LULSF
27  *        CHARACTER*80 CHHBK,CHFMAP1,CHFMAP2,CHFFR,CHTR,CHGAR,
28        COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,       +             CHFMAP,CHRSPE,CHFSF,CHLSF
29       +                 LULSF,CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,  *
30       +                 CHLSF        COMMON /GPCUNIT/ LUHBK,LUFMAP1,LUFMAP2,LUFFR,LUTR,LUFMAP,LUGAR,
31         +                 LURSPE,LUFSF,LULSF,CHHBK,CHFMAP1,CHFMAP2,
32         +                 CHFFR,CHTR,CHGAR,CHFMAP,CHRSPE,CHFSF,CHLSF
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23