MODULE Complex_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
   COMPLEX(KIND=dp),PARAMETER :: imag=Cmplx(0.d0,1.d0,dp)
END MODULE Complex_Module