175   float ci2,ci3,ci4,cr2,cr3,cr4,ti1,ti2,ti3,ti4,tr1,tr2,tr3,tr4;  in dradf4()  local
224       ti1=ci2+ci4;  in dradf4()
233       ch[t4]=ti1+ti2;  in dradf4()
242       ch[t5+t6]=ti1-ti2;  in dradf4()
257     ti1=-hsqt2*(cc[t1]+cc[t2]);  in dradf4()
263     ch[t4]=ti1-cc[t1+t0];  in dradf4()
264     ch[t4+t5]=ti1+cc[t1+t0];  in dradf4()
755   float ci2,ci3,ci4,cr2,cr3,cr4,ti1,ti2,ti3,ti4,tr1,tr2,tr3,tr4;  in dradb4()  local
790       ti1=cc[t2]+cc[t5];  in dradb4()
804       ci2=ti1+ti4;  in dradb4()
805       ci4=ti1-ti4;  in dradb4()
827     ti1=cc[t1]+cc[t4];  in dradb4()
832     ch[t5+=t0]=sqrt2*(tr1-ti1);  in dradb4()
834     ch[t5+=t0]=-sqrt2*(tr1+ti1);  in dradb4()