gpamela/gpcdes/gpcas.inc

*
* $Id$
*
* $Log$
*
*
* gpcas.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  15.17.07  by  Francesco Cafagna
*CMZ :  1.00/02 04/04/96  15.52.53  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   14/02/96
*
* Common with CWN variable for CAS
*
      INTEGER NTHCAS,IPARCAS,ICAS
      REAL  XINCAS,YINCAS,ZINCAS,
     +      XOUTCAS,YOUTCAS,ZOUTCAS,
     +      ERELCAS,TIMECAS,PATHCAS,P0CAS
      COMMON /GPCCAS/ NTHCAS,IPARCAS(NHMCAS),ICAS(NHMCAS),
     +                XINCAS(NHMCAS),YINCAS(NHMCAS),ZINCAS(NHMCAS),
     +                XOUTCAS(NHMCAS),YOUTCAS(NHMCAS),ZOUTCAS(NHMCAS),
     +                ERELCAS(NHMCAS),TIMECAS(NHMCAS),PATHCAS(NHMCAS),
     +                P0CAS(NHMCAS)
*
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gpcas.inc
8			*
9			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
10			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
11			*CMZ : 1.02/00 22/10/99 15.17.07 by Francesco Cafagna
12			*CMZ : 1.00/02 04/04/96 15.52.53 by Francesco Cafagna
13			*-- Author : Francesco Cafagna 14/02/96
14			*
15			* Common with CWN variable for CAS
16			*
17			INTEGER NTHCAS,IPARCAS,ICAS
18			REAL XINCAS,YINCAS,ZINCAS,
19			+ XOUTCAS,YOUTCAS,ZOUTCAS,
20			+ ERELCAS,TIMECAS,PATHCAS,P0CAS
21			COMMON /GPCCAS/ NTHCAS,IPARCAS(NHMCAS),ICAS(NHMCAS),
22			+ XINCAS(NHMCAS),YINCAS(NHMCAS),ZINCAS(NHMCAS),
23			+ XOUTCAS(NHMCAS),YOUTCAS(NHMCAS),ZOUTCAS(NHMCAS),
24			+ ERELCAS(NHMCAS),TIMECAS(NHMCAS),PATHCAS(NHMCAS),
25			+ P0CAS(NHMCAS)
26			*