FTOLConstants.f90 Source File

!
!////////////////////////////////////////////////////////////////////////
!
!      Constants.f90
!      Created: June 12, 2013 2:54 PM 
!      By: David Kopriva  
!
!////////////////////////////////////////////////////////////////////////
!
!> Defines constants to be used by the library
!

      Module FTOLConstants 
         IMPLICIT NONE
         INTEGER, PARAMETER :: FT_ORDERED_ASCENDING = 1, FT_ORDERED_DESCENDING = -1, FT_ORDERED_SAME = 0
         INTEGER, PARAMETER :: QUAD_DIGITS = 30
      END Module FTOLConstants