116 static void dradf2(int ido,int l1,float *cc,float *ch,float *wa1){  in dradf2()  argument
146       tr2=wa1[i-2]*cc[t3-1]+wa1[i-1]*cc[t3];  in dradf2()
147       ti2=wa1[i-2]*cc[t3]-wa1[i-1]*cc[t3-1];  in dradf2()
171 static void dradf4(int ido,int l1,float *cc,float *ch,float *wa1,  in dradf4()  argument
213       cr2=wa1[i-2]*cc[t3-1]+wa1[i-1]*cc[t3];  in dradf4()
214       ci2=wa1[i-2]*cc[t3]-wa1[i-1]*cc[t3-1];  in dradf4()
636 static void dradb2(int ido,int l1,float *cc,float *ch,float *wa1){  in dradb2()  argument
669       ch[t6-1]=wa1[i-2]*tr2-wa1[i-1]*ti2;  in dradb2()
670       ch[t6]=wa1[i-2]*ti2+wa1[i-1]*tr2;  in dradb2()
688 static void dradb3(int ido,int l1,float *cc,float *ch,float *wa1,  in dradb3()  argument
742       ch[t9-1]=wa1[i-2]*dr2-wa1[i-1]*di2;  in dradb3()
743       ch[t9]=wa1[i-2]*di2+wa1[i-1]*dr2;  in dradb3()
751 static void dradb4(int ido,int l1,float *cc,float *ch,float *wa1,  in dradb4()  argument
807       ch[(t8=t7+t0)-1]=wa1[i-2]*cr2-wa1[i-1]*ci2;  in dradb4()
808       ch[t8]=wa1[i-2]*ci2+wa1[i-1]*cr2;  in dradb4()