3 data ntryh(1),ntryh(2),ntryh(3),ntryh(4)/3,4,2,5/
18 if (ntry .ne. 2) go
to 107
19 if (nf .eq. 1) go
to 107
22 ifac(ib+2) = ifac(ib+1)
25 107
if (nl .ne. 1) go
to 104
28 tpi = 6.28318530717959
53 if (ip .le. 5) go
to 109
subroutine cffti1(n, wa, ifac)
octave_value sin(void) const
may be zero for pure relative error test tem the relative tolerance must be greater than or equal to
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)
octave_value cos(void) const