cor256_511.c

this the source code of addio compression standard CELP. Also, it is optimizied for the execution sp

/**************************************************************************
*
* ROUTINE
*               cor256_511
*
* FUNCTION
*               calculate correlation term for stochastic codebook search
*               (last 256 --- 511 of total 0 --- 511)
*
* SYNOPSIS
*               subroutine cor256_511(cor)
****************************************************************************/

#include <math.h>
#include "ccsub.h"
extern float e0[MAXLP];
extern float x[MAXCODE];
float
cor256_511(cor)
float cor[];
{
  register float tmp;

 tmp = e0[1]; tmp += e0[5]; tmp += e0[12]; tmp += e0[14]; tmp -= e0[19]; tmp -= e0[22]; tmp -= e0[24]; tmp += e0[26]; tmp -= e0[34]; tmp -= e0[36]; tmp -= e0[37]; tmp -= e0[40]; tmp -= e0[42]; tmp -= e0[44]; tmp -= e0[46]; tmp -= e0[54]; tmp += e0[58];
 cor[511] = tmp; 
 
 tmp = e0[3]; tmp += e0[10]; tmp += e0[12]; tmp -= e0[17]; tmp -= e0[20]; tmp -= e0[22]; tmp += e0[24]; tmp -= e0[32]; tmp -= e0[34]; tmp -= e0[35]; tmp -= e0[38]; tmp -= e0[40]; tmp -= e0[42]; tmp -= e0[44]; tmp -= e0[52]; tmp += e0[56];
 cor[510] = tmp; 
 
 tmp = e0[1]; tmp += e0[8]; tmp += e0[10]; tmp -= e0[15]; tmp -= e0[18]; tmp -= e0[20]; tmp += e0[22]; tmp -= e0[30]; tmp -= e0[32]; tmp -= e0[33]; tmp -= e0[36]; tmp -= e0[38]; tmp -= e0[40]; tmp -= e0[42]; tmp -= e0[50]; tmp += e0[54]; tmp -= e0[59];
 cor[509] = tmp; 
 
 tmp = e0[6]; tmp += e0[8]; tmp -= e0[13]; tmp -= e0[16]; tmp -= e0[18]; tmp += e0[20]; tmp -= e0[28]; tmp -= e0[30]; tmp -= e0[31]; tmp -= e0[34]; tmp -= e0[36]; tmp -= e0[38]; tmp -= e0[40]; tmp -= e0[48]; tmp += e0[52]; tmp -= e0[57];
 cor[508] = tmp; 
 
 tmp = e0[4]; tmp += e0[6]; tmp -= e0[11]; tmp -= e0[14]; tmp -= e0[16]; tmp += e0[18]; tmp -= e0[26]; tmp -= e0[28]; tmp -= e0[29]; tmp -= e0[32]; tmp -= e0[34]; tmp -= e0[36]; tmp -= e0[38]; tmp -= e0[46]; tmp += e0[50]; tmp -= e0[55];
 cor[507] = tmp; 
 
 tmp = e0[2]; tmp += e0[4]; tmp -= e0[9]; tmp -= e0[12]; tmp -= e0[14]; tmp += e0[16]; tmp -= e0[24]; tmp -= e0[26]; tmp -= e0[27]; tmp -= e0[30]; tmp -= e0[32]; tmp -= e0[34]; tmp -= e0[36]; tmp -= e0[44]; tmp += e0[48]; tmp -= e0[53]; tmp += e0[58];
 cor[506] = tmp; 
 
  tmp = e0[0]; tmp += e0[2]; tmp -= e0[7]; tmp -= e0[10]; tmp -= e0[12]; tmp += e0[14]; tmp -= e0[22]; tmp -= e0[24]; tmp -= e0[25]; tmp -= e0[28]; tmp -= e0[30]; tmp -= e0[32]; tmp -= e0[34]; tmp -= e0[42]; tmp += e0[46]; tmp -= e0[51]; tmp += e0[56];
  cor[505] = tmp; 

  tmp = e0[0]; tmp -= e0[5]; tmp -= e0[8]; tmp -= e0[10]; tmp += e0[12]; tmp -= e0[20]; tmp -= e0[22]; tmp -= e0[23]; tmp -= e0[26]; tmp -= e0[28]; tmp -= e0[30]; tmp -= e0[32]; tmp -= e0[40]; tmp += e0[44]; tmp -= e0[49]; tmp += e0[54];
  cor[504] = tmp; 

  tmp = -e0[3]; tmp -= e0[6]; tmp -= e0[8]; tmp += e0[10]; tmp -= e0[18]; tmp -= e0[20]; tmp -= e0[21]; tmp -= e0[24]; tmp -= e0[26]; tmp -= e0[28]; tmp -= e0[30]; tmp -= e0[38]; tmp += e0[42]; tmp -= e0[47]; tmp += e0[52];
  cor[503] = tmp; 

  tmp = -e0[1]; tmp -= e0[4]; tmp -= e0[6]; tmp += e0[8]; tmp -= e0[16]; tmp -= e0[18]; tmp -= e0[19]; tmp -= e0[22]; tmp -= e0[24]; tmp -= e0[26]; tmp -= e0[28]; tmp -= e0[36]; tmp += e0[40]; tmp -= e0[45]; tmp += e0[50]; tmp += e0[59];
  cor[502] = tmp; 

  tmp = -e0[2]; tmp -= e0[4]; tmp += e0[6]; tmp -= e0[14]; tmp -= e0[16]; tmp -= e0[17]; tmp -= e0[20]; tmp -= e0[22]; tmp -= e0[24]; tmp -= e0[26]; tmp -= e0[34]; tmp += e0[38]; tmp -= e0[43]; tmp += e0[48]; tmp += e0[57]; tmp -= e0[58];
  cor[501] = tmp; 

  tmp = -e0[0]; tmp -= e0[2]; tmp += e0[4]; tmp -= e0[12]; tmp -= e0[14]; tmp -= e0[15]; tmp -= e0[18]; tmp -= e0[20]; tmp -= e0[22]; tmp -= e0[24]; tmp -= e0[32]; tmp += e0[36]; tmp -= e0[41]; tmp += e0[46]; tmp += e0[55]; tmp -= e0[56]; tmp += e0[58];
  cor[500] = tmp; 

  tmp = -e0[0]; tmp += e0[2]; tmp -= e0[10]; tmp -= e0[12]; tmp -= e0[13]; tmp -= e0[16]; tmp -= e0[18]; tmp -= e0[20]; tmp -= e0[22]; tmp -= e0[30]; tmp += e0[34]; tmp -= e0[39]; tmp += e0[44]; tmp += e0[53]; tmp -= e0[54]; tmp += e0[56]; tmp += e0[58];
  cor[499] = tmp; 

  tmp = e0[0]; tmp -= e0[8]; tmp -= e0[10]; tmp -= e0[11]; tmp -= e0[14]; tmp -= e0[16]; tmp -= e0[18]; tmp -= e0[20]; tmp -= e0[28]; tmp += e0[32]; tmp -= e0[37]; tmp += e0[42]; tmp += e0[51]; tmp -= e0[52]; tmp += e0[54]; tmp += e0[56]; tmp -= e0[58]; tmp += e0[59];
  cor[498] = tmp; 

  tmp = -e0[6]; tmp -= e0[8]; tmp -= e0[9]; tmp -= e0[12]; tmp -= e0[14]; tmp -= e0[16]; tmp -= e0[18]; tmp -= e0[26]; tmp += e0[30]; tmp -= e0[35]; tmp += e0[40]; tmp += e0[49]; tmp -= e0[50]; tmp += e0[52]; tmp += e0[54]; tmp -= e0[56]; tmp += e0[57];
  cor[497] = tmp; 

  tmp = -e0[4]; tmp -= e0[6]; tmp -= e0[7]; tmp -= e0[10]; tmp -= e0[12]; tmp -= e0[14]; tmp -= e0[16]; tmp -= e0[24]; tmp += e0[28]; tmp -= e0[33]; tmp += e0[38]; tmp += e0[47]; tmp -= e0[48]; tmp += e0[50]; tmp += e0[52]; tmp -= e0[54]; tmp += e0[55];
  cor[496] = tmp; 

  tmp = -e0[2]; tmp -= e0[4]; tmp -= e0[5]; tmp -= e0[8]; tmp -= e0[10]; tmp -= e0[12]; tmp -= e0[14]; tmp -= e0[22]; tmp += e0[26]; tmp -= e0[31]; tmp += e0[36]; tmp += e0[45]; tmp -= e0[46]; tmp += e0[48]; tmp += e0[50]; tmp -= e0[52]; tmp += e0[53]; tmp -= e0[59];
  cor[495] = tmp; 

  tmp = -e0[0]; tmp -= e0[2]; tmp -= e0[3]; tmp -= e0[6]; tmp -= e0[8]; tmp -= e0[10]; tmp -= e0[12]; tmp -= e0[20]; tmp += e0[24]; tmp -= e0[29]; tmp += e0[34]; tmp += e0[43]; tmp -= e0[44]; tmp += e0[46]; tmp += e0[48]; tmp -= e0[50]; tmp += e0[51]; tmp -= e0[57];
  cor[494] = tmp; 

  tmp = -e0[0]; tmp -= e0[1]; tmp -= e0[4]; tmp -= e0[6]; tmp -= e0[8]; tmp -= e0[10]; tmp -= e0[18]; tmp += e0[22]; tmp -= e0[27]; tmp += e0[32]; tmp += e0[41]; tmp -= e0[42]; tmp += e0[44]; tmp += e0[46]; tmp -= e0[48]; tmp += e0[49]; tmp -= e0[55]; tmp += e0[58];
  cor[493] = tmp; 

  tmp = -e0[2]; tmp -= e0[4]; tmp -= e0[6]; tmp -= e0[8]; tmp -= e0[16]; tmp += e0[20]; tmp -= e0[25]; tmp += e0[30]; tmp += e0[39]; tmp -= e0[40]; tmp += e0[42]; tmp += e0[44]; tmp -= e0[46]; tmp += e0[47]; tmp -= e0[53]; tmp += e0[56];
  cor[492] = tmp; 

  tmp = -e0[0]; tmp -= e0[2]; tmp -= e0[4]; tmp -= e0[6]; tmp -= e0[14]; tmp += e0[18]; tmp -= e0[23]; tmp += e0[28]; tmp += e0[37]; tmp -= e0[38]; tmp += e0[40]; tmp += e0[42]; tmp -= e0[44]; tmp += e0[45]; tmp -= e0[51]; tmp += e0[54]; tmp -= e0[58];
  cor[491] = tmp; 

  tmp = -e0[0]; tmp -= e0[2]; tmp -= e0[4]; tmp -= e0[12]; tmp += e0[16]; tmp -= e0[21]; tmp += e0[26]; tmp += e0[35]; tmp -= e0[36]; tmp += e0[38]; tmp += e0[40]; tmp -= e0[42]; tmp += e0[43]; tmp -= e0[49]; tmp += e0[52]; tmp -= e0[56];
  cor[490] = tmp; 

  tmp = -e0[0]; tmp -= e0[2]; tmp -= e0[10]; tmp += e0[14]; tmp -= e0[19]; tmp += e0[24]; tmp += e0[33]; tmp -= e0[34]; tmp += e0[36]; tmp += e0[38]; tmp -= e0[40]; tmp += e0[41]; tmp -= e0[47]; tmp += e0[50]; tmp -= e0[54];
  cor[489] = tmp; 

  tmp = -e0[0]; tmp -= e0[8]; tmp += e0[12]; tmp -= e0[17]; tmp += e0[22]; tmp += e0[31]; tmp -= e0[32]; tmp += e0[34]; tmp += e0[36]; tmp -= e0[38]; tmp += e0[39]; tmp -= e0[45]; tmp += e0[48]; tmp -= e0[52];
  cor[488] = tmp; 

  tmp = -e0[6]; tmp += e0[10]; tmp -= e0[15]; tmp += e0[20]; tmp += e0[29]; tmp -= e0[30]; tmp += e0[32]; tmp += e0[34]; tmp -= e0[36]; tmp += e0[37]; tmp -= e0[43]; tmp += e0[46]; tmp -= e0[50];
  cor[487] = tmp; 

  tmp = -e0[4]; tmp += e0[8]; tmp -= e0[13]; tmp += e0[18]; tmp += e0[27]; tmp -= e0[28]; tmp += e0[30]; tmp += e0[32]; tmp -= e0[34]; tmp += e0[35]; tmp -= e0[41]; tmp += e0[44]; tmp -= e0[48];
  cor[486] = tmp; 

  tmp = -e0[2]; tmp += e0[6]; tmp -= e0[11]; tmp += e0[16]; tmp += e0[25]; tmp -= e0[26]; tmp += e0[28]; tmp += e0[30]; tmp -= e0[32]; tmp += e0[33]; tmp -= e0[39]; tmp += e0[42]; tmp -= e0[46];
  cor[485] = tmp; 

  tmp = -e0[0]; tmp += e0[4]; tmp -= e0[9]; tmp += e0[14]; tmp += e0[23]; tmp -= e0[24]; tmp += e0[26]; tmp += e0[28]; tmp -= e0[30]; tmp += e0[31]; tmp -= e0[37]; tmp += e0[40]; tmp -= e0[44];
  cor[484] = tmp; 

  tmp = e0[2]; tmp -= e0[7]; tmp += e0[12]; tmp += e0[21]; tmp -= e0[22]; tmp += e0[24]; tmp += e0[26]; tmp -= e0[28]; tmp += e0[29]; tmp -= e0[35]; tmp += e0[38]; tmp -= e0[42];
  cor[483] = tmp; 

  tmp = e0[0]; tmp -= e0[5]; tmp += e0[10]; tmp += e0[19]; tmp -= e0[20]; tmp += e0[22]; tmp += e0[24]; tmp -= e0[26]; tmp += e0[27]; tmp -= e0[33]; tmp += e0[36]; tmp -= e0[40];
  cor[482] = tmp; 

  tmp = -e0[3]; tmp += e0[8]; tmp += e0[17]; tmp -= e0[18]; tmp += e0[20]; tmp += e0[22]; tmp -= e0[24]; tmp += e0[25]; tmp -= e0[31]; tmp += e0[34]; tmp -= e0[38];
  cor[481] = tmp; 

  tmp = -e0[1]; tmp += e0[6]; tmp += e0[15]; tmp -= e0[16]; tmp += e0[18]; tmp += e0[20]; tmp -= e0[22]; tmp += e0[23]; tmp -= e0[29]; tmp += e0[32]; tmp -= e0[36]; tmp -= e0[59];
  cor[480] = tmp; 

  tmp = e0[4]; tmp += e0[13]; tmp -= e0[14]; tmp += e0[16]; tmp += e0[18]; tmp -= e0[20]; tmp += e0[21]; tmp -= e0[27]; tmp += e0[30]; tmp -= e0[34]; tmp -= e0[57]; tmp -= e0[58];
  cor[479] = tmp; 

  tmp = e0[2]; tmp += e0[11]; tmp -= e0[12]; tmp += e0[14]; tmp += e0[16]; tmp -= e0[18]; tmp += e0[19]; tmp -= e0[25]; tmp += e0[28]; tmp -= e0[32]; tmp -= e0[55]; tmp -= e0[56];
  cor[478] = tmp; 

  tmp = e0[0]; tmp += e0[9]; tmp -= e0[10]; tmp += e0[12]; tmp += e0[14]; tmp -= e0[16]; tmp += e0[17]; tmp -= e0[23]; tmp += e0[26]; tmp -= e0[30]; tmp -= e0[53]; tmp -= e0[54];
  cor[477] = tmp; 

  tmp = e0[7]; tmp -= e0[8]; tmp += e0[10]; tmp += e0[12]; tmp -= e0[14]; tmp += e0[15]; tmp -= e0[21]; tmp += e0[24]; tmp -= e0[28]; tmp -= e0[51]; tmp -= e0[52];
  cor[476] = tmp; 

  tmp = e0[5]; tmp -= e0[6]; tmp += e0[8]; tmp += e0[10]; tmp -= e0[12]; tmp += e0[13]; tmp -= e0[19]; tmp += e0[22]; tmp -= e0[26]; tmp -= e0[49]; tmp -= e0[50];
  cor[475] = tmp; 

  tmp = e0[3]; tmp -= e0[4]; tmp += e0[6]; tmp += e0[8]; tmp -= e0[10]; tmp += e0[11]; tmp -= e0[17]; tmp += e0[20]; tmp -= e0[24]; tmp -= e0[47]; tmp -= e0[48];
  cor[474] = tmp; 

  tmp = e0[1]; tmp -= e0[2]; tmp += e0[4]; tmp += e0[6]; tmp -= e0[8]; tmp += e0[9]; tmp -= e0[15]; tmp += e0[18]; tmp -= e0[22]; tmp -= e0[45]; tmp -= e0[46];
  cor[473] = tmp; 

  tmp = -e0[0]; tmp += e0[2]; tmp += e0[4]; tmp -= e0[6]; tmp += e0[7]; tmp -= e0[13]; tmp += e0[16]; tmp -= e0[20]; tmp -= e0[43]; tmp -= e0[44];
  cor[472] = tmp; 

  tmp = e0[0]; tmp += e0[2]; tmp -= e0[4]; tmp += e0[5]; tmp -= e0[11]; tmp += e0[14]; tmp -= e0[18]; tmp -= e0[41]; tmp -= e0[42]; tmp -= e0[58]; tmp -= e0[59];
  cor[471] = tmp; 

  tmp = e0[0]; tmp -= e0[2]; tmp += e0[3]; tmp -= e0[9]; tmp += e0[12]; tmp -= e0[16]; tmp -= e0[39]; tmp -= e0[40]; tmp -= e0[56]; tmp -= e0[57]; tmp += e0[59];
  cor[470] = tmp; 

  tmp = -e0[0]; tmp += e0[1]; tmp -= e0[7]; tmp += e0[10]; tmp -= e0[14]; tmp -= e0[37]; tmp -= e0[38]; tmp -= e0[54]; tmp -= e0[55]; tmp += e0[57]; tmp -= e0[58];
  cor[469] = tmp; 

  tmp = -e0[5]; tmp += e0[8]; tmp -= e0[12]; tmp -= e0[35]; tmp -= e0[36]; tmp -= e0[52]; tmp -= e0[53]; tmp += e0[55]; tmp -= e0[56]; tmp -= e0[59];
  cor[468] = tmp; 

  tmp = -e0[3]; tmp += e0[6]; tmp -= e0[10]; tmp -= e0[33]; tmp -= e0[34]; tmp -= e0[50]; tmp -= e0[51]; tmp += e0[53]; tmp -= e0[54]; tmp -= e0[57]; tmp -= e0[58];
  cor[467] = tmp; 

  tmp = -e0[1]; tmp += e0[4]; tmp -= e0[8]; tmp -= e0[31]; tmp -= e0[32]; tmp -= e0[48]; tmp -= e0[49]; tmp += e0[51]; tmp -= e0[52]; tmp -= e0[55]; tmp -= e0[56];