gpamela/gpcdes/gpunit.inc

*
* $Id: gpunit.inc,v 3.1.1.1 2002/07/11 16:02:00 cafagna Exp $
*
* $Log: gpunit.inc,v $
* Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
* First GPAMELA release on CVS
*
*
*
* gpunit.inc
*
*               14/04/2005  13:22     by Marialuigia Ambriola
*CMZ :  3.00/00 01/05/2001  16.07.26  by  Marialuigia Ambriola
*CMZ :  2.01/00 05/04/2000  14.35.17  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.02/00 22/10/99  17.53.59  by  Francesco Cafagna
*CMZ :  1.00/02 20/02/96  17.51.30  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   20/02/96
*
* Common with the lgical unit number for each file opened by GPAMELA
*
      INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,LULSF
      CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,CHLSF
*
      COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,
     +                 LULSF,CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,
     +                 CHLSF
1	cafagna	3.1	*
2	cafagna	3.2	* $Id: gpunit.inc,v 3.1.1.1 2002/07/11 16:02:00 cafagna Exp $
3			*
4			* $Log: gpunit.inc,v $
5			* Revision 3.1.1.1 2002/07/11 16:02:00 cafagna
6			* First GPAMELA release on CVS
7	cafagna	3.1	*
8			*
9			*
10			* gpunit.inc
11			*
12	cafagna	3.2	* 14/04/2005 13:22 by Marialuigia Ambriola
13	cafagna	3.1	*CMZ : 3.00/00 01/05/2001 16.07.26 by Marialuigia Ambriola
14			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
15			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
16			*CMZ : 1.02/00 22/10/99 17.53.59 by Francesco Cafagna
17			*CMZ : 1.00/02 20/02/96 17.51.30 by Francesco Cafagna
18			*-- Author : Francesco Cafagna 20/02/96
19			*
20			* Common with the lgical unit number for each file opened by GPAMELA
21			*
22	cafagna	3.2	INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,LULSF
23			CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,CHLSF
24	cafagna	3.1	*
25	cafagna	3.2	COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,
26			+ LULSF,CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,
27			+ CHLSF