!
! Global coefficients and factors for fft.
! Setfft is called once per run from con.f. Setfft (util.F)
!   calls set99, which returns trigs and ifix. Trigs and ifax
!   are used by fftrans (see util.F) calls by filter.f and 
!   filter2.f.
!
      real trigs
      common/fft_glb/ trigs(3*zimx/2+1)
      integer :: ifax
      common/fft_int/ ifax(13)
!