Lines Matching refs:ch
116 static void dradf2(int ido,int l1,float *cc,float *ch,float *wa1){
125 ch[t1<<1]=cc[t1]+cc[t2];
126 ch[(t1<<1)+t3-1]=cc[t1]-cc[t2];
148 ch[t6]=cc[t5]+ti2;
149 ch[t4]=ti2-cc[t5];
150 ch[t6-1]=cc[t5-1]+tr2;
151 ch[t4-1]=cc[t5-1]-tr2;
163 ch[t1]=-cc[t2];
164 ch[t1-1]=cc[t3];
171 static void dradf4(int ido,int l1,float *cc,float *ch,float *wa1,
187 ch[t5=t3<<2]=tr1+tr2;
188 ch[(ido<<2)+t5-1]=tr2-tr1;
189 ch[(t5+=(ido<<1))-1]=cc[t3]-cc[t4];
190 ch[t5]=cc[t2]-cc[t1];
232 ch[t4-1]=tr1+tr2;
233 ch[t4]=ti1+ti2;
235 ch[t5-1]=tr3-ti4;
236 ch[t5]=tr4-ti3;
238 ch[t4+t6-1]=ti4+tr3;
239 ch[t4+t6]=tr4+ti3;
241 ch[t5+t6-1]=tr2-tr1;
242 ch[t5+t6]=ti1-ti2;
260 ch[t4-1]=tr1+cc[t6-1];
261 ch[t4+t5-1]=cc[t6-1]-tr1;
263 ch[t4]=ti1-cc[t1+t0];
264 ch[t4+t5]=ti1+cc[t1+t0];
274 float *c2,float *ch,float *ch2,float *wa){
302 ch[t2]=c1[t2];
321 ch[t3-1]=wa[idij-1]*c1[t3-1]+wa[idij]*c1[t3];
322 ch[t3]=wa[idij-1]*c1[t3]-wa[idij]*c1[t3-1];
338 ch[t3-1]=wa[idij-1]*c1[t3-1]+wa[idij]*c1[t3];
339 ch[t3]=wa[idij-1]*c1[t3]-wa[idij]*c1[t3-1];
362 c1[t5-1]=ch[t5-1]+ch[t6-1];
363 c1[t6-1]=ch[t5]-ch[t6];
364 c1[t5]=ch[t5]+ch[t6];
365 c1[t6]=ch[t6-1]-ch[t5-1];
381 c1[t5-1]=ch[t5-1]+ch[t6-1];
382 c1[t6-1]=ch[t5]-ch[t6];
383 c1[t5]=ch[t5]+ch[t6];
384 c1[t6]=ch[t6-1]-ch[t5-1];
405 c1[t3]=ch[t3]+ch[t4];
406 c1[t4]=ch[t4]-ch[t3];
471 for(i=0;i<ido;i++)cc[t4++]=ch[t3++];
483 cc[t2]=ch[t1];
505 cc[t5-1]=ch[t6];
506 cc[t5]=ch[t7];
532 cc[i+t7-1]=ch[i+t8-1]+ch[i+t9-1];
533 cc[ic+t6-1]=ch[i+t8-1]-ch[i+t9-1];
534 cc[i+t7]=ch[i+t8]+ch[i+t9];
535 cc[ic+t6]=ch[i+t9]-ch[i+t8];
562 cc[t7-1]=ch[t8-1]+ch[t9-1];
563 cc[t6-1]=ch[t8-1]-ch[t9-1];
564 cc[t7]=ch[t8]+ch[t9];
565 cc[t6]=ch[t9]-ch[t8];
575 static void drftf1(int n,float *c,float *ch,float *wa,int *ifac){
599 dradf4(ido,l1,ch,c,wa+iw-1,wa+ix2-1,wa+ix3-1);
601 dradf4(ido,l1,c,ch,wa+iw-1,wa+ix2-1,wa+ix3-1);
608 dradf2(ido,l1,c,ch,wa+iw-1);
612 dradf2(ido,l1,ch,c,wa+iw-1);
619 dradfg(ido,ip,l1,idl1,c,c,c,ch,ch,wa+iw-1);
624 dradfg(ido,ip,l1,idl1,ch,ch,ch,c,c,wa+iw-1);
633 for(i=0;i<n;i++)c[i]=ch[i];
636 static void dradb2(int ido,int l1,float *cc,float *ch,float *wa1){
646 ch[t1]=cc[t2]+cc[t3+t2];
647 ch[t1+t0]=cc[t2]-cc[t3+t2];
665 ch[t3-1]=cc[t4-1]+cc[t5-1];
667 ch[t3]=cc[t4]-cc[t5];
669 ch[t6-1]=wa1[i-2]*tr2-wa1[i-1]*ti2;
670 ch[t6]=wa1[i-2]*ti2+wa1[i-1]*tr2;
681 ch[t1]=cc[t2]+cc[t2];
682 ch[t1+t0]=-(cc[t2+1]+cc[t2+1]);
688 static void dradb3(int ido,int l1,float *cc,float *ch,float *wa1,
704 ch[t1]=cc[t5]+tr2;
706 ch[t1+t0]=cr2-ci3;
707 ch[t1+t2]=cr2+ci3;
732 ch[t8-1]=cc[t7-1]+tr2;
735 ch[t8]=cc[t7]+ti2;
742 ch[t9-1]=wa1[i-2]*dr2-wa1[i-1]*di2;
743 ch[t9]=wa1[i-2]*di2+wa1[i-1]*dr2;
744 ch[t10-1]=wa2[i-2]*dr3-wa2[i-1]*di3;
745 ch[t10]=wa2[i-2]*di3+wa2[i-1]*dr3;
751 static void dradb4(int ido,int l1,float *cc,float *ch,float *wa1,
769 ch[t5]=tr2+tr3;
770 ch[t5+=t0]=tr1-tr4;
771 ch[t5+=t0]=tr2-tr3;
772 ch[t5+=t0]=tr1+tr4;
798 ch[t7-1]=tr2+tr3;
800 ch[t7]=ti2+ti3;
807 ch[(t8=t7+t0)-1]=wa1[i-2]*cr2-wa1[i-1]*ci2;
808 ch[t8]=wa1[i-2]*ci2+wa1[i-1]*cr2;
809 ch[(t8+=t0)-1]=wa2[i-2]*cr3-wa2[i-1]*ci3;
810 ch[t8]=wa2[i-2]*ci3+wa2[i-1]*cr3;
811 ch[(t8+=t0)-1]=wa3[i-2]*cr4-wa3[i-1]*ci4;
812 ch[t8]=wa3[i-2]*ci4+wa3[i-1]*cr4;
831 ch[t5]=tr2+tr2;
832 ch[t5+=t0]=sqrt2*(tr1-ti1);
833 ch[t5+=t0]=ti2+ti2;
834 ch[t5+=t0]=-sqrt2*(tr1+ti1);
843 float *c2,float *ch,float *ch2,float *wa){
868 ch[t3]=cc[t4];
883 ch[t2]=cc[t3];
901 ch[t3]=cc[t6-1]+cc[t6-1];
902 ch[t4]=cc[t6]+cc[t6];
934 ch[t5-1]=cc[t9-1]+cc[t11-1];
935 ch[t6-1]=cc[t9-1]-cc[t11-1];
936 ch[t5]=cc[t9]-cc[t11];
937 ch[t6]=cc[t9]+cc[t11];
968 ch[t5-1]=cc[t11-1]+cc[t12-1];
969 ch[t6-1]=cc[t11-1]-cc[t12-1];
970 ch[t5]=cc[t11]-cc[t12];
971 ch[t6]=cc[t11]+cc[t12];
1041 ch[t3]=c1[t3]-c1[t4];
1042 ch[t4]=c1[t3]+c1[t4];
1064 ch[t5-1]=c1[t5-1]-c1[t6];
1065 ch[t6-1]=c1[t5-1]+c1[t6];
1066 ch[t5]=c1[t5]+c1[t6-1];
1067 ch[t6]=c1[t5]-c1[t6-1];
1089 ch[t5-1]=c1[t5-1]-c1[t6];
1090 ch[t6-1]=c1[t5-1]+c1[t6];
1091 ch[t5]=c1[t5]+c1[t6-1];
1092 ch[t6]=c1[t5]-c1[t6-1];
1108 c1[t2]=ch[t2];
1127 c1[t3-1]=wa[idij-1]*ch[t3-1]-wa[idij]*ch[t3];
1128 c1[t3]=wa[idij-1]*ch[t3]+wa[idij]*ch[t3-1];
1148 c1[t3-1]=wa[idij-1]*ch[t3-1]-wa[idij]*ch[t3];
1149 c1[t3]=wa[idij-1]*ch[t3]+wa[idij]*ch[t3-1];
1156 static void drftb1(int n, float *c, float *ch, float *wa, int *ifac){
1176 dradb4(ido,l1,ch,c,wa+iw-1,wa+ix2-1,wa+ix3-1);
1178 dradb4(ido,l1,c,ch,wa+iw-1,wa+ix2-1,wa+ix3-1);
1186 dradb2(ido,l1,ch,c,wa+iw-1);
1188 dradb2(ido,l1,c,ch,wa+iw-1);
1197 dradb3(ido,l1,ch,c,wa+iw-1,wa+ix2-1);
1199 dradb3(ido,l1,c,ch,wa+iw-1,wa+ix2-1);
1211 dradb5(ido,l1,ch,c,wa+iw-1,wa+ix2-1,wa+ix3-1,wa+ix4-1);
1213 dradb5(ido,l1,c,ch,wa+iw-1,wa+ix2-1,wa+ix3-1,wa+ix4-1);
1219 dradbg(ido,ip,l1,idl1,ch,ch,ch,c,c,wa+iw-1);
1221 dradbg(ido,ip,l1,idl1,c,c,c,ch,ch,wa+iw-1);
1231 for(i=0;i<n;i++)c[i]=ch[i];
