C-----------------------------------------------------------------------
C   Description: Fortran include parameters
C
C   Authors:     RDH
C
C   Revisions:
C
C   DATE         AUTHOR          DESCRIPTION
C   -----------  --------------  ---------------------------------------
C   05/21/00     rdh         	baseline
C
C-----------------------------------------------------------------------
	include	'bounds.inc'
C /* Constants, macros, and flags */
	integer*4 FFT_RADIX_MIN, FFT_RADIX_MAX, FFT_MAX_PLANS
	parameter (FFT_RADIX_MIN = 2)
	parameter (FFT_RADIX_MAX = 8)
	parameter (FFT_MAX_PLANS = 32)

C /* FFT Configuration and Processing Flags */
	integer*4 FFT_FLAGS_NULL
	integer*4 FFT_FLAGS_REAL
	integer*4 FFT_FLAGS_COMPLEX
	integer*4 FFT_FLAGS_FORWARD
	integer*4 FFT_FLAGS_INVERSE
	integer*4 FFT_FLAGS_PACKED
	integer*4 FFT_FLAGS_UNPACKED
	integer*4 FFT_FLAGS_NONYQUIST
	integer*4 FFT_FLAGS_SCALE
	integer*4 FFT_FLAGS_INITPLANS
	integer*4 FFT_FLAGS_FREEPLANS
	integer*4 FFT_FLAGS_VALIDPLAN
	integer*4 FFT_FLAGS_OUTOFMEM 

	parameter (FFT_FLAGS_NULL      = 0)
	parameter (FFT_FLAGS_REAL      = INT(Z'00000001'))
	parameter (FFT_FLAGS_COMPLEX   = INT(Z'00000002'))
	parameter (FFT_FLAGS_FORWARD   = INT(Z'00000008'))
	parameter (FFT_FLAGS_INVERSE   = INT(Z'00000010'))
	parameter (FFT_FLAGS_PACKED    = INT(Z'00000020'))
	parameter (FFT_FLAGS_UNPACKED  = INT(Z'00000040'))
	parameter (FFT_FLAGS_NONYQUIST = INT(Z'00000080'))
	parameter (FFT_FLAGS_SCALE     = INT(Z'00000100'))
	parameter (FFT_FLAGS_INITPLANS = INT(Z'10000000'))
	parameter (FFT_FLAGS_FREEPLANS = INT(Z'20000000'))
	parameter (FFT_FLAGS_VALIDPLAN = INT(Z'40000000'))
C       integers are unsigned, so specifying this as a bitmask
C       results in an overflow.
	parameter (FFT_FLAGS_OUTOFMEM  = P_LMINL)

C /* Define the size (in bytes) of an FFT_Plan then pad a little */
	integer*4 FFT_SIZEOF_PLAN
	parameter (FFT_SIZEOF_PLAN = 512) 
