40 static void drfti1(int n, float *wa, int *ifac){  in drfti1()  argument
64   ifac[nf+1]=ntry;  in drfti1()
71     ifac[ib+1]=ifac[ib];  in drfti1()
73   ifac[2] = 2;  in drfti1()
77   ifac[0]=n;  in drfti1()
78   ifac[1]=nf;  in drfti1()
87     ip=ifac[k1+2];  in drfti1()
110 static void fdrffti(int n, float *wsave, int *ifac){  in fdrffti()  argument
113   drfti1(n, wsave+n, ifac);  in fdrffti()
575 static void drftf1(int n,float *c,float *ch,float *wa,int *ifac){  in drftf1()  argument
580   nf=ifac[1];  in drftf1()
587     ip=ifac[kh+1];  in drftf1()
1156 static void drftb1(int n, float *c, float *ch, float *wa, int *ifac){  in drftb1()  argument
1161   nf=ifac[1];  in drftb1()
1167     ip=ifac[k1 + 2];  in drftb1()