gpamela/gpcdes/gptrd.inc

*
* $Id$
*
* $Log$
*
*
* gptrd.inc
*
*CMZ :  3.00/00 25/01/2002  17.55.19  by  Marialuigia Ambriola
*CMZ :  2.01/00 08/03/2000  18.34.57  by  Unknown
*CMZ :  2.00/00 22/02/2000  18.36.34  by  Francesco Cafagna
*CMZ :  1.02/00 22/10/99  16.23.10  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 TRSI
*
*ML:
*      INTEGER NTHTRD,IPARTRD,ITRBS,ITRSO
      INTEGER NTHTRD,IPARTRD,ITRBS,ITRSI,NTRTRD
*END ML.
C ML:
#if !defined(GPAMELA_GARFIELD)
      REAL  XINTRD,YINTRD,ZINTRD,XOUTTRD,YOUTTRD,ZOUTTRD,
     +      XAVTRD,YAVTRD,ZAVTRD,ELOSTRD,PATHTRD,P0TRD,
     +      ETRTRD
      COMMON /GPCTRD/ NTHTRD,IPARTRD(NHMTRD),ITRBS(NHMTRD),
*ML:
*     +                ITRSO(NHMTRD),
     +                ITRSI(NHMTRD),
*END ML.
     +                XINTRD(NHMTRD),YINTRD(NHMTRD),ZINTRD(NHMTRD),
     +                XOUTTRD(NHMTRD),YOUTTRD(NHMTRD),ZOUTTRD(NHMTRD),
     +                XAVTRD(NHMTRD),YAVTRD(NHMTRD),ZAVTRD(NHMTRD),
     +                ELOSTRD(NHMTRD),PATHTRD(NHMTRD),P0TRD(NHMTRD),
     +                ETRTRD(NHMTRD),NTRTRD(NHMTRD)
#endif
#if defined(GPAMELA_GARFIELD)
      REAL  XINTRD,YINTRD,ZINTRD,XOUTTRD,YOUTTRD,ZOUTTRD,
     +      XAVTRD,YAVTRD,ZAVTRD,ELOSTRD,PATHTRD,P0TRD,
     +      ETRTRD,EGARTRD,ERELTRD
      INTEGER NGARTRD
      COMMON /GPCTRD/ NTHTRD,IPARTRD(NHMTRD),ITRBS(NHMTRD),
*ML:
*     +                ITRSO(NHMTRD),
     +                ITRSI(NHMTRD),
*END ML.
     +                XINTRD(NHMTRD),YINTRD(NHMTRD),ZINTRD(NHMTRD),
     +                XOUTTRD(NHMTRD),YOUTTRD(NHMTRD),ZOUTTRD(NHMTRD),
     +                XAVTRD(NHMTRD),YAVTRD(NHMTRD),ZAVTRD(NHMTRD),
     +                ELOSTRD(NHMTRD),PATHTRD(NHMTRD),P0TRD(NHMTRD),
     +                ETRTRD(NHMTRD),NTRTRD(NHMTRD),
     +                EGARTRD(NHMTRD),NGARTRD(NHMTRD),ERELTRD(NHMTRD)
#endif
*
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* gptrd.inc
8			*
9			*CMZ : 3.00/00 25/01/2002 17.55.19 by Marialuigia Ambriola
10			*CMZ : 2.01/00 08/03/2000 18.34.57 by Unknown
11			*CMZ : 2.00/00 22/02/2000 18.36.34 by Francesco Cafagna
12			*CMZ : 1.02/00 22/10/99 16.23.10 by Francesco Cafagna
13			*CMZ : 1.00/02 04/04/96 15.52.53 by Francesco Cafagna
14			*-- Author : Francesco Cafagna 14/02/96
15			*
16			* Common with CWN variable for TRSI
17			*
18			*ML:
19			* INTEGER NTHTRD,IPARTRD,ITRBS,ITRSO
20			INTEGER NTHTRD,IPARTRD,ITRBS,ITRSI,NTRTRD
21			*END ML.
22			C ML:
23			#if !defined(GPAMELA_GARFIELD)
24			REAL XINTRD,YINTRD,ZINTRD,XOUTTRD,YOUTTRD,ZOUTTRD,
25			+ XAVTRD,YAVTRD,ZAVTRD,ELOSTRD,PATHTRD,P0TRD,
26			+ ETRTRD
27			COMMON /GPCTRD/ NTHTRD,IPARTRD(NHMTRD),ITRBS(NHMTRD),
28			*ML:
29			* + ITRSO(NHMTRD),
30			+ ITRSI(NHMTRD),
31			*END ML.
32			+ XINTRD(NHMTRD),YINTRD(NHMTRD),ZINTRD(NHMTRD),
33			+ XOUTTRD(NHMTRD),YOUTTRD(NHMTRD),ZOUTTRD(NHMTRD),
34			+ XAVTRD(NHMTRD),YAVTRD(NHMTRD),ZAVTRD(NHMTRD),
35			+ ELOSTRD(NHMTRD),PATHTRD(NHMTRD),P0TRD(NHMTRD),
36			+ ETRTRD(NHMTRD),NTRTRD(NHMTRD)
37			#endif
38			#if defined(GPAMELA_GARFIELD)
39			REAL XINTRD,YINTRD,ZINTRD,XOUTTRD,YOUTTRD,ZOUTTRD,
40			+ XAVTRD,YAVTRD,ZAVTRD,ELOSTRD,PATHTRD,P0TRD,
41			+ ETRTRD,EGARTRD,ERELTRD
42			INTEGER NGARTRD
43			COMMON /GPCTRD/ NTHTRD,IPARTRD(NHMTRD),ITRBS(NHMTRD),
44			*ML:
45			* + ITRSO(NHMTRD),
46			+ ITRSI(NHMTRD),
47			*END ML.
48			+ XINTRD(NHMTRD),YINTRD(NHMTRD),ZINTRD(NHMTRD),
49			+ XOUTTRD(NHMTRD),YOUTTRD(NHMTRD),ZOUTTRD(NHMTRD),
50			+ XAVTRD(NHMTRD),YAVTRD(NHMTRD),ZAVTRD(NHMTRD),
51			+ ELOSTRD(NHMTRD),PATHTRD(NHMTRD),P0TRD(NHMTRD),
52			+ ETRTRD(NHMTRD),NTRTRD(NHMTRD),
53			+ EGARTRD(NHMTRD),NGARTRD(NHMTRD),ERELTRD(NHMTRD)
54			#endif
55			*