C
C     Common variables
C
      DOUBLE PRECISION    BZERO(0:NBP1,0:NBP1),     SINSQ(0:NBP1,0:NBP1)
C
      COMMON / FFT    /   SINSQ,       BZERO
C