91   integer ipp2, idij, idlj, idot, ipph;  in passfb()  local
114   idot = ido / 2;  in passfb()
203   if (idot <= l1) {  in passfb()
1779     idl1, idot;  in cfftb1()  local
1790     idot = ido + ido;  in cfftb1()
1791     idl1 = idot * l1;  in cfftb1()
1794         ix2 = iw + idot;  in cfftb1()
1795         ix3 = ix2 + idot;  in cfftb1()
1796         passb4(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3]);  in cfftb1()
1800         passb2(idot, l1, na?ch:c, na?c:ch, &wa[iw]);  in cfftb1()
1804         ix2 = iw + idot;  in cfftb1()
1805         passb3(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2]);  in cfftb1()
1809         ix2 = iw + idot;  in cfftb1()
1810         ix3 = ix2 + idot;  in cfftb1()
1811         ix4 = ix3 + idot;  in cfftb1()
1812         passfb5(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], +1);  in cfftb1()
1817           passfb(&nac, idot, ip, l1, idl1, c, c, c, ch, ch, &wa[iw], +1);  in cfftb1()
1819           passfb(&nac, idot, ip, l1, idl1, ch, ch, ch, c, c, &wa[iw], +1);  in cfftb1()
1827     iw += (ip - 1) * idot;  in cfftb1()
1858     idl1, idot;  in cfftf1()  local
1869     idot = ido + ido;  in cfftf1()
1870     idl1 = idot * l1;  in cfftf1()
1873         ix2 = iw + idot;  in cfftf1()
1874         ix3 = ix2 + idot;  in cfftf1()
1875         passf4(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3]);  in cfftf1()
1879         passf2(idot, l1, na?ch:c, na?c:ch, &wa[iw]);  in cfftf1()
1883         ix2 = iw + idot;  in cfftf1()
1884         passf3(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2]);  in cfftf1()
1888         ix2 = iw + idot;  in cfftf1()
1889         ix3 = ix2 + idot;  in cfftf1()
1890         ix4 = ix3 + idot;  in cfftf1()
1891         passfb5(idot, l1, na?ch:c, na?c:ch, &wa[iw], &wa[ix2], &wa[ix3], &wa[ix4], -1);  in cfftf1()
1896           passfb(&nac, idot, ip, l1, idl1, c, c, c, ch, ch, &wa[iw], -1);  in cfftf1()
1898           passfb(&nac, idot, ip, l1, idl1, ch, ch, ch, c, c, &wa[iw], -1);  in cfftf1()
1906     iw += (ip - 1)*idot;  in cfftf1()
1976   integer idot;  in cffti1()  local
1993     idot = ido + ido + 2;  in cffti1()
2002       for (ii = 4; ii <= idot; ii += 2) {  in cffti1()