FreeCalypso > hg > efr-experiments

comparison src/set_zero.c @ 0:56410792419a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src: original EFR source from ETSI
author Mychaela Falconia <falcon@freecalypso.org>
date Wed, 03 Apr 2024 05:31:37 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:56410792419a
1 /*************************************************************************
2 *
3 * FUNCTION: Set zero()
4 *
5 * PURPOSE: Set vector x[] to zero
6 *
7 *************************************************************************/
8
9 #include "typedef.h"
10 #include "basic_op.h"
11 #include "count.h"
12
13 void Set_zero (
14 Word16 x[], /* (o) : vector to clear */
15 Word16 L /* (i) : length of vector */
16 )
17 {
18 Word16 i;
19
20 for (i = 0; i < L; i++)
21 {
22 x[i] = 0; move16 ();
23 }
24
25 return;
26 }