movefr.f
上传用户:szhypcb168
上传日期:2007-01-06
资源大小:2187k
文件大小:1k
- C==========================================================================
- C
- C ROUTINE
- C movefr
- C
- C FUNCTION
- C copy real array to another array
- C
- C SYNOPSIS
- C subroutine movefr(n, a, b)
- C
- C formal
- C
- C data I/O
- C name type type function
- C -------------------------------------------------------------------
- C n int i number of elements to copy
- C a real i source
- C b real o destination
- C**************************************************************************
- C*-
- subroutine movefr(n, a, b)
- implicit undefined(a-z)
- integer n
- real a(n), b(n)
- integer i
- c
- do 10 i = 1, n
- b(i) = a(i)
- 10 continue
- return
- end