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

	REAL(kind=sp) FUNCTION inside_s(a,b,x)
	
c inside_s = x quand x est entre a et b sinon la limite a ou b
c simple 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--------------------------------------------------------

	IF(b >= a)THEN
	 inside_s=MAX(a,MIN(b,x))
	ELSE
	 inside_s=MAX(b,MIN(a,x))
	ENDIF
	
	RETURN
	
	END FUNCTION inside_s