This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / matx55 / dnorm.F
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