diff options
Diffstat (limited to 'thirdparties/win32/include/g729b/ld8a.h')
-rw-r--r-- | thirdparties/win32/include/g729b/ld8a.h | 629 |
1 files changed, 629 insertions, 0 deletions
diff --git a/thirdparties/win32/include/g729b/ld8a.h b/thirdparties/win32/include/g729b/ld8a.h new file mode 100644 index 0000000..0f95011 --- /dev/null +++ b/thirdparties/win32/include/g729b/ld8a.h @@ -0,0 +1,629 @@ +/* + ITU-T G.729A Speech Coder with Annex B ANSI-C Source Code + Version 1.3 Last modified: August 1997 + + Copyright (c) 1996, + AT&T, France Telecom, NTT, Universite de Sherbrooke, Lucent Technologies, + Rockwell International + All rights reserved. +*/ + +/*---------------------------------------------------------------* + * LD8A.H * + * ~~~~~~ * + * Function prototypes and constants use for G.729A 8kb/s coder. * + * * + *---------------------------------------------------------------*/ + +/*--------------------------------------------------------------------------* + * Codec constant parameters (coder, decoder, and postfilter) * + *--------------------------------------------------------------------------*/ + +#define L_TOTAL 240 /* Total size of speech buffer. */ +#define L_WINDOW 240 /* Window size in LP analysis. */ +#define L_NEXT 40 /* Lookahead in LP analysis. */ +#define L_FRAME 80 /* Frame size. */ +#define L_SUBFR 40 /* Subframe size. */ +#define M 10 /* Order of LP filter. */ +#define MP1 (M+1) /* Order of LP filter + 1 */ +#define PIT_MIN 20 /* Minimum pitch lag. */ +#define PIT_MAX 143 /* Maximum pitch lag. */ +#define L_INTERPOL (10+1) /* Length of filter for interpolation. */ +#define GAMMA1 24576 /* Bandwitdh factor = 0.75 in Q15 */ + +#define PRM_SIZE 11 /* Size of vector of analysis parameters. */ +#define SERIAL_SIZE (80+2) /* bfi+ number of speech bits */ + +#define SHARPMAX 13017 /* Maximum value of pitch sharpening 0.8 Q14 */ +#define SHARPMIN 3277 /* Minimum value of pitch sharpening 0.2 Q14 */ + + +/*-------------------------------* + * Mathematic functions. * + *-------------------------------*/ + +Word32 Inv_sqrt( /* (o) Q30 : output value (range: 0<=val<1) */ + Word32 L_x /* (i) Q0 : input value (range: 0<=val<=7fffffff) */ +); + +void Log2( + Word32 L_x, /* (i) Q0 : input value */ + Word16 *exponent, /* (o) Q0 : Integer part of Log2. (range: 0<=val<=30) */ + Word16 *fraction /* (o) Q15: Fractionnal part of Log2. (range: 0<=val<1) */ +); + +Word32 Pow2( /* (o) Q0 : result (range: 0<=val<=0x7fffffff) */ + Word16 exponent, /* (i) Q0 : Integer part. (range: 0<=val<=30) */ + Word16 fraction /* (i) Q15 : Fractionnal part. (range: 0.0<=val<1.0) */ +); + +/*-------------------------------* + * Pre and post-process. * + *-------------------------------*/ + +void Init_Pre_Process(void); +void Init_Post_Process(void); + +void Pre_Process( + Word16 signal[], /* Input/output signal */ + Word16 lg /* Length of signal */ +); + +void Post_Process( + Word16 signal[], /* Input/output signal */ + Word16 lg /* Length of signal */ +); + +/*----------------------------------* + * Main coder and decoder functions * + *----------------------------------*/ + +void Init_Coder_ld8a(void); + +void Coder_ld8a( + Word16 ana[], /* output : Analysis parameters */ + Word16 frame, + Word16 vad_enable +); + +void Init_Decod_ld8a(void); + +void Decod_ld8a( + Word16 parm[], /* (i) : vector of synthesis parameters + parm[0] = bad frame indicator (bfi) */ + Word16 synth[], /* (o) : synthesis speech */ + Word16 A_t[], /* (o) : decoded LP filter in 2 subframes */ + Word16 *T2, /* (o) : decoded pitch lag in 2 subframes */ + Word16 *Vad /* (o) : VAD */ +); + +/*-------------------------------* + * LPC analysis and filtering. * + *-------------------------------*/ + +void Autocorr( + Word16 x[], /* (i) : Input signal */ + Word16 m, /* (i) : LPC order */ + Word16 r_h[], /* (o) : Autocorrelations (msb) */ + Word16 r_l[], /* (o) : Autocorrelations (lsb) */ + Word16 *exp_R0 +); + +void Lag_window( + Word16 m, /* (i) : LPC order */ + Word16 r_h[], /* (i/o) : Autocorrelations (msb) */ + Word16 r_l[] /* (i/o) : Autocorrelations (lsb) */ +); + +void Levinson( + Word16 Rh[], /* (i) : Rh[m+1] Vector of autocorrelations (msb) */ + Word16 Rl[], /* (i) : Rl[m+1] Vector of autocorrelations (lsb) */ + Word16 A[], /* (o) Q12 : A[m] LPC coefficients (m = 10) */ + Word16 rc[], /* (o) Q15 : rc[M] Relection coefficients. */ + Word16 *Err /* (o) : Residual energy */ +); + +void Az_lsp( + Word16 a[], /* (i) Q12 : predictor coefficients */ + Word16 lsp[], /* (o) Q15 : line spectral pairs */ + Word16 old_lsp[] /* (i) : old lsp[] (in case not found 10 roots) */ +); + +void Lsp_Az( + Word16 lsp[], /* (i) Q15 : line spectral frequencies */ + Word16 a[] /* (o) Q12 : predictor coefficients (order = 10) */ +); + +void Lsf_lsp( + Word16 lsf[], /* (i) Q15 : lsf[m] normalized (range: 0.0<=val<=0.5) */ + Word16 lsp[], /* (o) Q15 : lsp[m] (range: -1<=val<1) */ + Word16 m /* (i) : LPC order */ +); + +void Lsp_lsf( + Word16 lsp[], /* (i) Q15 : lsp[m] (range: -1<=val<1) */ + Word16 lsf[], /* (o) Q15 : lsf[m] normalized (range: 0.0<=val<=0.5) */ + Word16 m /* (i) : LPC order */ +); + +void Int_qlpc( + Word16 lsp_old[], /* input : LSP vector of past frame */ + Word16 lsp_new[], /* input : LSP vector of present frame */ + Word16 Az[] /* output: interpolated Az() for the 2 subframes */ +); + +void Weight_Az( + Word16 a[], /* (i) Q12 : a[m+1] LPC coefficients */ + Word16 gamma, /* (i) Q15 : Spectral expansion factor. */ + Word16 m, /* (i) : LPC order. */ + Word16 ap[] /* (o) Q12 : Spectral expanded LPC coefficients */ +); + +void Residu( + Word16 a[], /* (i) Q12 : prediction coefficients */ + Word16 x[], /* (i) : speech (values x[-m..-1] are needed (m=10) */ + Word16 y[], /* (o) : residual signal */ + Word16 lg /* (i) : size of filtering */ +); + +void Syn_filt( + Word16 a[], /* (i) Q12 : a[m+1] prediction coefficients (m=10) */ + Word16 x[], /* (i) : input signal */ + Word16 y[], /* (o) : output signal */ + Word16 lg, /* (i) : size of filtering */ + Word16 mem[], /* (i/o) : memory associated with this filtering. */ + Word16 update /* (i) : 0=no update, 1=update of memory. */ +); + +void Convolve( + Word16 x[], /* (i) : input vector */ + Word16 h[], /* (i) Q12 : impulse response */ + Word16 y[], /* (o) : output vector */ + Word16 L /* (i) : vector size */ +); + +/*--------------------------------------------------------------------------* + * LTP constant parameters * + *--------------------------------------------------------------------------*/ + +#define UP_SAMP 3 +#define L_INTER10 10 +#define FIR_SIZE_SYN (UP_SAMP*L_INTER10+1) + +/*-----------------------* + * Pitch functions. * + *-----------------------*/ + +Word16 Pitch_ol_fast( /* output: open loop pitch lag */ + Word16 signal[], /* input : signal used to compute the open loop pitch */ + /* signal[-pit_max] to signal[-1] should be known */ + Word16 pit_max, /* input : maximum pitch lag */ + Word16 L_frame /* input : length of frame to compute pitch */ +); + +Word16 Pitch_fr3_fast(/* (o) : pitch period. */ + Word16 exc[], /* (i) : excitation buffer */ + Word16 xn[], /* (i) : target vector */ + Word16 h[], /* (i) Q12 : impulse response of filters. */ + Word16 L_subfr, /* (i) : Length of subframe */ + Word16 t0_min, /* (i) : minimum value in the searched range. */ + Word16 t0_max, /* (i) : maximum value in the searched range. */ + Word16 i_subfr, /* (i) : indicator for first subframe. */ + Word16 *pit_frac /* (o) : chosen fraction. */ +); + +Word16 G_pitch( /* (o) Q14 : Gain of pitch lag saturated to 1.2 */ + Word16 xn[], /* (i) : Pitch target. */ + Word16 y1[], /* (i) : Filtered adaptive codebook. */ + Word16 g_coeff[], /* (i) : Correlations need for gain quantization. */ + Word16 L_subfr /* (i) : Length of subframe. */ +); + +Word16 Enc_lag3( /* output: Return index of encoding */ + Word16 T0, /* input : Pitch delay */ + Word16 T0_frac, /* input : Fractional pitch delay */ + Word16 *T0_min, /* in/out: Minimum search delay */ + Word16 *T0_max, /* in/out: Maximum search delay */ + Word16 pit_min, /* input : Minimum pitch delay */ + Word16 pit_max, /* input : Maximum pitch delay */ + Word16 pit_flag /* input : Flag for 1st subframe */ +); + +void Dec_lag3( /* output: return integer pitch lag */ + Word16 index, /* input : received pitch index */ + Word16 pit_min, /* input : minimum pitch lag */ + Word16 pit_max, /* input : maximum pitch lag */ + Word16 i_subfr, /* input : subframe flag */ + Word16 *T0, /* output: integer part of pitch lag */ + Word16 *T0_frac /* output: fractional part of pitch lag */ +); + +Word16 Interpol_3( /* (o) : interpolated value */ + Word16 *x, /* (i) : input vector */ + Word16 frac /* (i) : fraction */ +); + +void Pred_lt_3( + Word16 exc[], /* in/out: excitation buffer */ + Word16 T0, /* input : integer pitch lag */ + Word16 frac, /* input : fraction of lag */ + Word16 L_subfr /* input : subframe size */ +); + +Word16 Parity_Pitch( /* output: parity bit (XOR of 6 MSB bits) */ + Word16 pitch_index /* input : index for which parity to compute */ +); + +Word16 Check_Parity_Pitch( /* output: 0 = no error, 1= error */ + Word16 pitch_index, /* input : index of parameter */ + Word16 parity /* input : parity bit */ +); + +void Cor_h_X( + Word16 h[], /* (i) Q12 :Impulse response of filters */ + Word16 X[], /* (i) :Target vector */ + Word16 D[] /* (o) :Correlations between h[] and D[] */ + /* Normalized to 13 bits */ +); + +/*-----------------------* + * Innovative codebook. * + *-----------------------*/ + +#define DIM_RR 616 /* size of correlation matrix */ +#define NB_POS 8 /* Number of positions for each pulse */ +#define STEP 5 /* Step betweem position of the same pulse. */ +#define MSIZE 64 /* Size of vectors for cross-correlation between 2 pulses*/ + +/* The following constants are Q15 fractions. + These fractions is used to keep maximum precision on "alp" sum */ + +#define _1_2 (Word16)(16384) +#define _1_4 (Word16)( 8192) +#define _1_8 (Word16)( 4096) +#define _1_16 (Word16)( 2048) + +Word16 ACELP_Code_A( /* (o) :index of pulses positions */ + Word16 x[], /* (i) :Target vector */ + Word16 h[], /* (i) Q12 :Inpulse response of filters */ + Word16 T0, /* (i) :Pitch lag */ + Word16 pitch_sharp, /* (i) Q14 :Last quantized pitch gain */ + Word16 code[], /* (o) Q13 :Innovative codebook */ + Word16 y[], /* (o) Q12 :Filtered innovative codebook */ + Word16 *sign /* (o) :Signs of 4 pulses */ +); + +void Decod_ACELP( + Word16 sign, /* (i) : signs of 4 pulses. */ + Word16 index, /* (i) : Positions of the 4 pulses. */ + Word16 cod[] /* (o) Q13 : algebraic (fixed) codebook excitation */ +); +/*--------------------------------------------------------------------------* + * LSP constant parameters * + *--------------------------------------------------------------------------*/ + +#define NC 5 /* NC = M/2 */ +#define MA_NP 4 /* MA prediction order for LSP */ +#define MODE 2 /* number of modes for MA prediction */ +#define NC0_B 7 /* number of first stage bits */ +#define NC1_B 5 /* number of second stage bits */ +#define NC0 (1<<NC0_B) +#define NC1 (1<<NC1_B) + +#define L_LIMIT 40 /* Q13:0.005 */ +#define M_LIMIT 25681 /* Q13:3.135 */ + +#define GAP1 10 /* Q13 */ +#define GAP2 5 /* Q13 */ +#define GAP3 321 /* Q13 */ +#define GRID_POINTS 50 + +#define PI04 ((Word16)1029) /* Q13 pi*0.04 */ +#define PI92 ((Word16)23677) /* Q13 pi*0.92 */ +#define CONST10 ((Word16)10*(1<<11)) /* Q11 10.0 */ +#define CONST12 ((Word16)19661) /* Q14 1.2 */ + +/*-------------------------------* + * LSP VQ functions. * + *-------------------------------*/ + +void Lsf_lsp2( + Word16 lsf[], /* (i) Q13 : lsf[m] (range: 0.0<=val<PI) */ + Word16 lsp[], /* (o) Q15 : lsp[m] (range: -1<=val<1) */ + Word16 m /* (i) : LPC order */ +); + +void Lsp_lsf2( + Word16 lsp[], /* (i) Q15 : lsp[m] (range: -1<=val<1) */ + Word16 lsf[], /* (o) Q13 : lsf[m] (range: 0.0<=val<PI) */ + Word16 m /* (i) : LPC order */ +); + +void Qua_lsp( + Word16 lsp[], /* (i) Q15 : Unquantized LSP */ + Word16 lsp_q[], /* (o) Q15 : Quantized LSP */ + Word16 ana[] /* (o) : indexes */ +); + +void Get_wegt( + Word16 flsp[], /* Q13 */ + Word16 wegt[] /* Q11 -> normalized */ +); + +void Lsp_encw_reset( + void +); + +void Lsp_qua_cs( + Word16 flsp_in[M], /* Q13 */ + Word16 lspq_out[M], /* Q13 */ + Word16 *code +); + +void Lsp_expand_1( + Word16 buf[], /* Q13 */ + Word16 gap /* Q13 */ +); + +void Lsp_expand_2( + Word16 buf[], /* Q13 */ + Word16 gap /* Q13 */ +); + +void Lsp_expand_1_2( + Word16 buf[], /* Q13 */ + Word16 gap /* Q13 */ +); + +void Lsp_get_quant( + Word16 lspcb1[][M], /* Q13 */ + Word16 lspcb2[][M], /* Q13 */ + Word16 code0, + Word16 code1, + Word16 code2, + Word16 fg[][M], /* Q15 */ + Word16 freq_prev[][M], /* Q13 */ + Word16 lspq[], /* Q13 */ + Word16 fg_sum[] /* Q15 */ +); + +void Lsp_get_tdist( + Word16 wegt[], /* normalized */ + Word16 buf[], /* Q13 */ + Word32 *L_tdist, /* Q27 */ + Word16 rbuf[], /* Q13 */ + Word16 fg_sum[] /* Q15 */ +); + +void Lsp_last_select( + Word32 L_tdist[], /* Q27 */ + Word16 *mode_index +); + +void Lsp_pre_select( + Word16 rbuf[], /* Q13 */ + Word16 lspcb1[][M], /* Q13 */ + Word16 *cand +); + +void Lsp_select_1( + Word16 rbuf[], /* Q13 */ + Word16 lspcb1[], /* Q13 */ + Word16 wegt[], /* normalized */ + Word16 lspcb2[][M], /* Q13 */ + Word16 *index +); + +void Lsp_select_2( + Word16 rbuf[], /* Q13 */ + Word16 lspcb1[], /* Q13 */ + Word16 wegt[], /* normalized */ + Word16 lspcb2[][M], /* Q13 */ + Word16 *index +); + +void Lsp_stability( + Word16 buf[] /* Q13 */ +); + +void Relspwed( + Word16 lsp[], /* Q13 */ + Word16 wegt[], /* normalized */ + Word16 lspq[], /* Q13 */ + Word16 lspcb1[][M], /* Q13 */ + Word16 lspcb2[][M], /* Q13 */ + Word16 fg[MODE][MA_NP][M], /* Q15 */ + Word16 freq_prev[MA_NP][M], /* Q13 */ + Word16 fg_sum[MODE][M], /* Q15 */ + Word16 fg_sum_inv[MODE][M], /* Q12 */ + Word16 code_ana[] +); + +void D_lsp( + Word16 prm[], /* (i) : indexes of the selected LSP */ + Word16 lsp_q[], /* (o) Q15 : Quantized LSP parameters */ + Word16 erase /* (i) : frame erase information */ +); + +void Lsp_decw_reset( + void +); + +void Lsp_iqua_cs( + Word16 prm[], /* input : codes of the selected LSP*/ + Word16 lsp_q[], /* output: Quantized LSP parameters*/ + Word16 erase /* input : frame erase information */ +); + +void Lsp_prev_compose( + Word16 lsp_ele[], /* Q13 */ + Word16 lsp[], /* Q13 */ + Word16 fg[][M], /* Q15 */ + Word16 freq_prev[][M], /* Q13 */ + Word16 fg_sum[] /* Q15 */ +); + +void Lsp_prev_extract( + Word16 lsp[M], /* Q13 */ + Word16 lsp_ele[M], /* Q13 */ + Word16 fg[MA_NP][M], /* Q15 */ + Word16 freq_prev[MA_NP][M], /* Q13 */ + Word16 fg_sum_inv[M] /* Q12 */ +); + +void Lsp_prev_update( + Word16 lsp_ele[M], /* Q13 */ + Word16 freq_prev[MA_NP][M] /* Q13 */ +); + +/*-------------------------------* + * gain VQ constants. * + *-------------------------------*/ + +#define NCODE1_B 3 /* number of Codebook-bit */ +#define NCODE2_B 4 /* number of Codebook-bit */ +#define NCODE1 (1<<NCODE1_B) /* Codebook 1 size */ +#define NCODE2 (1<<NCODE2_B) /* Codebook 2 size */ +#define NCAN1 4 /* Pre-selecting order for #1 */ +#define NCAN2 8 /* Pre-selecting order for #2 */ +#define INV_COEF -17103 /* Q19 */ + +/*--------------------------------------------------------------------------* + * gain VQ functions. * + *--------------------------------------------------------------------------*/ + +Word16 Qua_gain( + Word16 code[], /* (i) Q13 : Innovative vector. */ + Word16 g_coeff[], /* (i) : Correlations <xn y1> -2<y1 y1> */ + /* <y2,y2>, -2<xn,y2>, 2<y1,y2> */ + Word16 exp_coeff[],/* (i) : Q-Format g_coeff[] */ + Word16 L_subfr, /* (i) : Subframe length. */ + Word16 *gain_pit, /* (o) Q14 : Pitch gain. */ + Word16 *gain_cod, /* (o) Q1 : Code gain. */ + Word16 tameflag /* (i) : flag set to 1 if taming is needed */ +); + +void Dec_gain( + Word16 index, /* (i) : Index of quantization. */ + Word16 code[], /* (i) Q13 : Innovative vector. */ + Word16 L_subfr, /* (i) : Subframe length. */ + Word16 bfi, /* (i) : Bad frame indicator */ + Word16 *gain_pit, /* (o) Q14 : Pitch gain. */ + Word16 *gain_cod /* (o) Q1 : Code gain. */ +); + +void Gain_predict( + Word16 past_qua_en[],/* (i) Q10 :Past quantized energies */ + Word16 code[], /* (i) Q13 : Innovative vector. */ + Word16 L_subfr, /* (i) : Subframe length. */ + Word16 *gcode0, /* (o) Qxx : Predicted codebook gain */ + Word16 *exp_gcode0 /* (o) : Q-Format(gcode0) */ +); + +void Gain_update( + Word16 past_qua_en[],/* (i) Q10 :Past quantized energies */ + Word32 L_gbk12 /* (i) Q13 : gbk1[indice1][1]+gbk2[indice2][1] */ +); + +void Gain_update_erasure( + Word16 past_qua_en[]/* (i) Q10 :Past quantized energies */ +); + +void Corr_xy2( + Word16 xn[], /* (i) Q0 :Target vector. */ + Word16 y1[], /* (i) Q0 :Adaptive codebook. */ + Word16 y2[], /* (i) Q12 :Filtered innovative vector. */ + Word16 g_coeff[], /* (o) Q[exp]:Correlations between xn,y1,y2 */ + Word16 exp_g_coeff[] /* (o) :Q-format of g_coeff[] */ +); + +/*-----------------------* + * Bitstream function * + *-----------------------*/ + +void prm2bits_ld8k(Word16 prm[], Word16 bits[]); +void bits2prm_ld8k(Word16 bits[], Word16 prm[]); +#define BIT_0 (short)0x007f /* definition of zero-bit in bit-stream */ +#define BIT_1 (short)0x0081 /* definition of one-bit in bit-stream */ +#define SYNC_WORD (short)0x6b21 /* definition of frame erasure flag */ +#define SIZE_WORD (short)80 /* number of speech bits */ + + +/*-----------------------------------* + * Post-filter functions. * + *-----------------------------------*/ + +#define L_H 22 /* size of truncated impulse response of A(z/g1)/A(z/g2) */ + +#define GAMMAP 16384 /* 0.5 (Q15) */ +#define INV_GAMMAP 21845 /* 1/(1+GAMMAP) (Q15) */ +#define GAMMAP_2 10923 /* GAMMAP/(1+GAMMAP) (Q15) */ + +#define GAMMA2_PST 18022 /* Formant postfilt factor (numerator) 0.55 Q15 */ +#define GAMMA1_PST 22938 /* Formant postfilt factor (denominator) 0.70 Q15 */ + +#define MU 26214 /* Factor for tilt compensation filter 0.8 Q15 */ +#define AGC_FAC 29491 /* Factor for automatic gain control 0.9 Q15 */ +#define AGC_FAC1 (Word16)(32767 - AGC_FAC) /* 1-AGC_FAC in Q15 */ + + +void Init_Post_Filter(void); + +void Post_Filter( + Word16 *syn, /* in/out: synthesis speech (postfiltered is output) */ + Word16 *Az_4, /* input : interpolated LPC parameters in all subframes */ + Word16 *T, /* input : decoded pitch lags in all subframes */ + Word16 Vad +); + +void pit_pst_filt( + Word16 *signal, /* (i) : input signal */ + Word16 *scal_sig, /* (i) : input signal (scaled, divided by 4) */ + Word16 t0_min, /* (i) : minimum value in the searched range */ + Word16 t0_max, /* (i) : maximum value in the searched range */ + Word16 L_subfr, /* (i) : size of filtering */ + Word16 *signal_pst /* (o) : harmonically postfiltered signal */ +); + +void preemphasis( + Word16 *signal, /* (i/o) : input signal overwritten by the output */ + Word16 g, /* (i) Q15 : preemphasis coefficient */ + Word16 L /* (i) : size of filtering */ +); + +void agc( + Word16 *sig_in, /* (i) : postfilter input signal */ + Word16 *sig_out, /* (i/o) : postfilter output signal */ + Word16 l_trm /* (i) : subframe size */ +); + +/*--------------------------------------------------------------------------* + * Constants and prototypes for taming procedure. * + *--------------------------------------------------------------------------*/ + +#define GPCLIP 15564 /* Maximum pitch gain if taming is needed Q14*/ +#define GPCLIP2 481 /* Maximum pitch gain if taming is needed Q9 */ +#define GP0999 16383 /* Maximum pitch gain if taming is needed */ +#define L_THRESH_ERR 983040000L /* Error threshold taming 16384. * 60000. */ + +void Init_exc_err(void); +void update_exc_err(Word16 gain_pit, Word16 t0); +Word16 test_err(Word16 t0, Word16 t0_frac); + +/*--------------------------------------------------------------------------* + * Prototypes for auxiliary functions. * + *--------------------------------------------------------------------------*/ + +void Copy( + Word16 x[], /* (i) : input vector */ + Word16 y[], /* (o) : output vector */ + Word16 L /* (i) : vector length */ +); + +void Set_zero( + Word16 x[], /* (o) : vector to clear */ + Word16 L /* (i) : length of vector */ +); + +Word16 Random(Word16 *seed); + |