c*****************************************************

	LOGICAL FUNCTION entre_d(a,b,x)

c entre_d est vrai si x \in [a,b] en double précision

c Auteur: P.Morel, Département Cassiopée, O.C.A.

c-----------------------------------------------------------

	USE mod_kind

	IMPLICIT NONE

	REAL(kind=dp), INTENT(in) :: a, b, x

c--------------------------------------------------------

	entre_d = x >= MIN(a,b) .AND. x <= MAX(a,b)

	RETURN

	END FUNCTION entre_d