1 subroutine zfftb1 (n,c,ch,wa,ifac)
2 implicit double precision (a-h,o-z)
14 if (ip .ne. 4)
go to 103
17 if (na .ne. 0)
go to 101
18 call zpassb4 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3))
20 101
call zpassb4 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3))
23 103
if (ip .ne. 2)
go to 106
24 if (na .ne. 0)
go to 104
25 call zpassb2 (idot,l1,c,ch,wa(iw))
27 104
call zpassb2 (idot,l1,ch,c,wa(iw))
30 106
if (ip .ne. 3)
go to 109
32 if (na .ne. 0)
go to 107
33 call zpassb3 (idot,l1,c,ch,wa(iw),wa(ix2))
35 107
call zpassb3 (idot,l1,ch,c,wa(iw),wa(ix2))
38 109
if (ip .ne. 5)
go to 112
42 if (na .ne. 0)
go to 110
43 call zpassb5 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3),wa(ix4))
45 110
call zpassb5 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3),wa(ix4))
48 112
if (na .ne. 0)
go to 113
49 call zpassb (nac,idot,ip,l1,idl1,c,c,c,ch,ch,wa(iw))
51 113
call zpassb (nac,idot,ip,l1,idl1,ch,ch,ch,c,c,wa(iw))
52 114
if (nac .ne. 0) na = 1-na
subroutine zpassb3(ido, l1, cc, ch, wa1, wa2)
subroutine zpassb2(ido, l1, cc, ch, wa1)
subroutine zpassb(nac, ido, ip, l1, idl1, cc, c1, c2, ch, ch2, wa)
subroutine zpassb5(ido, l1, cc, ch, wa1, wa2, wa3, wa4)
subroutine zpassb4(ido, l1, cc, ch, wa1, wa2, wa3)
subroutine zfftb1(n, c, ch, wa, ifac)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)