1#if defined(XLF14) || defined(XLFLINUX)
2@PROCESS OPT(0) STRICT(ALL)
3#endif
4      subroutine scfftf (n,c,wsave)
5      IMPLICIT REAL(A-H), INTEGER(I-N), REAL(O-Z)
6      dimension  c(*),wsave(*)
7      if (n .eq. 1) return
8      iw1 = n+n+1
9      iw2 = iw1+n+n
10      call scftf1 (n,c,wsave,wsave(iw1),wsave(iw2))
11      return
12      end
13