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

	LOGICAL FUNCTION entre_s(a,b,x)

c entre_s est vrai si x est entre a et b en simle précision

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

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

	USE mod_kind

	IMPLICIT NONE

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

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


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

	RETURN

	END FUNCTION entre_s