movefr.c
上传用户:tsjrly
上传日期:2021-02-19
资源大小:107k
文件大小:1k
- /**************************************************************************
- *
- * ROUTINE
- * movefr
- *
- * FUNCTION
- * copy real array to another array
- *
- * SYNOPSIS
- * subroutine movefr(n, a, b)
- *
- * formal
- *
- * data I/O
- * name type type function
- * -------------------------------------------------------------------
- * n int i number of elements to copy
- * a float i source
- * b float o destination
- ***************************************************************************
- *
- * CALLED BY
- *
- * csub psearch
- *
- * CALLS
- *
- *
- **************************************************************************/
- movefr(n, a, b)
- int n;
- float *a, *b;
- {
- int i;
- for (i = 0; i < n; i++)
- *b++ = *a++;
- }