1 #include <math.h>
2 
v_norm(double * A,double * C)3 double v_norm( double *A, double *C )
4 /*********************************************************/
5 /*         Vector(B)=Vektor(A)/|A|                       */
6 /*********************************************************/
7 {
8   double    B;
9 
10   B = sqrt(A[0]*A[0]+A[1]*A[1]+A[2]*A[2]);
11 
12   C[0]=A[0]/B;
13   C[1]=A[1]/B;
14   C[2]=A[2]/B;
15 
16   return(B);
17 }
18 
19 
20 
21 
22