      SUBROUTINE FFS99 (A,W,LOT)
      DIMENSION A( 50 ), W( 50 )
C
      COMMON /FFTS/ IFAX(10), TRIGS( 50 ,2)
C
C  GENERAL MULTIPLE FAST FOURIER TRANSFORM - SYNTHESIS.
C  GOOD FOR ZONAL WAVE NUMBER  16 .
C
C     DIMENSION A( 50 ,LOT), W( 50 ,LOT)
C
C   INPUT - LOT SETS OF COMPLEX COEFFICIENTS IN
C           A(1,J), A(2,J), ..., A( 17 *2,J), J=1,...,LOT.
C           A( 17 *2+1,J), ..., A( 50 ,J), J=1,...,LOT ARE NOT SET
C           BEFORE CALL FFS99, BUT ARE SET TO 0.0 IN FFS99.
C
C  OUTPUT - LOT SETS OF GRID VALUES IN
C           A(1,J), A(2,J), ..., A( 50 ,J), J=1,...,LOT.
C
C  W IS A WORK ARRAY.
C
C  IFAX ARRAY IS SET FOR FFT99M
C              DURING FIRST USE OF FFS99 AND FFA99.
C  TRIGS ARRAY IS SET WITH SIN AND COS VALUES
C              DURING FIRST USE OF FFS99 AND FFA99.
      DATA ITEST/0/
      IF (ITEST.EQ.1)  GO TO 200
            ITEST=1
            CALL    FAX ( IFAX,  50 , 3)
            CALL FFTRIG (TRIGS,  50 , 3)
200   CONTINUE
C
      IBASE= 17 *2+1
      JBASE= 50
      DO 400 L=1,LOT
            DO 300 I=IBASE,JBASE
                  A(I)=0.0
300         CONTINUE
            IBASE=IBASE+ 50
            JBASE=JBASE+ 50
400   CONTINUE
C
C     CALL MODIFIED VERSION OF FFT99 FROM EUROPEAN CENTER.
      CALL FFT99M (A, W, TRIGS, IFAX, 1,  50 ,  50 , LOT, 1)
C
      RETURN
      END
