/**************************************************************************
*
* ROUTINE
*               ham
*
* FUNCTION
*               creates hamming window
*
* SYNOPSIS
*               subroutine ham(win, n)
*   formal 
*
*                       data    I/O
*       name            type    type    function
*       -------------------------------------------------------------------
*       win(n)          float   i/o     hamming window
*       n               int     i       dim of win
*
***************************************************************************
*
* DESCRIPTION
*
*
*
***************************************************************************
*
* CALLED BY
*
*	celp  delay
*
* CALLS
*
*
*
**************************************************************************/
#include <math.h>
ham(win, n)
int n;
float win[];
{
  int i;
  float pi;

  pi = 4.0 * atan(1.0);
  for (i = 0; i < n; i++)
    win[i] = 0.54 - 0.46 * cos((2.0 * pi * (i)) / (n-1));
}