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

语音压缩

开发平台:

Unix_Linux

  1. C==========================================================================
  2. C
  3. C ROUTINE
  4. C               movefr
  5. C
  6. C FUNCTION
  7. C               copy real array to another array
  8. C
  9. C SYNOPSIS
  10. C               subroutine movefr(n, a, b)
  11. C
  12. C   formal 
  13. C
  14. C                       data    I/O
  15. C       name            type    type    function
  16. C       -------------------------------------------------------------------
  17. C       n               int     i       number of elements to copy
  18. C       a               real    i       source
  19. C       b               real    o       destination
  20. C**************************************************************************
  21. C*-
  22.         subroutine movefr(n, a, b)
  23. implicit undefined(a-z)
  24. integer n
  25.         real a(n), b(n)
  26. integer i
  27. c
  28.         do 10 i = 1, n
  29.             b(i) = a(i)
  30. 10      continue
  31.         return
  32.         end