gpamela/gpcdes/gpnd.inc

*
* gpnd.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  13.42.27  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 ND
*
      INTEGER NTHND,ITUBEND,IPARND
      REAL    XINND,YINND,ZINND,XOUTND,YOUTND,ZOUTND,ERELND,
     +        TIMEND,P0ND
      COMMON  /GPCND/ NTHND,ITUBEND(NHMND),
     +                IPARND(NHMND),
     +                XINND(NHMND),YINND(NHMND),ZINND(NHMND),
     +                XOUTND(NHMND),YOUTND(NHMND),ZOUTND(NHMND),
     +                ERELND(NHMND),TIMEND(NHMND),P0ND(NHMND)
1	cafagna	3.1	*
2			* gpnd.inc
3			*
4			*CMZ : 2.01/00 05/04/2000 14.35.17 by Marialuigia Ambriola
5			*CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna
6			*CMZ : 1.02/00 22/10/99 13.42.27 by Francesco Cafagna
7			*CMZ : 1.00/02 04/04/96 15.52.53 by Francesco Cafagna
8			*-- Author : Francesco Cafagna 14/02/96
9			*
10			* Common with CWN variable for ND
11			*
12			INTEGER NTHND,ITUBEND,IPARND
13			REAL XINND,YINND,ZINND,XOUTND,YOUTND,ZOUTND,ERELND,
14			+ TIMEND,P0ND
15			COMMON /GPCND/ NTHND,ITUBEND(NHMND),
16			+ IPARND(NHMND),
17			+ XINND(NHMND),YINND(NHMND),ZINND(NHMND),
18			+ XOUTND(NHMND),YOUTND(NHMND),ZOUTND(NHMND),
19			+ ERELND(NHMND),TIMEND(NHMND),P0ND(NHMND)