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

	REAL(kind=dp) FUNCTION inside_d(a,b,x)

c inside_d = x quand x est entre a et b sinon la limite a ou b
c 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--------------------------------------------------------

	IF(b >= a)THEN
	 inside_d=MAX(a,MIN(b,x))
	ELSE
	 inside_d=MAX(b,MIN(a,x))
	ENDIF

	RETURN

	END FUNCTION inside_d