语音压缩

开发平台：

Unix_Linux

setr.c：源码内容

							/**************************************************************************
*
* ROUTINE
*               setr
*
* FUNCTION
*               initialize a real array to a real value
*
* SYNOPSIS
*               subroutine setr(n, v, a)
*
*   formal 
*
*                       data    I/O
*       name            type    type    function
*       -------------------------------------------------------------------
*       n               int	i       dimension of array
*       v               float	i       initialization value
*       a[n]            float	i/o     array
*
***************************************************************************
*
* CALLED BY
*
*	csub	impulse  
*
* CALLS
*
*	
*
**************************************************************************/
setr(n, v, a)
int n;
float a[], v;
{
  int i;
  for (i = 0; i < n; i++)
    a[i] = v;
}

						