[u/mrichter/AliRoot.git] / GEANT321 / matx55 / dnorm.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 15:37:36  mclareni
* Add geane321 source directories
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.50  by  S.Giani
*-- Author :
      SUBROUTINE DNORM(X,AX)
*     ======================
*
*     Double Precision Vector Normalization
*
*     Author: V.Innocente (Naples)
*
#if !defined(CERNLIB_SINGLE)
      IMPLICIT DOUBLE PRECISION ( A-H, O-Z )
#endif
      DIMENSION X(3)
*
      AX = SQRT(X(1)**2+X(2)**2+X(3)**2)
      AX1 = 1./AX
      X(1) = AX1*X(1)
      X(2) = AX1*X(2)
      X(3) = AX1*X(3)
*
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 15:37:36 mclareni
	6	* Add geane321 source directories
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.50 by S.Giani
	11	*-- Author :
	12	SUBROUTINE DNORM(X,AX)
	13	* ======================
	14	*
	15	* Double Precision Vector Normalization
	16	*
	17	* Author: V.Innocente (Naples)
	18	*
	19	#if !defined(CERNLIB_SINGLE)
	20	IMPLICIT DOUBLE PRECISION ( A-H, O-Z )
	21	#endif
	22	DIMENSION X(3)
	23	*
	24	AX = SQRT(X(1)2+X(2)2+X(3)**2)
	25	AX1 = 1./AX
	26	X(1) = AX1*X(1)
	27	X(2) = AX1*X(2)
	28	X(3) = AX1*X(3)
	29	*
	30	END