*
* $Id$
*
* $Log$
*
*
* gpspe.inc
*
*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  16.14.09  by  Francesco Cafagna
*CMZ :  1.01/00 15/05/96  14.49.00  by  Francesco Cafagna
*CMZ :  1.00/02 13/03/96  17.29.06  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   14/02/96
*
* Common with CWN variable for TSPA
*
      INTEGER NTHSPE,IPARSPE,ITRPB,ITRSL,ITSPA,NDISPE,NDPLAN,NDSIL,
     +        NDISTR,NDIADC
      REAL  XINSPE,YINSPE,ZINSPE,XOUTSPE,YOUTSPE,ZOUTSPE,
     +      XAVSPE,YAVSPE,ZAVSPE,ERELSPE,PATHSPE,P0SPE
      COMMON /GPCSPE/ NTHSPE,IPARSPE(NHMSPE),ITRPB(NHMSPE),
     +                ITRSL(NHMSPE),ITSPA(NHMSPE),
     +                NDISPE,NDPLAN(NDMSPE),NDSIL(NDMSPE),
     +                NDISTR(NDMSPE),NDIADC(NDMSPE),
     +                XINSPE(NHMSPE),YINSPE(NHMSPE),ZINSPE(NHMSPE),
     +                XOUTSPE(NHMSPE),YOUTSPE(NHMSPE),ZOUTSPE(NHMSPE),
     +                XAVSPE(NHMSPE),YAVSPE(NHMSPE),ZAVSPE(NHMSPE),
     +                ERELSPE(NHMSPE),PATHSPE(NHMSPE),P0SPE(NHMSPE)
*