gpamela/gpcdes/gpunit.inc

*
* $Id$
*
* $Log$
*
*
* gpunit.inc
*
*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
      CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR
*
      COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,
     +                 CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR
1	*
2	* $Id$
3	*
4	* $Log$
5	*
6	*
7	* gpunit.inc
8	*
9	*CMZ : 3.00/00 01/05/2001 16.07.26 by Marialuigia Ambriola
10	*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
11	*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
12	*CMZ : 1.02/00 22/10/99 17.53.59 by Francesco Cafagna
13	*CMZ : 1.00/02 20/02/96 17.51.30 by Francesco Cafagna
14	*-- Author : Francesco Cafagna 20/02/96
15	*
16	* Common with the lgical unit number for each file opened by GPAMELA
17	*
18	INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR
19	CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR
20	*
21	COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,
22	+ CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR