279   float dc2,ai1,ai2,ar1,ar2,ds2;  in dradfg()  local
410   ar1=1.f;  in dradfg()
418     ar1h=dcp*ar1-dsp*ai1;  in dradfg()
419     ai1=dcp*ai1+dsp*ar1;  in dradfg()
420     ar1=ar1h;  in dradfg()
427       ch2[t4++]=c2[ik]+ar1*c2[t7++];  in dradfg()
431     dc2=ar1;  in dradfg()
433     ar2=ar1;  in dradfg()
847   float dc2,ai1,ai2,ar1,ar2,ds2;  in dradbg()  local
981   ar1=1.f;  in dradbg()
990     ar1h=dcp*ar1-dsp*ai1;  in dradbg()
991     ai1=dcp*ai1+dsp*ar1;  in dradbg()
992     ar1=ar1h;  in dradbg()
999       c2[t4++]=ch2[t6++]+ar1*ch2[t7++];  in dradbg()
1002     dc2=ar1;  in dradbg()
1004     ar2=ar1;  in dradbg()