38 static void drfti1(int n, float *wa, int *ifac){  in drfti1()  argument
62   ifac[nf+1]=ntry;  in drfti1()
69     ifac[ib+1]=ifac[ib];  in drfti1()
71   ifac[2] = 2;  in drfti1()
75   ifac[0]=n;  in drfti1()
76   ifac[1]=nf;  in drfti1()
85     ip=ifac[k1+2];  in drfti1()
108 static void fdrffti(int n, float *wsave, int *ifac){  in fdrffti()  argument
111   drfti1(n, wsave+n, ifac);  in fdrffti()
573 static void drftf1(int n,float *c,float *ch,float *wa,int *ifac){  in drftf1()  argument
578   nf=ifac[1];  in drftf1()
585     ip=ifac[kh+1];  in drftf1()
1154 static void drftb1(int n, float *c, float *ch, float *wa, int *ifac){  in drftb1()  argument
1159   nf=ifac[1];  in drftb1()
1165     ip=ifac[k1 + 2];  in drftb1()