1 C 2 C 3 C 4 C*********************************************************************** 5 SUBROUTINE RFFTIM (N, WA,IFAC) 6 DIMENSION WA(N), IFAC(*) 7 IF (N .EQ. 1) RETURN 8 CALL RFTI1M (N, WA,IFAC) 9 RETURN 10 END SUBROUTINE RFFTIM 11