2 implicit double precision (a-h,o-z)
4 data ntryh(1),ntryh(2),ntryh(3),ntryh(4)/3,4,2,5/
19 if (ntry .ne. 2) go
to 107
20 if (nf .eq. 1) go
to 107
23 ifac(ib+2) = ifac(ib+1)
26 107
if (nl .ne. 1) go
to 104
29 tpi = 6.28318530717959d0
54 if (ip .le. 5) go
to 109
subroutine zffti1(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