1250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/* ------------------------------------------------------------------
2250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * Copyright (C) 1998-2009 PacketVideo
3250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber *
4250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * Licensed under the Apache License, Version 2.0 (the "License");
5250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * you may not use this file except in compliance with the License.
6250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * You may obtain a copy of the License at
7250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber *
8250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber *      http://www.apache.org/licenses/LICENSE-2.0
9250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber *
10250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * Unless required by applicable law or agreed to in writing, software
11250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * distributed under the License is distributed on an "AS IS" BASIS,
12250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either
13250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * express or implied.
14250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * See the License for the specific language governing permissions
15250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * and limitations under the License.
16250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber * -------------------------------------------------------------------
17250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber */
18250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*
19250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
20250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
21250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber   PacketVideo Corp.
22250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber   MP3 Decoder Library
23250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
24250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber   Filename: pvmp3_get_scale_factors.cpp
25250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
26250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber     Date: 09/21/2007
27250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
28250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
29250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber REVISION HISTORY
30250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
31250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
32250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber Description:
33250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
34250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
35250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber INPUT AND OUTPUT DEFINITIONS
36250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
37250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber Input
38250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    mp3ScaleFactors *scalefac,
39250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    mp3SideInfo *si,               side info
40250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 gr,                      granule
41250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 ch,                      channel
42250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    tbits *pMainData               bit stream
43250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
44250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber  Returns
45250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
46250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    mp3ScaleFactors *scalefac,   scale factors
47250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
48250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
49250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber FUNCTION DESCRIPTION
50250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
51250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    get scale factors
52250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
53250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
54250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber REQUIREMENTS
55250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
56250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
57250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
58250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber REFERENCES
59250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
60250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber [1] ISO MPEG Audio Subgroup Software Simulation Group (1996)
61250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber     ISO 13818-3 MPEG-2 Audio Decoder - Lower Sampling Frequency Extension
62250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
63250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
64250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber PSEUDO-CODE
65250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
66250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber------------------------------------------------------------------------------
67250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber*/
68250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
69250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
70250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
71250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; INCLUDES
72250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
73250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
74250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber#include "pvmp3_get_scale_factors.h"
75250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber#include "pvmp3_getbits.h"
76250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber#include "mp3_mem_funcs.h"
77250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
78250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
79250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; MACROS
80250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; Define module specific macros here
81250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
82250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
83250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
84250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
85250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; DEFINES
86250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; Include all pre-processor statements here. Include conditional
87250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; compile variables also.
88250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
89250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber#define Qfmt_28(a)(int32(double(0x10000000)*a))
90250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
91250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
92250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; LOCAL FUNCTION DEFINITIONS
93250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; Function Prototype declaration
94250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
95250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
96250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
97250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; LOCAL STORE/BUFFER/POINTER DEFINITIONS
98250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; Variable declaration - defined here and used outside this module
99250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
100250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huberconst int32 slen[2][16] =
101250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber{
102250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    {0, 0, 0, 0, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4},
103250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    {0, 1, 2, 3, 0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3}
104250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber};
105250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
106250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huberconst struct
107250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber{
108250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 l[5];
109250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 s[3];
110250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber} sfbtable =
111250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber{
112250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    {0, 6, 11, 16, 21},
113250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    {0, 6, 12}
114250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber};
115250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
116250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huberconst int32 long_sfbtable[4] = { 6, 5, 5, 5};
117250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
118250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
119250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; EXTERNAL FUNCTION REFERENCES
120250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; Declare functions defined elsewhere and referenced in this module
121250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
122250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
123250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
124250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; EXTERNAL GLOBAL STORE/BUFFER/POINTER REFERENCES
125250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; Declare variables used in this module but defined elsewhere
126250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
127250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
128250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber/*----------------------------------------------------------------------------
129250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber; FUNCTION CODE
130250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber----------------------------------------------------------------------------*/
131250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
132250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Hubervoid pvmp3_get_scale_factors(mp3ScaleFactors *scalefac,
133250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                             mp3SideInfo    *si,
134250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                             int32          gr,
135250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                             int32          ch,
136250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                             tmp3Bits       *pMainData)
137250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber{
138250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 sfb;
139250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 i;
140250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    int32 window;
141250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    granuleInfo *gr_info = &(si->ch[ch].gran[gr]);
142250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
143250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    if (gr_info->window_switching_flag && (gr_info->block_type == 2))
144250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    {
145250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        if (gr_info->mixed_block_flag)
146250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        { /* MIXED */
147250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            for (sfb = 0; sfb < 8; sfb++)
148250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            {
149250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                scalefac->l[sfb] = getNbits(pMainData, slen[0][gr_info->scalefac_compress]);
150250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            }
151250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
152250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            for (sfb = 3; sfb < 6; sfb++)
153250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            {
154250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                for (window = 0; window < 3; window++)
155250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                {
156250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    scalefac->s[window][sfb] = getNbits(pMainData, slen[0][gr_info->scalefac_compress]);
157250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                }
158250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            }
159250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            for (sfb = 6; sfb < 12; sfb++)
160250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            {
161250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                for (window = 0; window < 3; window++)
162250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                {
163250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    scalefac->s[window][sfb] = getNbits(pMainData, slen[1][gr_info->scalefac_compress]);
164250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                }
165250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            }
166250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        }
167250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        else
168250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        {  /* SHORT*/
169250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            for (i = 0; i < 2; i++)
170250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            {
171250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                for (sfb = sfbtable.s[i]; sfb < sfbtable.s[i+1]; sfb++)
172250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                {
173250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    for (window = 0; window < 3; window++)
174250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    {
175250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                        scalefac->s[window][sfb] = getNbits(pMainData, slen[i][gr_info->scalefac_compress]);
176250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    }
177250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                }
178250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            }
179250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        }
180250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
181250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        scalefac->s[0][12] = 0;    /* sfb = 12 win= 0 */
182250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        scalefac->s[1][12] = 0;    /* sfb = 12 win= 1 */
183250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        scalefac->s[2][12] = 0;    /* sfb = 12 win= 2 */
184250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    }
185250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    else
186250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    {   /* LONG types 0,1,3 */
187250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
188250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        int32 *ptr = &scalefac->l[0];
189250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
190250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        for (i = 0; i < 4; i++)
191250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        {
192250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            int32 tmp4 = long_sfbtable[i];
193250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
194250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            if ((si->ch[ch].scfsi[i] == 0) || (gr == 0))
195250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            {
196250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                int32 tmp1 = slen[(i>>1)][gr_info->scalefac_compress];
197250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
198250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                if (tmp1)
199250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                {
200250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    int32 tmp2 = tmp1 * tmp4;
201250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    uint32 tmp3 = getNbits(pMainData, tmp2);
202250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    tmp4 = 32 - tmp1;
203250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    for (; tmp2 > 0; tmp2 -= tmp1)
204250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    {
205250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                        *(ptr++) = (tmp3 << (32 - tmp2)) >> tmp4;
206250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    }
207250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                }
208250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                else
209250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                {
210250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    for (sfb = tmp4; sfb != 0; sfb--)
211250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    {
212250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                        *(ptr++) = 0;
213250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                    }
214250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
215250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                }
216250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            }
217250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            else
218250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            {
219250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber                ptr += tmp4;
220250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber            }
221250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        }
222250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        scalefac->l[21] = 0;
223250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber        scalefac->l[22] = 0;
224250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber    }
225250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber}
226250f2433c6e1cf2727a79971fdc6ce0f8677037aAndreas Huber
227