im11[17]=dim10[1];im11[19]=dim11[1];
       dre00[2]=re20[18];dre01[2]=re20[22];
       dim00[2]=im20[18];dim01[2]=im20[22];
       dwre=wre[16];dwim=wim[16];
       re21[17]=dre10[2];re21[21]=dre11[2];
       im21[17]=dim10[2];im21[21]=dim11[2];
       dre00[3]=re30[18];dre01[3]=re30[26];
       dim00[3]=im30[18];dim01[3]=im30[26];
       dwre=wre[ 8];dwim=wim[ 8];
       re31[17]=dre10[3];re31[25]=dre11[3];
       im31[17]=dim10[3];im31[25]=dim11[3];
       dre00[4]=re40[10];dre01[4]=re40[26];
       dim00[4]=im40[10];dim01[4]=im40[26];
       dwre=wre[20];dwim=wim[20];
       re41[ 9]=dre10[4];re41[25]=dre11[4];
       im41[ 9]=dim10[4];im41[25]=dim11[4];
       dre00[5]=re50[10];dre01[5]=re50[42];
       dim00[5]=im50[10];dim01[5]=im50[42];
       dwre=wre[10];dwim=wim[10];
       re51[ 9]=dre10[5];re51[41]=dre11[5];
       im51[ 9]=dim10[5];im51[41]=dim11[5];
     end
  12:begin
       dre00[0]=re00[22];dre01[0]=re00[23];
       dim00[0]=im00[22];dim01[0]=im00[23];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[20]=dre10[0];re01[21]=dre11[0];
       im01[20]=dim10[0];im01[21]=dim11[0];
       dre00[1]=re10[21];dre01[1]=re10[23];
       dim00[1]=im10[21];dim01[1]=im10[23];
       dwre=wre[16];dwim=wim[16];
       re11[20]=dre10[1];re11[22]=dre11[1];
       im11[20]=dim10[1];im11[22]=dim11[1];
       dre00[2]=re20[19];dre01[2]=re20[23];
       dim00[2]=im20[19];dim01[2]=im20[23];
       dwre=wre[24];dwim=wim[24];
       re21[18]=dre10[2];re21[22]=dre11[2];
       im21[18]=dim10[2];im21[22]=dim11[2];
       dre00[3]=re30[19];dre01[3]=re30[27];
       dim00[3]=im30[19];dim01[3]=im30[27];
       dwre=wre[12];dwim=wim[12];
       re31[18]=dre10[3];re31[26]=dre11[3];
       im31[18]=dim10[3];im31[26]=dim11[3];
       dre00[4]=re40[11];dre01[4]=re40[27];
       dim00[4]=im40[11];dim01[4]=im40[27];
       dwre=wre[22];dwim=wim[22];
       re41[10]=dre10[4];re41[26]=dre11[4];
       im41[10]=dim10[4];im41[26]=dim11[4];
       dre00[5]=re50[11];dre01[5]=re50[43];
       dim00[5]=im50[11];dim01[5]=im50[43];
       dwre=wre[11];dwim=wim[11];
       re51[10]=dre10[5];re51[42]=dre11[5];
       im51[10]=dim10[5];im51[42]=dim11[5];
     end
  13:begin
       dre00[0]=re00[24];dre01[0]=re00[25];
       dim00[0]=im00[24];dim01[0]=im00[25];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[22]=dre10[0];re01[23]=dre11[0];
       im01[22]=dim10[0];im01[23]=dim11[0];
       dre00[1]=re10[24];dre01[1]=re10[26];
       dim00[1]=im10[24];dim01[1]=im10[26];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[21]=dre10[1];re11[23]=dre11[1];
       im11[21]=dim10[1];im11[23]=dim11[1];
       dre00[2]=re20[24];dre01[2]=re20[28];
       dim00[2]=im20[24];dim01[2]=im20[28];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[19]=dre10[2];re21[23]=dre11[2];
       im21[19]=dim10[2];im21[23]=dim11[2];
       dre00[3]=re30[20];dre01[3]=re30[28];
       dim00[3]=im30[20];dim01[3]=im30[28];
       dwre=wre[16];dwim=wim[16];
       re31[19]=dre10[3];re31[27]=dre11[3];
       im31[19]=dim10[3];im31[27]=dim11[3];
       dre00[4]=re40[12];dre01[4]=re40[28];
       dim00[4]=im40[12];dim01[4]=im40[28];
       dwre=wre[24];dwim=wim[24];
       re41[11]=dre10[4];re41[27]=dre11[4];
       im41[11]=dim10[4];im41[27]=dim11[4];
       dre00[5]=re50[12];dre01[5]=re50[44];
       dim00[5]=im50[12];dim01[5]=im50[44];
       dwre=wre[12];dwim=wim[12];
       re51[11]=dre10[5];re51[43]=dre11[5];
       im51[11]=dim10[5];im51[43]=dim11[5];
     end
  14:begin
       dre00[0]=re00[26];dre01[0]=re00[27];
       dim00[0]=im00[26];dim01[0]=im00[27];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[24]=dre10[0];re01[25]=dre11[0];
       im01[24]=dim10[0];im01[25]=dim11[0];
       dre00[1]=re10[25];dre01[1]=re10[27];
       dim00[1]=im10[25];dim01[1]=im10[27];
       dwre=wre[16];dwim=wim[16];
       re11[24]=dre10[1];re11[26]=dre11[1];
       im11[24]=dim10[1];im11[26]=dim11[1];
       dre00[2]=re20[25];dre01[2]=re20[29];
       dim00[2]=im20[25];dim01[2]=im20[29];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[24]=dre10[2];re21[28]=dre11[2];
       im21[24]=dim10[2];im21[28]=dim11[2];
       dre00[3]=re30[21];dre01[3]=re30[29];
       dim00[3]=im30[21];dim01[3]=im30[29];
       dwre=wre[20];dwim=wim[20];
       re31[20]=dre10[3];re31[28]=dre11[3];
       im31[20]=dim10[3];im31[28]=dim11[3];
       dre00[4]=re40[13];dre01[4]=re40[29];
       dim00[4]=im40[13];dim01[4]=im40[29];
       dwre=wre[26];dwim=wim[26];
       re41[12]=dre10[4];re41[28]=dre11[4];
       im41[12]=dim10[4];im41[28]=dim11[4];
       dre00[5]=re50[13];dre01[5]=re50[45];
       dim00[5]=im50[13];dim01[5]=im50[45];
       dwre=wre[13];dwim=wim[13];
       re51[12]=dre10[5];re51[44]=dre11[5];
       im51[12]=dim10[5];im51[44]=dim11[5];
     end
  15:begin
       dre00[0]=re00[28];dre01[0]=re00[29];
       dim00[0]=im00[28];dim01[0]=im00[29];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[26]=dre10[0];re01[27]=dre11[0];
       im01[26]=dim10[0];im01[27]=dim11[0];
       dre00[1]=re10[28];dre01[1]=re10[30];
       dim00[1]=im10[28];dim01[1]=im10[30];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[25]=dre10[1];re11[27]=dre11[1];
       im11[25]=dim10[1];im11[27]=dim11[1];
       dre00[2]=re20[26];dre01[2]=re20[30];
       dim00[2]=im20[26];dim01[2]=im20[30];
       dwre=wre[16];dwim=wim[16];
       re21[25]=dre10[2];re21[29]=dre11[2];
       im21[25]=dim10[2];im21[29]=dim11[2];
       dre00[3]=re30[22];dre01[3]=re30[30];
       dim00[3]=im30[22];dim01[3]=im30[30];
       dwre=wre[24];dwim=wim[24];
       re31[21]=dre10[3];re31[29]=dre11[3];
       im31[21]=dim10[3];im31[29]=dim11[3];
       dre00[4]=re40[14];dre01[4]=re40[30];
       dim00[4]=im40[14];dim01[4]=im40[30];
       dwre=wre[28];dwim=wim[28];
       re41[13]=dre10[4];re41[29]=dre11[4];
       im41[13]=dim10[4];im41[29]=dim11[4];
       dre00[5]=re50[14];dre01[5]=re50[46];
       dim00[5]=im50[14];dim01[5]=im50[46];
       dwre=wre[14];dwim=wim[14];
       re51[13]=dre10[5];re51[45]=dre11[5];
       im51[13]=dim10[5];im51[45]=dim11[5];
     end
  16:begin
       dre00[0]=re00[30];dre01[0]=re00[31];
       dim00[0]=im00[30];dim01[0]=im00[31];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[28]=dre10[0];re01[29]=dre11[0];
       im01[28]=dim10[0];im01[29]=dim11[0];
       dre00[1]=re10[29];dre01[1]=re10[31];
       dim00[1]=im10[29];dim01[1]=im10[31];
       dwre=wre[16];dwim=wim[16];
       re11[28]=dre10[1];re11[30]=dre11[1];
       im11[28]=dim10[1];im11[30]=dim11[1];
       dre00[2]=re20[27];dre01[2]=re20[31];
       dim00[2]=im20[27];dim01[2]=im20[31];
       dwre=wre[24];dwim=wim[24];
       re21[26]=dre10[2];re21[30]=dre11[2];
       im21[26]=dim10[2];im21[30]=dim11[2];
       dre00[3]=re30[23];dre01[3]=re30[31];
       dim00[3]=im30[23];dim01[3]=im30[31];
       dwre=wre[28];dwim=wim[28];
       re31[22]=dre10[3];re31[30]=dre11[3];
       im31[22]=dim10[3];im31[30]=dim11[3];
       dre00[4]=re40[15];dre01[4]=re40[31];
       dim00[4]=im40[15];dim01[4]=im40[31];
       dwre=wre[30];dwim=wim[30];
       re41[14]=dre10[4];re41[30]=dre11[4];
       im41[14]=dim10[4];im41[30]=dim11[4];
       dre00[5]=re50[15];dre01[5]=re50[47];
       dim00[5]=im50[15];dim01[5]=im50[47];
       dwre=wre[15];dwim=wim[15];
       re51[14]=dre10[5];re51[46]=dre11[5];
       im51[14]=dim10[5];im51[46]=dim11[5];
     end
  17:begin
       dre00[0]=re00[32];dre01[0]=re00[33];
       dim00[0]=im00[32];dim01[0]=im00[33];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[30]=dre10[0];re01[31]=dre11[0];
       im01[30]=dim10[0];im01[31]=dim11[0];
       dre00[1]=re10[32];dre01[1]=re10[34];
       dim00[1]=im10[32];dim01[1]=im10[34];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[29]=dre10[1];re11[31]=dre11[1];
       im11[29]=dim10[1];im11[31]=dim11[1];
       dre00[2]=re20[32];dre01[2]=re20[36];
       dim00[2]=im20[32];dim01[2]=im20[36];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[27]=dre10[2];re21[31]=dre11[2];
       im21[27]=dim10[2];im21[31]=dim11[2];
       dre00[3]=re30[32];dre01[3]=re30[40];
       dim00[3]=im30[32];dim01[3]=im30[40];
       dwre=wre[ 0];dwim=wim[ 0];
       re31[23]=dre10[3];re31[31]=dre11[3];
       im31[23]=dim10[3];im31[31]=dim11[3];
       dre00[4]=re40[32];dre01[4]=re40[48];
       dim00[4]=im40[32];dim01[4]=im40[48];
       dwre=wre[ 0];dwim=wim[ 0];
       re41[15]=dre10[4];re41[31]=dre11[4];
       im41[15]=dim10[4];im41[31]=dim11[4];
       dre00[5]=re50[16];dre01[5]=re50[48];
       dim00[5]=im50[16];dim01[5]=im50[48];
       dwre=wre[16];dwim=wim[16];
       re51[15]=dre10[5];re51[47]=dre11[5];
       im51[15]=dim10[5];im51[47]=dim11[5];
     end
  18:begin
       dre00[0]=re00[34];dre01[0]=re00[35];
       dim00[0]=im00[34];dim01[0]=im00[35];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[32]=dre10[0];re01[33]=dre11[0];
       im01[32]=dim10[0];im01[33]=dim11[0];
       dre00[1]=re10[33];dre01[1]=re10[35];
       dim00[1]=im10[33];dim01[1]=im10[35];
       dwre=wre[16];dwim=wim[16];
       re11[32]=dre10[1];re11[34]=dre11[1];
       im11[32]=dim10[1];im11[34]=dim11[1];
       dre00[2]=re20[33];dre01[2]=re20[37];
       dim00[2]=im20[33];dim01[2]=im20[37];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[32]=dre10[2];re21[36]=dre11[2];
       im21[32]=dim10[2];im21[36]=dim11[2];
       dre00[3]=re30[33];dre01[3]=re30[41];
       dim00[3]=im30[33];dim01[3]=im30[41];
       dwre=wre[ 4];dwim=wim[ 4];
       re31[32]=dre10[3];re31[40]=dre11[3];
       im31[32]=dim10[3];im31[40]=dim11[3];
       dre00[4]=re40[33];dre01[4]=re40[49];
       dim00[4]=im40[33];dim01[4]=im40[49];
       dwre=wre[ 2];dwim=wim[ 2];
       re41[32]=dre10[4];re41[48]=dre11[4];
       im41[32]=dim10[4];im41[48]=dim11[4];
       dre00[5]=re50[17];dre01[5]=re50[49];
       dim00[5]=im50[17];dim01[5]=im50[49];
       dwre=wre[17];dwim=wim[17];
       re51[16]=dre10[5];re51[48]=dre11[5];
       im51[16]=dim10[5];im51[48]=dim11[5];
     end
  19:begin
       dre00[0]=re00[36];dre01[0]=re00[37];
       dim00[0]=im00[36];dim01[0]=im00[37];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[34]=dre10[0];re01[35]=dre11[0];
       im01[34]=dim10[0];im01[35]=dim11[0];
       dre00[1]=re10[36];dre01[1]=re10[38];
       dim00[1]=im10[36];dim01[1]=im10[38];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[33]=dre10[1];re11[35]=dre11[1];
       im11[33]=dim10[1];im11[35]=dim11[1];
       dre00[2]=re20[34];dre01[2]=re20[38];
       dim00[2]=im20[34];dim01[2]=im20[38];
       dwre=wre[16];dwim=wim[16];
       re21[33]=dre10[2];re21[37]=dre11[2];
       im21[33]=dim10[2];im21[37]=dim11[2];
       dre00[3]=re30[34];dre01[3]=re30[42];
       dim00[3]=im30[34];dim01[3]=im30[42];
       dwre=wre[ 8];dwim=wim[ 8];
       re31[33]=dre10[3];re31[41]=dre11[3];
       im31[33]=dim10[3];im31[41]=dim11[3];
       dre00[4]=re40[34];dre01[4]=re40[50];
       dim00[4]=im40[34];dim01[4]=im40[50];
       dwre=wre[ 4];dwim=wim[ 4];
       re41[33]=dre10[4];re41[49]=dre11[4];
       im41[33]=dim10[4];im41[49]=dim11[4];
       dre00[5]=re50[18];dre01[5]=re50[50];
       dim00[5]=im50[18];dim01[5]=im50[50];
       dwre=wre[18];dwim=wim[18];
       re51[17]=dre10[5];re51[49]=dre11[5];
       im51[17]=dim10[5];im51[49]=dim11[5];
     end
  20:begin
       dre00[0]=re00[38];dre01[0]=re00[39];
       dim00[0]=im00[38];dim01[0]=im00[39];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[36]=dre10[0];re01[37]=dre11[0];
       im01[36]=dim10[0];im01[37]=dim11[0];
       dre00[1]=re10[37];dre01[1]=re10[39];
       dim00[1]=im10[37];dim01[1]=im10[39];
       dwre=wre[16];dwim=wim[16];
       re11[36]=dre10[1];re11[38]=dre11[1];
       im11[36]=dim10[1];im11[38]=dim11[1];
       dre00[2]=re20[35];dre01[2]=re20[39];
       dim00[2]=im20[35];dim01[2]=im20[39];
       dwre=wre[24];dwim=wim[24];
       re21[34]=dre10[2];re21[38]=dre11[2];
       im21[34]=dim10[2];im21[38]=dim11[2];
       dre00[3]=re30[35];dre01[3]=re30[43];
       dim00[3]=im30[35];dim01[3]=im30[43];
       dwre=wre[12];dwim=wim[12];
       re31[34]=dre10[3];re31[42]=dre11[3];
       im31[34]=dim10[3];im31[42]=dim11[3];
       dre00[4]=re40[35];dre01[4]=re40[51];
       dim00[4]=im40[35];dim01[4]=im40[51];
       dwre=wre[ 6];dwim=wim[ 6];
       re41[34]=dre10[4];re41[50]=dre11[4];
       im41[34]=dim10[4];im41[50]=dim11[4];
       dre00[5]=re50[19];dre01[5]=re50[51];
       dim00[5]=im50[19];dim01[5]=im50[51];
       dwre=wre[19];dwim=wim[19];
       re51[18]=dre10[5];re51[50]=dre11[5];
       im51[18]=dim10[5];im51[50]=dim11[5];
     end
  21:begin
       dre00[0]=re00[40];dre01[0]=re00[41];
       dim00[0]=im00[40];dim01[0]=im00[41];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[38]=dre10[0];re01[39]=dre11[0];
       im01[38]=dim10[0];im01[39]=dim11[0];
       dre00[1]=re10[40];dre01[1]=re10[42];
       dim00[1]=im10[40];dim01[1]=im10[42];
       dwre=wre[ 0];dwim=wim[ 0];
       re11[37]=dre10[1];re11[39]=dre11[1];
       im11[37]=dim10[1];im11[39]=dim11[1];
       dre00[2]=re20[40];dre01[2]=re20[44];
       dim00[2]=im20[40];dim01[2]=im20[44];
       dwre=wre[ 0];dwim=wim[ 0];
       re21[35]=dre10[2];re21[39]=dre11[2];
       im21[35]=dim10[2];im21[39]=dim11[2];
       dre00[3]=re30[36];dre01[3]=re30[44];
       dim00[3]=im30[36];dim01[3]=im30[44];
       dwre=wre[16];dwim=wim[16];
       re31[35]=dre10[3];re31[43]=dre11[3];
       im31[35]=dim10[3];im31[43]=dim11[3];
       dre00[4]=re40[36];dre01[4]=re40[52];
       dim00[4]=im40[36];dim01[4]=im40[52];
       dwre=wre[ 8];dwim=wim[ 8];
       re41[35]=dre10[4];re41[51]=dre11[4];
       im41[35]=dim10[4];im41[51]=dim11[4];
       dre00[5]=re50[20];dre01[5]=re50[52];
       dim00[5]=im50[20];dim01[5]=im50[52];
       dwre=wre[20];dwim=wim[20];
       re51[19]=dre10[5];re51[51]=dre11[5];
       im51[19]=dim10[5];im51[51]=dim11[5];
     end
  22:begin
       dre00[0]=re00[42];dre01[0]=re00[43];
       dim00[0]=im00[42];dim01[0]=im00[43];
       dwre=wre[ 0];dwim=wim[ 0];
       re01[40]=dre10[0];re01[41]=dre11[0];
       im01[40]=dim10[0];im01[41]=dim11[0];
       dre00[1]=re10[41];dre01[1]=re10[43];
       dim00[1]=im10[41];dim01[1]=im10[43];
       dwre=wre[16];dwim=wim[16];
       re11[40]=dre10[1];re11[42]=dre11[1];
       im11[40]=dim10[1];im11[42]=dim11[1];
       dre00[2]=re20[41];dre01[2]=re20[45];
       dim00[2]=im20[41];dim01[2]=im20[45];
       dwre=wre[ 8];dwim=wim[ 8];
       re21[40]=dre10[2];re21[44]=dre11[2];
       im21[40]=dim10[2];im21[44]=dim11[2];
       dre00[3]=re30[37];dre01[3]=re30[45];
       dim00[3]=im30[37];dim01[3]=im30[45];
       dwre=wre[20];dwim=wim[20];
       re31[36]=dre10[3];re31[44]=dre11[3];
       im31[36]=dim10[3];im31[44]=dim11[3];
       dre00[4]=re40[37];dre01[4]=re40[53];
       dim00[4]=im40[37];dim01[4]=im40[53];
       dwre=wre[10];dwim=wim[10];
       re41[36]=dre10[4];re41[52]=dre11[4];
       im41[36]=dim10[4];im41[52]=dim11[4];
       dre00[5]=re50[21];dre01[5]=re50[53];
       dim00[5]=im50[21];dim01[5]=im50[53];