--- gpamela/gpcdes/gpunit.inc 2002/07/11 16:02:00 3.1 +++ gpamela/gpcdes/gpunit.inc 2005/06/21 02:42:19 3.2 @@ -1,11 +1,15 @@ * -* $Id$ +* $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 * -* $Log$ * * * 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 @@ -15,8 +19,9 @@ * * 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 + INTEGER LUHBK,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF,LULSF + CHARACTER*80 CHHBK,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF,CHLSF * - COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR, - + CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR + COMMON /GPCUNIT/ LUHBK ,LUFMAP,LUFFR,LUTR,LUGAR,LUFSF, + + LULSF,CHHBK ,CHFMAP,CHFFR,CHTR,CHGAR,CHFSF, + + CHLSF