1 
2 #include <math.h>
3 #include <stdlib.h>
4 #include <stdio.h>
5 #include <string.h>
6 #include <fcntl.h>
7 
8 
v_betrag(double * a)9 double v_betrag(double *a)
10 /* ********************************************************* */
11 /*      laenge von Vektor a                                  */
12 /* ********************************************************* */
13 {
14   return sqrt(a[0]*a[0]+a[1]*a[1]+a[2]*a[2]);
15 }
16 
17 
18