/**************************************************************************
*
* 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;
register float a[];
float v;
{
/*
register  int i;

  for (i = 0; i < n; i++)
    a[i] = v;
*/
register  float *endPtr;

  for (endPtr = a + n; a < endPtr; a++)
    *a = v;
}