subroutine srfftb (n,r,wsave) real r(1), wsave(1) c if (n .eq. 1) return c call srftb1 (n,r,wsave,wsave(n+1),wsave(2*n+1)) c return end