1 C***********************************************************************
2 SUBROUTINE RFFTFM (N,INC,JUMP,LOT, R, WA,IFAC, WSAVE)
3 DIMENSION R(*) ,WSAVE(*) ,WA(N) ,IFAC(*)
4 cch? REAL*8 CTIME1,CTIME2
5 cch? CALL XCLOCK(CTIME1,5)
10 CALL RFTF2M (N,INC,JUMP,LOT, R, WA,IFAC, WSAVE)
12 CALL RFTF3M (N,INC, LOT, R, WA,IFAC, WSAVE)
14 cch? CALL XCLOCK(CTIME2,5)
15 cch? CTIME1=CTIME2-CTIME1
16 cch? CTIME2=1000.0*CTIME1/FLOAT(N*LOT)
17 cch? WRITE(6,500) INC,JUMP,N,LOT, CTIME1,CTIME2
18 cch? 500 FORMAT(1H0,' RFFTBM: INC,JUMP,N,LOT =',4I6,' TOTAL CPU =',F13.6
19 cch? * ,' (SEC) ; UNIT CPU =',F13.6,' (MSEC)')