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

	INTEGER FUNCTION inside_i(a,b,x)
	
c inside_s = x quand x est entre a et b sinon la limite a ou b
c pour les entiers

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

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

	IMPLICIT NONE
	
	INTEGER, INTENT(in) :: a, b, x
	
c--------------------------------------------------------

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