gpamela/gpgar/gptogar.F

*
* $Id$
*
* $Log$
*
#if defined(GPAMELA_GARFIELD)
*CMZ :  3.00/00 02/05/2001  16.03.22  by  Unknown
*-- Author :    Unknown   02/05/2001
      SUBROUTINE GPTOGAR(GPXYZ,GARXYZ)
*************************************************
*
* A silly routine to convert a coordinate vector from GPAMELA sistem of
* reference, i.e. GEANT MARS, to the GARFIELD one.
*
* Please note that the GARFIELD Z-axis is oriented like the GEANT x-axis.
* so:
*      X-geant -----> Z-garfield
*      Y-geant -----> X-garfield
*      Z-geant -----> Y-garfield
*
* ... I don't even tell you author and date ......
*************************************************
      REAL GPXYZ(3),GARXYZ(3)
      GARXYZ(1) = GPXYZ(2)
      GARXYZ(2) = GPXYZ(3)
      GARXYZ(3) = GPXYZ(1)
      RETURN
      END
#endif
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			#if defined(GPAMELA_GARFIELD)
7			*CMZ : 3.00/00 02/05/2001 16.03.22 by Unknown
8			*-- Author : Unknown 02/05/2001
9			SUBROUTINE GPTOGAR(GPXYZ,GARXYZ)
10			*************************************************
11			*
12			* A silly routine to convert a coordinate vector from GPAMELA sistem of
13			* reference, i.e. GEANT MARS, to the GARFIELD one.
14			*
15			* Please note that the GARFIELD Z-axis is oriented like the GEANT x-axis.
16			* so:
17			* X-geant -----> Z-garfield
18			* Y-geant -----> X-garfield
19			* Z-geant -----> Y-garfield
20			*
21			* ... I don't even tell you author and date ......
22			*************************************************
23			REAL GPXYZ(3),GARXYZ(3)
24			GARXYZ(1) = GPXYZ(2)
25			GARXYZ(2) = GPXYZ(3)
26			GARXYZ(3) = GPXYZ(1)
27			RETURN
28			END
29			#endif