MODULE Fuzzy_Module
!-----------------------------------------------------------------------
!  fuzz   Set to a small number so that IF two REAL numbers differ by
!         less than this amount they will be considered equal.
!-----------------------------------------------------------------------
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   REAL(KIND=dp) fuzz
END MODULE Fuzzy_Module