277   float dc2,ai1,ai2,ar1,ar2,ds2;  in dradfg()  local
408   ar1=1.f;  in dradfg()
416     ar1h=dcp*ar1-dsp*ai1;  in dradfg()
417     ai1=dcp*ai1+dsp*ar1;  in dradfg()
418     ar1=ar1h;  in dradfg()
425       ch2[t4++]=c2[ik]+ar1*c2[t7++];  in dradfg()
429     dc2=ar1;  in dradfg()
431     ar2=ar1;  in dradfg()
845   float dc2,ai1,ai2,ar1,ar2,ds2;  in dradbg()  local
979   ar1=1.f;  in dradbg()
988     ar1h=dcp*ar1-dsp*ai1;  in dradbg()
989     ai1=dcp*ai1+dsp*ar1;  in dradbg()
990     ar1=ar1h;  in dradbg()
997       c2[t4++]=ch2[t6++]+ar1*ch2[t7++];  in dradbg()
1000     dc2=ar1;  in dradbg()
1002     ar2=ar1;  in dradbg()