setr.c
上传用户:tsjrly
上传日期:2021-02-19
资源大小:107k
文件大小:1k
源码类别:

语音压缩

开发平台:

C/C++

  1. /**************************************************************************
  2. *
  3. * ROUTINE
  4. *               setr
  5. *
  6. * FUNCTION
  7. *               initialize a real array to a real value
  8. *
  9. * SYNOPSIS
  10. *               subroutine setr(n, v, a)
  11. *
  12. *   formal 
  13. *
  14. *                       data    I/O
  15. *       name            type    type    function
  16. *       -------------------------------------------------------------------
  17. *       n               int i       dimension of array
  18. *       v               float i       initialization value
  19. *       a[n]            float i/o     array
  20. *
  21. ***************************************************************************
  22. *
  23. * CALLED BY
  24. *
  25. * csub impulse  
  26. *
  27. * CALLS
  28. *
  29. *
  30. *
  31. **************************************************************************/
  32. setr(n, v, a)
  33. int n;
  34. float a[], v;
  35. {
  36.   int i;
  37.   for (i = 0; i < n; i++)
  38.     a[i] = v;
  39. }