fftpack.f

      MODULE fftpack
 
      INTERFACE cftfax
          SUBROUTINE cftfax_g(n, ifax, trigs)
          USE stel_kinds
          INTEGER n
          INTEGER, DIMENSION(13) :: ifax
          REAL(rprec), DIMENSION(*) :: trigs
          END SUBROUTINE cftfax_g
      END INTERFACE
 
      INTERFACE cftrig
          SUBROUTINE cftrig_g (n, trigs)
          USE stel_kinds
          INTEGER n
          REAL(rprec), DIMENSION(*) :: trigs
          END SUBROUTINE cftrig_g
      END INTERFACE
 
      INTERFACE fact
          SUBROUTINE fact_g(n, ifax)
          USE stel_kinds
          INTEGER n
          INTEGER, DIMENSION(13) :: ifax
          END SUBROUTINE fact_g
      END INTERFACE
 
      INTERFACE fftfax
          SUBROUTINE fftfax_g(n, ifax, trigs)
          USE stel_kinds
          INTEGER n
          INTEGER, DIMENSION(13) :: ifax
          REAL(rprec), DIMENSION(*) :: trigs
          END SUBROUTINE fftfax_g
      END INTERFACE
 
      INTERFACE fftrig
          SUBROUTINE fftrig_g (trigs, n, mode)
          USE stel_kinds
          INTEGER n, mode
          REAL(rprec), DIMENSION(*) :: trigs
          END SUBROUTINE fftrig_g
      END INTERFACE
 
      END MODULE fftpack