movefr.c
上传用户:szhypcb168
上传日期:2007-01-06
资源大小:2187k
文件大小:1k
源码类别:

语音压缩

开发平台:

Unix_Linux

  1. /**************************************************************************
  2. *
  3. * ROUTINE
  4. *               movefr
  5. *
  6. * FUNCTION
  7. *               copy real array to another array
  8. *
  9. * SYNOPSIS
  10. *               subroutine movefr(n, a, b)
  11. *
  12. *   formal 
  13. *
  14. *                       data    I/O
  15. *       name            type    type    function
  16. *       -------------------------------------------------------------------
  17. *       n               int i       number of elements to copy
  18. *       a               float i       source
  19. *       b               float o       destination
  20. ***************************************************************************
  21. *
  22. * CALLED BY
  23. *
  24. * csub psearch
  25. *
  26. * CALLS
  27. *
  28. *
  29. **************************************************************************/
  30. movefr(n, a, b)
  31. int n;
  32. float *a, *b;
  33. {
  34.   int i;
  35.   for (i = 0; i < n; i++)
  36.     *b++ = *a++;
  37. }