for (gr=0;gr<Max_gr;gr++) {
               double lr[2][SBLIMIT][SSLIMIT],ro[2][SBLIMIT][SSLIMIT];

               for (ch=0; ch<stereo; ch++) {
                 long int is[SBLIMIT][SSLIMIT];   /* Quantized samples. */
                 int part2_start;
				 //fm
				 printf(" 1 part2_start = %d\n", part2_start);
				 //
                 part2_start = hsstell();
				 //fm
				 printf(" 2   part2_start = %d\n", part2_start);
				 //
                 if (fr_ps.header->version != MPEG_PHASE2_LSF)
                 {
                    III_get_scale_factors(&III_scalefac,&III_side_info,gr,ch,
			   &fr_ps);
                 }
                 else
                 {
                    III_get_LSF_scale_factors(&III_scalefac,
                                                    &III_side_info,
                                                    gr,ch,&fr_ps);
                 }

                 //BN- decode huffman, STEGO
                 III_hufman_decode(is, &III_side_info, ch, gr, part2_start,
                                   &fr_ps);
				 //fm
				  printf("1ro[ch] = %lu\n", ro);
				  system("pause");
				 //
                 III_dequantize_sample(is, ro[ch], &III_scalefac,
                                   &(III_side_info.ch[ch].gr[gr]), ch, &fr_ps);