1 subroutine cfftf1 (n,c,ch,wa,ifac)
13 if (ip .ne. 4)
go to 103
16 if (na .ne. 0)
go to 101
17 call passf4 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3))
19 101
call passf4 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3))
22 103
if (ip .ne. 2)
go to 106
23 if (na .ne. 0)
go to 104
24 call passf2 (idot,l1,c,ch,wa(iw))
26 104
call passf2 (idot,l1,ch,c,wa(iw))
29 106
if (ip .ne. 3)
go to 109
31 if (na .ne. 0)
go to 107
32 call passf3 (idot,l1,c,ch,wa(iw),wa(ix2))
34 107
call passf3 (idot,l1,ch,c,wa(iw),wa(ix2))
37 109
if (ip .ne. 5)
go to 112
41 if (na .ne. 0)
go to 110
42 call passf5 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3),wa(ix4))
44 110
call passf5 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3),wa(ix4))
47 112
if (na .ne. 0)
go to 113
48 call passf (nac,idot,ip,l1,idl1,c,c,c,ch,ch,wa(iw))
50 113
call passf (nac,idot,ip,l1,idl1,ch,ch,ch,c,c,wa(iw))
51 114
if (nac .ne. 0) na = 1-na
subroutine passf3(ido, l1, cc, ch, wa1, wa2)
subroutine cfftf1(n, c, ch, wa, ifac)
subroutine passf2(ido, l1, cc, ch, wa1)
subroutine passf5(ido, l1, cc, ch, wa1, wa2, wa3, wa4)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)
subroutine passf4(ido, l1, cc, ch, wa1, wa2, wa3)
subroutine passf(nac, ido, ip, l1, idl1, cc, c1, c2, ch, ch2, wa)