/**************************************************************************
*
* ROUTINE
*               clip
*
* FUNCTION
*		determine if speech is clipped
*
* SYnoPSIS
*               function clip(s, l)
*
*   formal 
*
*                       data    I/O
*       name            type    type    function
*       -------------------------------------------------------------------
*	s		float	i	input speech
*	l		int	i	length of input speech
*
***************************************************************************
*
* CALLED BY
*
*	celp
*
* CALLS
*
*
*
**************************************************************************/
#include <math.h>
#define TRUE	1
#define FALSE	0
clip(s, l)
int l;
float s[];
{
  int i, count;
  float sum;

  /*	Count number of clippings and sum their magnitudes		*/

  count = 0;
  sum = 0.0;
  for (i = 0; i < l; i++)
  {
    if (fabs(s[i]) > 32768.0)
    {
      count++;
      sum += fabs(s[i]);
    }
  }

  /*	Clipping heuristics (could also use energy, delta energy, etc.)	*/

  return(((count >= 10) || (count >= 5 && sum > 1.e6)) ? TRUE : FALSE);
}