*
* $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
*