delaysc2()

void delaysc2	(	struct vector	xcn,
		struct vector	xs,
		DOUBLE *	rad,
		DOUBLE *	theta
	)

This routine evaluates the acoustic delay between the source point xs and the influenced point xcn.

Parameters

[in]	xcn	centroid of panel
[in]	xs	position of source
[out]	rad	distance
[out]	theta	Acoustic delay

                                                                            {
  struct vector dx;
  vec_diff(&dx,xs,xcn);
  *rad = vec_mod(dx);
  *theta = *rad/runinfo->vsound;
}