Lines Matching refs:ido
47 int ido, ipm, nfm1;
90 ido=n/l2;
98 for (ii=2;ii<ido;ii+=2){
104 is+=ido;
116 static void dradf2(int ido,int l1,float *cc,float *ch,float *wa1){
122 t0=(t2=l1*ido);
123 t3=ido<<1;
127 t1+=ido;
128 t2+=ido;
131 if(ido<2)return;
132 if(ido==2)goto L105;
138 t4=(t1<<1)+(ido<<1);
141 for(i=2;i<ido;i+=2){
153 t1+=ido;
154 t2+=ido;
157 if(ido%2==1)return;
160 t3=(t2=(t1=ido)-1);
165 t1+=ido<<1;
166 t2+=ido;
167 t3+=ido;
171 static void dradf4(int ido,int l1,float *cc,float *ch,float *wa1,
176 t0=l1*ido;
188 ch[(ido<<2)+t5-1]=tr2-tr1;
189 ch[(t5+=(ido<<1))-1]=cc[t3]-cc[t4];
192 t1+=ido;
193 t2+=ido;
194 t3+=ido;
195 t4+=ido;
198 if(ido<2)return;
199 if(ido==2)goto L105;
206 t5=(t6=ido<<1)+t4;
207 for(i=2;i<ido;i+=2){
244 t1+=ido;
246 if(ido&1)return;
250 t2=(t1=t0+ido-1)+(t0<<1);
251 t3=ido<<2;
252 t4=ido;
253 t5=ido<<1;
254 t6=ido;
266 t1+=ido;
267 t2+=ido;
269 t6+=ido;
273 static void dradfg(int ido,int ip,int l1,int idl1,float *cc,float *c1,
289 idp2=ido;
290 nbd=(ido-1)>>1;
291 t0=l1*ido;
292 t10=ip*ido;
294 if(ido==1)goto L119;
303 t2+=ido;
307 is=-ido;
312 is+=ido;
313 t2= -ido+t1;
316 t2+=ido;
318 for(i=2;i<ido;i+=2){
329 is+=ido;
333 for(i=2;i<ido;i+=2){
340 t3+=ido;
354 for(i=2;i<ido;i+=2){
357 t5=t3-ido;
358 t6=t4-ido;
360 t5+=ido;
361 t6+=ido;
378 for(i=2;i<ido;i+=2){
386 t3+=ido;
387 t4+=ido;
400 t3=t1-ido;
401 t4=t2-ido;
403 t3+=ido;
404 t4+=ido;
464 if(ido<l1)goto L132;
471 for(i=0;i<ido;i++)cc[t4++]=ch[t3++];
472 t1+=ido;
479 for(i=0;i<ido;i++){
484 t1+=ido;
491 t2=ido<<1;
508 t6+=ido;
509 t7+=ido;
513 if(ido==1)return;
516 t1=-ido;
530 for(i=2;i<ido;i+=2){
539 t8+=ido;
540 t9+=ido;
547 t1=-ido;
556 for(i=2;i<ido;i+=2){
568 t8+=ido;
569 t9+=ido;
578 int ip,iw,ido,idl1,ix2,ix3;
589 ido=n/l2;
590 idl1=ido*l1;
591 iw-=(ip-1)*ido;
596 ix2=iw+ido;
597 ix3=ix2+ido;
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);
616 if(ido==1)na=1-na;
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);
636 static void dradb2(int ido,int l1,float *cc,float *ch,float *wa1){
640 t0=l1*ido;
644 t3=(ido<<1)-1;
648 t2=(t1+=ido)<<1;
651 if(ido<2)return;
652 if(ido==2)goto L105;
658 t5=(t4=t2)+(ido<<1);
660 for(i=2;i<ido;i+=2){
672 t2=(t1+=ido)<<1;
675 if(ido%2==1)return;
678 t1=ido-1;
679 t2=ido-1;
683 t1+=ido;
684 t2+=ido<<1;
688 static void dradb3(int ido,int l1,float *cc,float *ch,float *wa1,
694 t0=l1*ido;
698 t3=ido<<1;
699 t4=ido+(ido<<1);
708 t1+=ido;
713 if(ido==1)return;
716 t3=ido<<1;
723 for(i=2;i<ido;i+=2){
747 t1+=ido;
751 static void dradb4(int ido,int l1,float *cc,float *ch,float *wa1,
756 t0=l1*ido;
759 t2=ido<<2;
761 t6=ido<<1;
773 t1+=ido;
777 if(ido<2)return;
778 if(ido==2)goto L105;
784 for(i=2;i<ido;i+=2){
814 t1+=ido;
817 if(ido%2 == 1)return;
821 t1=ido;
822 t2=ido<<2;
823 t3=ido-1;
824 t4=ido+(ido<<1);
836 t3+=ido;
842 static void dradbg(int ido,int ip,int l1,int idl1,float *cc,float *c1,
852 t10=ip*ido;
853 t0=l1*ido;
857 nbd=(ido-1)>>1;
860 if(ido<l1)goto L103;
867 for(i=0;i<ido;i++){
872 t1+=ido;
879 for(i=0;i<ido;i++){
884 t2+=ido;
893 t7=(t5=ido<<1);
903 t3+=ido;
904 t4+=ido;
910 if (ido == 1)goto L116;
922 t7+=(ido<<1);
929 for(i=2;i<ido;i+=2){
939 t3+=ido;
940 t4+=ido;
955 t7+=(ido<<1);
958 for(i=2;i<ido;i+=2){
972 t5+=ido;
973 t6+=ido;
1043 t3+=ido;
1044 t4+=ido;
1048 if(ido==1)goto L132;
1061 for(i=2;i<ido;i+=2){
1069 t3+=ido;
1070 t4+=ido;
1083 for(i=2;i<ido;i+=2){
1093 t5+=ido;
1094 t6+=ido;
1100 if(ido==1)return;
1109 t2+=ido;
1115 is= -ido-1;
1118 is+=ido;
1122 for(i=2;i<ido;i+=2){
1129 t3+=ido;
1136 is= -ido-1;
1139 is+=ido;
1145 for(i=2;i<ido;i+=2){
1151 t2+=ido;
1159 int nf,ip,iw,ix2,ix3,ido,idl1;
1169 ido=n/l2;
1170 idl1=ido*l1;
1172 ix2=iw+ido;
1173 ix3=ix2+ido;
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);
1195 ix2=iw+ido;
1197 dradb3(ido,l1,ch,c,wa+iw-1,wa+ix2-1);
1199 dradb3(ido,l1,c,ch,wa+iw-1,wa+ix2-1);
1207 ix2=iw+ido;
1208 ix3=ix2+ido;
1209 ix4=ix3+ido;
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);
1222 if(ido==1)na=1-na;
1226 iw+=(ip-1)*ido;
