 /*
  * Khoros: $Id$
  */

#if !defined(lint) && !defined(SABER)
static char rcsid[] = "Khoros: $Id$";
#endif

 /*
  * $Log$
  */

/*
 *   Copyright, 1991, The Regents of the University of California.
 *   This software was produced under a U.S. Government contract
 *   (W-7405-ENG-36) by the Los Alamos National Laboratory, which is
 *   operated by the University of California for the U.S. Department
 *   of Energy.  The U.S. Government is licensed to use, reproduce,
 *   and distribute this software.  Neither the Government nor the
 *   University makes any warranty, express or implied, or assumes
 *   any liability responsibility for the use of this software.
 */

/*
 *  dot_product ()    Compute the dot product between two vectors.
 *
 *  Written by:  Patrick M. Kelly
 *  Date:        11/13/90
 */

float dot_product ( vec_1, vec_2, len )
float *vec_1, *vec_2;
int len;
{
	float result;
	int i;
	result = 0.0;
	for ( i = 0 ; i < len ; i ++ ) result += vec_1 [i] * vec_2 [i] ;
	return ( result );
}
