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