1 SUBROUTINE fft99(a, work, trigs, ifax, inc, jump, n, lot, isign)
7 INTEGER inc, jump, n, lot, isign
9 REAL(rprec) :: a(lot*(n+2)), work(lot*(n+1)), trigs(3*n/2+1)
13 INTEGER::nfax,nx,nh,ink,igo,ibase,jbase,l,i,j,m,ia,la,k,ib
287 IF (isign.eq.+1)
GOTO 30
291 IF (mod(nfax,2).eq.1)
GOTO 40
314 CALL fft99a(a,work,trigs,inc,jump,n,lot)
324 IF (igo.eq.60)
GOTO 60
326 CALL vpassm(a(ia),a(ia+inc),work(1),work(2),trigs,
327 * ink,2,jump,nx,lot,nh,ifax(k+1),la)
331 CALL vpassm(work(1),work(2),a(ia),a(ia+inc),trigs,
332 * 2,ink,nx,jump,lot,nh,ifax(k+1),la)
338 IF (isign.eq.-1)
GOTO 130
341 IF (mod(nfax,2).eq.1)
GOTO 110
374 CALL fft99b(work,a,trigs,inc,jump,n,lot)