setr.c
上传用户:tsjrly
上传日期:2021-02-19
资源大小:107k
文件大小:1k
- /**************************************************************************
- *
- * ROUTINE
- * setr
- *
- * FUNCTION
- * initialize a real array to a real value
- *
- * SYNOPSIS
- * subroutine setr(n, v, a)
- *
- * formal
- *
- * data I/O
- * name type type function
- * -------------------------------------------------------------------
- * n int i dimension of array
- * v float i initialization value
- * a[n] float i/o array
- *
- ***************************************************************************
- *
- * CALLED BY
- *
- * csub impulse
- *
- * CALLS
- *
- *
- *
- **************************************************************************/
- setr(n, v, a)
- int n;
- float a[], v;
- {
- int i;
- for (i = 0; i < n; i++)
- a[i] = v;
- }