	INTEGER*4 FUNCTION LIMIT (VALUE,MINIMUM,MAXIMUM) !	SUBROUTINE LIMIT
C	SUBROUTINE LIMIT
	INTEGER*4 VALUE		! INPUT VALUE TO BE LIMITED
	INTEGER*4 MINIMUM	! LOWER LIMIT VALUE
	INTEGER*4 MAXIMUM	! UPPER LIMIT VALUE
C************************************************************************
C***
C***	THIS FUNCTION WILL CLIP VALUE BETWEEN THE MINIMUM LIMIT AND
C***	THE MAXIMUM LIMIT.
C***
C***	PARAMETERS :
C***
C***		VALUE	(I*4)	INPUT VALUE TO BE LIMITED
C***
C***		MINIMUM	(I*4)	LOWWER LIMIT VALUE
C***
C***		MAXIMUM	(I*4)	UPPER LIMIT VALUE
C***
C************************************************************************
C*MCT
	IF (VALUE .GT. MAXIMUM) THEN
	   LIMIT = MAXIMUM
C
	ELSE IF (VALUE .LT. MINIMUM) THEN
	   LIMIT = MINIMUM
C
	ELSE
	   LIMIT = VALUE
	ENDIF
	RETURN
	END
