gpamela/gpspe/gpmaspe.F

*
* $Id$
*
* $Log$
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
*CMZ :  1.00/02 21/02/96  19.03.38  by  Francesco Cafagna
*-- Author :    Paolo Papini   16/02/96
      SUBROUTINE GPMASPE(XYZ)
************************************************************************
*                                                                      *
*                                                                      *
* Variables definition:                                                *
* IN:                                                                  *
*  XYZ: 3D vector contining the coordinates in MARS                    *
* OUT:                                                                 *
*  XYZ: 3D vector contining the coordinates in spectrometer frame      *
*                                                                      *
* Called by:<USER>                                                     *
* Author: Paolo Papini, 16/02/96 10.28.24                              *
*                                                                      *
************************************************************************
#include "gpgeo.inc"
      REAL XYZ(3)
      DO I=1,3
         XYZ(I) = XYZ(I)-XYZSOR(I)
      ENDDO
      RETURN
      END
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
7			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
8			*CMZ : 1.00/02 21/02/96 19.03.38 by Francesco Cafagna
9			*-- Author : Paolo Papini 16/02/96
10			SUBROUTINE GPMASPE(XYZ)
11			************************************************************************
12			* *
13			* *
14			* Variables definition: *
15			* IN: *
16			* XYZ: 3D vector contining the coordinates in MARS *
17			* OUT: *
18			* XYZ: 3D vector contining the coordinates in spectrometer frame *
19			* *
20			* Called by:<USER> *
21			* Author: Paolo Papini, 16/02/96 10.28.24 *
22			* *
23			************************************************************************
24			#include "gpgeo.inc"
25			REAL XYZ(3)
26			DO I=1,3
27			XYZ(I) = XYZ(I)-XYZSOR(I)
28			ENDDO
29			RETURN
30			END