273 static void dradfg(int ido,int ip,int l1,int idl1,float *cc,float *c1,  in dradfg()  argument
295   for(ik=0;ik<idl1;ik++)ch2[ik]=c2[ik];  in dradfg()
393   for(ik=0;ik<idl1;ik++)c2[ik]=ch2[ik];  in dradfg()
396   t2=ipp2*idl1;  in dradfg()
413   t2=ipp2*idl1;  in dradfg()
414   t3=(ip-1)*idl1;  in dradfg()
416     t1+=idl1;  in dradfg()
417     t2-=idl1;  in dradfg()
424     t7=idl1;  in dradfg()
426     for(ik=0;ik<idl1;ik++){  in dradfg()
436     t4=idl1;  in dradfg()
437     t5=(ipp2-1)*idl1;  in dradfg()
439       t4+=idl1;  in dradfg()
440       t5-=idl1;  in dradfg()
450       for(ik=0;ik<idl1;ik++){  in dradfg()
459     t1+=idl1;  in dradfg()
461     for(ik=0;ik<idl1;ik++)ch2[ik]+=c2[t2++];  in dradfg()
578   int ip,iw,ido,idl1,ix2,ix3;  in drftf1()  local
590     idl1=ido*l1;  in drftf1()
619     dradfg(ido,ip,l1,idl1,c,c,c,ch,ch,wa+iw-1);  in drftf1()
624     dradfg(ido,ip,l1,idl1,ch,ch,ch,c,c,wa+iw-1);  in drftf1()
842 static void dradbg(int ido,int ip,int l1,int idl1,float *cc,float *c1,  in dradbg()  argument
984   t9=(t2=ipp2*idl1);  in dradbg()
985   t3=(ip-1)*idl1;  in dradbg()
987     t1+=idl1;  in dradbg()
988     t2-=idl1;  in dradbg()
996     t7=idl1;  in dradbg()
998     for(ik=0;ik<idl1;ik++){  in dradbg()
1007     t6=idl1;  in dradbg()
1008     t7=t9-idl1;  in dradbg()
1010       t6+=idl1;  in dradbg()
1011       t7-=idl1;  in dradbg()
1019       for(ik=0;ik<idl1;ik++){  in dradbg()
1028     t1+=idl1;  in dradbg()
1030     for(ik=0;ik<idl1;ik++)ch2[ik]+=ch2[t2++];  in dradbg()
1102   for(ik=0;ik<idl1;ik++)c2[ik]=ch2[ik];  in dradbg()
1159   int nf,ip,iw,ix2,ix3,ido,idl1;  in drftb1()  local
1170     idl1=ido*l1;  in drftb1()
1219       dradbg(ido,ip,l1,idl1,ch,ch,ch,c,c,wa+iw-1);  in drftb1()
1221       dradbg(ido,ip,l1,idl1,c,c,c,ch,ch,wa+iw-1);  in drftb1()