Lines Matching defs:ido
45 int ido, ipm, nfm1;
88 ido=n/l2;
96 for (ii=2;ii<ido;ii+=2){
102 is+=ido;
114 static void dradf2(int ido,int l1,float *cc,float *ch,float *wa1){
120 t0=(t2=l1*ido);
121 t3=ido<<1;
125 t1+=ido;
126 t2+=ido;
129 if(ido<2)return;
130 if(ido==2)goto L105;
136 t4=(t1<<1)+(ido<<1);
139 for(i=2;i<ido;i+=2){
151 t1+=ido;
152 t2+=ido;
155 if(ido%2==1)return;
158 t3=(t2=(t1=ido)-1);
163 t1+=ido<<1;
164 t2+=ido;
165 t3+=ido;
169 static void dradf4(int ido,int l1,float *cc,float *ch,float *wa1,
174 t0=l1*ido;
186 ch[(ido<<2)+t5-1]=tr2-tr1;
187 ch[(t5+=(ido<<1))-1]=cc[t3]-cc[t4];
190 t1+=ido;
191 t2+=ido;
192 t3+=ido;
193 t4+=ido;
196 if(ido<2)return;
197 if(ido==2)goto L105;
204 t5=(t6=ido<<1)+t4;
205 for(i=2;i<ido;i+=2){
242 t1+=ido;
244 if(ido&1)return;
248 t2=(t1=t0+ido-1)+(t0<<1);
249 t3=ido<<2;
250 t4=ido;
251 t5=ido<<1;
252 t6=ido;
264 t1+=ido;
265 t2+=ido;
267 t6+=ido;
271 static void dradfg(int ido,int ip,int l1,int idl1,float *cc,float *c1,
287 idp2=ido;
288 nbd=(ido-1)>>1;
289 t0=l1*ido;
290 t10=ip*ido;
292 if(ido==1)goto L119;
301 t2+=ido;
305 is=-ido;
310 is+=ido;
311 t2= -ido+t1;
314 t2+=ido;
316 for(i=2;i<ido;i+=2){
327 is+=ido;
331 for(i=2;i<ido;i+=2){
338 t3+=ido;
352 for(i=2;i<ido;i+=2){
355 t5=t3-ido;
356 t6=t4-ido;
358 t5+=ido;
359 t6+=ido;
376 for(i=2;i<ido;i+=2){
384 t3+=ido;
385 t4+=ido;
398 t3=t1-ido;
399 t4=t2-ido;
401 t3+=ido;
402 t4+=ido;
462 if(ido<l1)goto L132;
469 for(i=0;i<ido;i++)cc[t4++]=ch[t3++];
470 t1+=ido;
477 for(i=0;i<ido;i++){
482 t1+=ido;
489 t2=ido<<1;
506 t6+=ido;
507 t7+=ido;
511 if(ido==1)return;
514 t1=-ido;
528 for(i=2;i<ido;i+=2){
537 t8+=ido;
538 t9+=ido;
545 t1=-ido;
554 for(i=2;i<ido;i+=2){
566 t8+=ido;
567 t9+=ido;
576 int ip,iw,ido,idl1,ix2,ix3;
587 ido=n/l2;
588 idl1=ido*l1;
589 iw-=(ip-1)*ido;
594 ix2=iw+ido;
595 ix3=ix2+ido;
597 dradf4(ido,l1,ch,c,wa+iw-1,wa+ix2-1,wa+ix3-1);
599 dradf4(ido,l1,c,ch,wa+iw-1,wa+ix2-1,wa+ix3-1);
606 dradf2(ido,l1,c,ch,wa+iw-1);
610 dradf2(ido,l1,ch,c,wa+iw-1);
614 if(ido==1)na=1-na;
617 dradfg(ido,ip,l1,idl1,c,c,c,ch,ch,wa+iw-1);
622 dradfg(ido,ip,l1,idl1,ch,ch,ch,c,c,wa+iw-1);
634 static void dradb2(int ido,int l1,float *cc,float *ch,float *wa1){
638 t0=l1*ido;
642 t3=(ido<<1)-1;
646 t2=(t1+=ido)<<1;
649 if(ido<2)return;
650 if(ido==2)goto L105;
656 t5=(t4=t2)+(ido<<1);
658 for(i=2;i<ido;i+=2){
670 t2=(t1+=ido)<<1;
673 if(ido%2==1)return;
676 t1=ido-1;
677 t2=ido-1;
681 t1+=ido;
682 t2+=ido<<1;
686 static void dradb3(int ido,int l1,float *cc,float *ch,float *wa1,
692 t0=l1*ido;
696 t3=ido<<1;
697 t4=ido+(ido<<1);
706 t1+=ido;
711 if(ido==1)return;
714 t3=ido<<1;
721 for(i=2;i<ido;i+=2){
745 t1+=ido;
749 static void dradb4(int ido,int l1,float *cc,float *ch,float *wa1,
754 t0=l1*ido;
757 t2=ido<<2;
759 t6=ido<<1;
771 t1+=ido;
775 if(ido<2)return;
776 if(ido==2)goto L105;
782 for(i=2;i<ido;i+=2){
812 t1+=ido;
815 if(ido%2 == 1)return;
819 t1=ido;
820 t2=ido<<2;
821 t3=ido-1;
822 t4=ido+(ido<<1);
834 t3+=ido;
840 static void dradbg(int ido,int ip,int l1,int idl1,float *cc,float *c1,
850 t10=ip*ido;
851 t0=l1*ido;
855 nbd=(ido-1)>>1;
858 if(ido<l1)goto L103;
865 for(i=0;i<ido;i++){
870 t1+=ido;
877 for(i=0;i<ido;i++){
882 t2+=ido;
891 t7=(t5=ido<<1);
901 t3+=ido;
902 t4+=ido;
908 if (ido == 1)goto L116;
920 t7+=(ido<<1);
927 for(i=2;i<ido;i+=2){
937 t3+=ido;
938 t4+=ido;
953 t7+=(ido<<1);
956 for(i=2;i<ido;i+=2){
970 t5+=ido;
971 t6+=ido;
1041 t3+=ido;
1042 t4+=ido;
1046 if(ido==1)goto L132;
1059 for(i=2;i<ido;i+=2){
1067 t3+=ido;
1068 t4+=ido;
1081 for(i=2;i<ido;i+=2){
1091 t5+=ido;
1092 t6+=ido;
1098 if(ido==1)return;
1107 t2+=ido;
1113 is= -ido-1;
1116 is+=ido;
1120 for(i=2;i<ido;i+=2){
1127 t3+=ido;
1134 is= -ido-1;
1137 is+=ido;
1143 for(i=2;i<ido;i+=2){
1149 t2+=ido;
1157 int nf,ip,iw,ix2,ix3,ido,idl1;
1167 ido=n/l2;
1168 idl1=ido*l1;
1170 ix2=iw+ido;
1171 ix3=ix2+ido;
1174 dradb4(ido,l1,ch,c,wa+iw-1,wa+ix2-1,wa+ix3-1);
1176 dradb4(ido,l1,c,ch,wa+iw-1,wa+ix2-1,wa+ix3-1);
1184 dradb2(ido,l1,ch,c,wa+iw-1);
1186 dradb2(ido,l1,c,ch,wa+iw-1);
1193 ix2=iw+ido;
1195 dradb3(ido,l1,ch,c,wa+iw-1,wa+ix2-1);
1197 dradb3(ido,l1,c,ch,wa+iw-1,wa+ix2-1);
1205 ix2=iw+ido;
1206 ix3=ix2+ido;
1207 ix4=ix3+ido;
1209 dradb5(ido,l1,ch,c,wa+iw-1,wa+ix2-1,wa+ix3-1,wa+ix4-1);
1211 dradb5(ido,l1,c,ch,wa+iw-1,wa+ix2-1,wa+ix3-1,wa+ix4-1);
1217 dradbg(ido,ip,l1,idl1,ch,ch,ch,c,c,wa+iw-1);
1219 dradbg(ido,ip,l1,idl1,c,c,c,ch,ch,wa+iw-1);
1220 if(ido==1)na=1-na;
1224 iw+=(ip-1)*ido;