setr.c

来自「语音CELP压缩解压源代码（C语音)」· C语言 代码 · 共 41 行

/**************************************************************************
*
* 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;
}