1#if defined(XLF14) || defined(XLFLINUX) 2@PROCESS OPT(0) STRICT(ALL) 3#endif 4 subroutine scfftb (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 scftb1 (n,c,wsave,wsave(iw1),wsave(iw2)) 11 return 12 end 13