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

	LOGICAL FUNCTION entre_i(a,b,x)
	
c entre_i est vrai si x est entre a et b en integer

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

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

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

	entre_i = x >= MIN(a,b) .AND. x <= MAX(a,b)
		
	RETURN
	
	END FUNCTION entre_i