278   int t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10;  in dradfg()  local
424     t7=idl1;  in dradfg()
427       ch2[t4++]=c2[ik]+ar1*c2[t7++];  in dradfg()
447       t7=t2;  in dradfg()
452         ch2[t7++]+=ai2*c2[t9++];  in dradfg()
502     t7=t4;  in dradfg()
506       cc[t5]=ch[t7];  in dradfg()
509       t7+=ido;  in dradfg()
526     t7=t3;  in dradfg()
532         cc[i+t7-1]=ch[i+t8-1]+ch[i+t9-1];  in dradfg()
534         cc[i+t7]=ch[i+t8]+ch[i+t9];  in dradfg()
538       t7+=t10;  in dradfg()
558       t7=i+t3;  in dradfg()
562         cc[t7-1]=ch[t8-1]+ch[t9-1];  in dradfg()
564         cc[t7]=ch[t8]+ch[t9];  in dradfg()
567         t7+=t10;  in dradfg()
692   int i,k,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10;  in dradb3()  local
718     t7=t1+(t1<<1);  in dradb3()
719     t6=(t5=t7+t3);  in dradb3()
726       t7+=2;  in dradb3()
731       cr2=cc[t7-1]+(taur*tr2);  in dradb3()
732       ch[t8-1]=cc[t7-1]+tr2;  in dradb3()
734       ci2=cc[t7]+(taur*ti2);  in dradb3()
735       ch[t8]=cc[t7]+ti2;  in dradb3()
754   int i,k,t0,t1,t2,t3,t4,t5,t6,t7,t8;  in dradb4()  local
783     t7=t1;  in dradb4()
789       t7+=2;  in dradb4()
798       ch[t7-1]=tr2+tr3;  in dradb4()
800       ch[t7]=ti2+ti3;  in dradb4()
807       ch[(t8=t7+t0)-1]=wa1[i-2]*cr2-wa1[i-1]*ci2;  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
893   t7=(t5=ido<<1);  in dradbg()
907     t5+=t7;  in dradbg()
915   t7=0;  in dradbg()
922     t7+=(ido<<1);  in dradbg()
923     t8=t7;  in dradbg()
949   t7=0;  in dradbg()
955     t7+=(ido<<1);  in dradbg()
956     t8=t7;  in dradbg()
957     t9=t7;  in dradbg()
996     t7=idl1;  in dradbg()
999       c2[t4++]=ch2[t6++]+ar1*ch2[t7++];  in dradbg()
1008     t7=t9-idl1;  in dradbg()
1011       t7-=idl1;  in dradbg()
1018       t12=t7;  in dradbg()