C+
C NAME:
C	ArrR4SetMinMax
C PURPOSE:
C	Limit range of real*4 array to min and max
C CALLING SEQUENCE:
	subroutine ArrR4SetMinMax(N,A,AMin,AMax)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	A(*)
	    real	AMin
	    real	AMax

!$omp parallel private(bad,I)
	if (N .gt. 0) then		! Constrain all elements
!$omp do schedule(static)
	    do I=1,N
		A(I) = max(AMin,min(AMax,A(I)))
	    end do
!$omp end do nowait

	else if (N .lt. 0) then		! Constrain only non-bad values

	    bad = BadR4()

!$omp do schedule(static)
	    do I=1,-N
		if (A(I) .ne. bad) A(I) = max(AMin,min(AMax,A(I)))
	    end do
!$omp end do nowait

	end if
!$omp end parallel

	return
	end