1e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/*
2e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Copyright 2003-2010, VisualOn, Inc.
3e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **
4e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Licensed under the Apache License, Version 2.0 (the "License");
5e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** you may not use this file except in compliance with the License.
6e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** You may obtain a copy of the License at
7e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **
8e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **     http://www.apache.org/licenses/LICENSE-2.0
9e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard **
10e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** Unless required by applicable law or agreed to in writing, software
11e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** distributed under the License is distributed on an "AS IS" BASIS,
12e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** See the License for the specific language governing permissions and
14e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard ** limitations under the License.
15e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard */
16e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
17e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard/***********************************************************************
18e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard*      File: lag_wind.c                                                *
19e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard*                                                                      *
20e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard*	   Description: Lag_windows on autocorrelations                *
21e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard*	                r[i] *= lag_wind[i]                            *
22e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard*                                                                      *
23e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard************************************************************************/
24e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
25e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "typedef.h"
26e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "basic_op.h"
27e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "oper_32b.h"
28e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard#include "lag_wind.tab"
29e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
30e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
31e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgardvoid Lag_window(
32e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard		Word16 r_h[],                         /* (i/o)   : Autocorrelations  (msb)          */
33e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard		Word16 r_l[]                          /* (i/o)   : Autocorrelations  (lsb)          */
34e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	       )
35e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard{
36e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	Word32 i;
37e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	Word32 x;
38e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
39e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	for (i = 1; i <= M; i++)
40e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	{
41e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard		x = Mpy_32(r_h[i], r_l[i], volag_h[i - 1], volag_l[i - 1]);
42e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard		r_h[i] = x >> 16;
43e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard		r_l[i] = (x & 0xffff)>>1;
44e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	}
45e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard	return;
46e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard}
47e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
48e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
49e2e838afcf03e603a41a0455846eaf9614537c16Mans Rullgard
50