#include "utility.h"

double vec_length(vector)
/*============================================================================*/
/* PURPOSE: CALCULATE THE LENGTH OF A VECTOR.
/* INPUTS:
/*	VECTOR		(X,Y,Z) TRIPLET.
/* OUTPUTS:
/*	FUNCTION VALUE	LENGTH OF VECTOR.
/* WRITTEN: M.V.GRIESHABER
/* LAST MODIFICATION: 11 JUNE 1991 MVG
*/
   double vector[3];
   {
   /* DETERMINE THE LENGTH OF THE VECTOR. */
   return(sqrt(vector[0]*vector[0] + vector[1]*vector[1] + vector[2]*vector[2]));
   }