119   int t0,t1,t2,t3,t4,t5,t6;  in dradf2()  local
123   t3=ido<<1;  in dradf2()
126     ch[(t1<<1)+t3-1]=cc[t1]-cc[t2];  in dradf2()
137     t3=t2;  in dradf2()
142       t3+=2;  in dradf2()
146       tr2=wa1[i-2]*cc[t3-1]+wa1[i-1]*cc[t3];  in dradf2()
147       ti2=wa1[i-2]*cc[t3]-wa1[i-1]*cc[t3-1];  in dradf2()
160   t3=(t2=(t1=ido)-1);  in dradf2()
164     ch[t1-1]=cc[t3];  in dradf2()
167     t3+=ido;  in dradf2()
174   int i,k,t0,t1,t2,t3,t4,t5,t6;  in dradf4()  local
181   t3=0;  in dradf4()
185     tr2=cc[t3]+cc[t4];  in dradf4()
187     ch[t5=t3<<2]=tr1+tr2;  in dradf4()
189     ch[(t5+=(ido<<1))-1]=cc[t3]-cc[t4];  in dradf4()
194     t3+=ido;  in dradf4()
208       t3=(t2+=2);  in dradf4()
212       t3+=t0;  in dradf4()
213       cr2=wa1[i-2]*cc[t3-1]+wa1[i-1]*cc[t3];  in dradf4()
214       ci2=wa1[i-2]*cc[t3]-wa1[i-1]*cc[t3-1];  in dradf4()
215       t3+=t0;  in dradf4()
216       cr3=wa2[i-2]*cc[t3-1]+wa2[i-1]*cc[t3];  in dradf4()
217       ci3=wa2[i-2]*cc[t3]-wa2[i-1]*cc[t3-1];  in dradf4()
218       t3+=t0;  in dradf4()
219       cr4=wa3[i-2]*cc[t3-1]+wa3[i-1]*cc[t3];  in dradf4()
220       ci4=wa3[i-2]*cc[t3]-wa3[i-1]*cc[t3-1];  in dradf4()
251   t3=ido<<2;  in dradf4()
268     t4+=t3;  in dradf4()
278   int t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10;  in dradfg()  local
317         t3=t2;  in dradfg()
320           t3+=2;  in dradfg()
321           ch[t3-1]=wa[idij-1]*c1[t3-1]+wa[idij]*c1[t3];  in dradfg()
322           ch[t3]=wa[idij-1]*c1[t3]-wa[idij]*c1[t3-1];  in dradfg()
336         t3=t2;  in dradfg()
338           ch[t3-1]=wa[idij-1]*c1[t3-1]+wa[idij]*c1[t3];  in dradfg()
339           ch[t3]=wa[idij-1]*c1[t3]-wa[idij]*c1[t3-1];  in dradfg()
340           t3+=ido;  in dradfg()
352       t3=t1;  in dradfg()
355         t3+=2;  in dradfg()
357         t5=t3-ido;  in dradfg()
373       t3=t1;  in dradfg()
376         t5=t3;  in dradfg()
386         t3+=ido;  in dradfg()
400     t3=t1-ido;  in dradfg()
403       t3+=ido;  in dradfg()
405       c1[t3]=ch[t3]+ch[t4];  in dradfg()
406       c1[t4]=ch[t4]-ch[t3];  in dradfg()
414   t3=(ip-1)*idl1;  in dradfg()
423     t6=t3;  in dradfg()
469     t3=t1;  in dradfg()
471     for(i=0;i<ido;i++)cc[t4++]=ch[t3++];  in dradfg()
492   t3=0;  in dradfg()
497     t3+=t0;  in dradfg()
501     t6=t3;  in dradfg()
517   t3=0;  in dradfg()
522     t3+=t2;  in dradfg()
526     t7=t3;  in dradfg()
548   t3=0;  in dradfg()
553     t3+=t2;  in dradfg()
558       t7=i+t3;  in dradfg()
637   int i,k,t0,t1,t2,t3,t4,t5,t6;  in dradb2()  local
644   t3=(ido<<1)-1;  in dradb2()
646     ch[t1]=cc[t2]+cc[t3+t2];  in dradb2()
647     ch[t1+t0]=cc[t2]-cc[t3+t2];  in dradb2()
657     t3=t1;  in dradb2()
661       t3+=2;  in dradb2()
665       ch[t3-1]=cc[t4-1]+cc[t5-1];  in dradb2()
667       ch[t3]=cc[t4]-cc[t5];  in dradb2()
692   int i,k,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10;  in dradb3()  local
698   t3=ido<<1;  in dradb3()
702     tr2=cc[t3-1]+cc[t3-1];  in dradb3()
705     ci3=taui*(cc[t3]+cc[t3]);  in dradb3()
709     t3+=t4;  in dradb3()
716   t3=ido<<1;  in dradb3()
719     t6=(t5=t7+t3);  in dradb3()
754   int i,k,t0,t1,t2,t3,t4,t5,t6,t7,t8;  in dradb4()  local
760   t3=0;  in dradb4()
763     t4=t3+t6;  in dradb4()
767     tr1=cc[t3]-cc[(t4+=t6)-1];  in dradb4()
768     tr2=cc[t3]+cc[t4-1];  in dradb4()
774     t3+=t2;  in dradb4()
782     t5=(t4=(t3=(t2=t1<<2)+t6))+t6;  in dradb4()
786       t3+=2;  in dradb4()
792       ti3=cc[t3]-cc[t4];  in dradb4()
793       tr4=cc[t3]+cc[t4];  in dradb4()
796       ti4=cc[t3-1]-cc[t4-1];  in dradb4()
797       tr3=cc[t3-1]+cc[t4-1];  in dradb4()
823   t3=ido-1;  in dradb4()
826     t5=t3;  in dradb4()
836     t3+=ido;  in dradb4()
845   int idij,ipph,i,j,k,l,ik,is,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,  in dradbg()  local
865     t3=t1;  in dradbg()
868       ch[t3]=cc[t4];  in dradbg()
869       t3++;  in dradbg()
881     t3=t1;  in dradbg()
883       ch[t2]=cc[t3];  in dradbg()
885       t3+=t10;  in dradbg()
897     t3=t1;  in dradbg()
901       ch[t3]=cc[t6-1]+cc[t6-1];  in dradbg()
903       t3+=ido;  in dradbg()
919     t3=t1;  in dradbg()
925       t5=t3;  in dradbg()
939       t3+=ido;  in dradbg()
953     t3=t1;  in dradbg()
959       t3+=2;  in dradbg()
963       t5=t3;  in dradbg()
985   t3=(ip-1)*idl1;  in dradbg()
997     t8=t3;  in dradbg()
1038     t3=t1;  in dradbg()
1041       ch[t3]=c1[t3]-c1[t4];  in dradbg()
1042       ch[t4]=c1[t3]+c1[t4];  in dradbg()
1043       t3+=ido;  in dradbg()
1056     t3=t1;  in dradbg()
1059       t5=t3;  in dradbg()
1069       t3+=ido;  in dradbg()
1081     t3=t1;  in dradbg()
1084       t3+=2;  in dradbg()
1086       t5=t3;  in dradbg()
1125       t3=t2;  in dradbg()
1127         c1[t3-1]=wa[idij-1]*ch[t3-1]-wa[idij]*ch[t3];  in dradbg()
1128         c1[t3]=wa[idij-1]*ch[t3]+wa[idij]*ch[t3-1];  in dradbg()
1129         t3+=ido;  in dradbg()
1144       t3=t2;  in dradbg()
1147         t3+=2;  in dradbg()
1148         c1[t3-1]=wa[idij-1]*ch[t3-1]-wa[idij]*ch[t3];  in dradbg()
1149         c1[t3]=wa[idij-1]*ch[t3]+wa[idij]*ch[t3-1];  in dradbg()