Lines Matching refs:ifac
1776 static void cfftb1(integer n, real *c, real *ch, const real *wa, integer *ifac) in cfftb1() argument
1782 nf = ifac[1]; in cfftb1()
1787 ip = ifac[k1 + 1]; in cfftb1()
1854 static void cfftf1(integer n, real *c, real *ch, const real *wa, integer *ifac) in cfftf1() argument
1861 nf = ifac[1]; in cfftf1()
1866 ip = ifac[k1 + 1]; in cfftf1()
1933 static int decompose(integer n, integer *ifac, integer ntryh[4]) { in decompose() argument
1947 ifac[nf + 2] = ntry; in decompose()
1952 ifac[ib + 2] = ifac[ib + 1]; in decompose()
1954 ifac[3] = 2; in decompose()
1960 ifac[1] = n; in decompose()
1961 ifac[2] = nf; in decompose()
1965 static void cffti1(integer n, real *wa, integer *ifac) in cffti1() argument
1980 --ifac; in cffti1()
1983 nf = decompose(n, ifac, ntryh); in cffti1()
1989 ip = ifac[k1 + 2]; in cffti1()
2034 static void rfftb1(integer n, real *c, real *ch, const real *wa, integer *ifac) in rfftb1() argument
2040 nf = ifac[1]; in rfftb1()
2045 ip = ifac[k1 + 1]; in rfftb1()
2094 static void rfftf1(integer n, real *c, real *ch, const real *wa, integer *ifac) in rfftf1() argument
2100 nf = ifac[1]; in rfftf1()
2106 ip = ifac[kh + 2]; in rfftf1()
2168 static void rffti1(integer n, real *wa, integer *ifac) in rffti1() argument
2183 --ifac; in rffti1()
2186 nf = decompose(n, ifac, ntryh); in rffti1()
2196 ip = ifac[k1 + 2]; in rffti1()
2547 x, integer *ifac) in sint1() argument
2560 --ifac; in sint1()
2593 rfftf1(np1, &x[1], &xh[1], &war[1], &ifac[1]); in sint1()