delaya()

delaya	(	DOUBLE *	theta,
		int	ielmb,
		struct panel4 *	element,
		struct vector	xc
	)

Acoustic delay evaluation

Parameters

[out]	theta	Acoustic delay
[in]	ielmb	index of element
[in]	element	Panel
[in]	xc	Centroid of Panel

                                                                            {

  struct vector dxv;
  vec_sum(&dxv,element->x[0],element->x[1]);
  vec_sum(&dxv,dxv,element->x[2]);
  vec_sum(&dxv,dxv,element->x[3]);
  vec_scale(&dxv,.25);
  vec_diff(&dxv,dxv,xc);

  *theta = vec_mod(dxv);

}