1 subroutine cfftb1 (n,c,ch,wa,ifac)
13 if (ip .ne. 4)
go to 103
16 if (na .ne. 0)
go to 101
17 call passb4 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3))
19 101
call passb4 (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 passb2 (idot,l1,c,ch,wa(iw))
26 104
call passb2 (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 passb3 (idot,l1,c,ch,wa(iw),wa(ix2))
34 107
call passb3 (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 passb5 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3),wa(ix4))
44 110
call passb5 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3),wa(ix4))
47 112
if (na .ne. 0)
go to 113
48 call passb (nac,idot,ip,l1,idl1,c,c,c,ch,ch,wa(iw))
50 113
call passb (nac,idot,ip,l1,idl1,ch,ch,ch,c,c,wa(iw))
51 114
if (nac .ne. 0) na = 1-na
subroutine cfftb1(n, c, ch, wa, ifac)
subroutine passb3(ido, l1, cc, ch, wa1, wa2)
subroutine passb4(ido, l1, cc, ch, wa1, wa2, wa3)
subroutine passb2(ido, l1, cc, ch, wa1)
subroutine passb5(ido, l1, cc, ch, wa1, wa2, wa3, wa4)
subroutine passb(nac, ido, ip, l1, idl1, cc, c1, c2, ch, ch2, wa)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)