C+
C NAME:
C	ArrR4DivideByConstant
C PURPOSE:
C	Divide real*4 array by constant
C CALLING SEQUENCE:
	subroutine ArrR4DivideByConstant(N,A,R,C)
C INPUTS:
C	N	integer		abs(N) = # elements
C				N < 0 skips bad values
C	A(*)	real		input array of abs(N) elements
C	R	real		scalar constant by which to divide A
C OUTPUTS:
C	C(*)	real		output array A/R
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	A(*)
	    real	R
	    real	C(*)

	iA = loc(A)
	iC = loc(C)
	if (iA .eq. iC .and. R .eq. 1.) return

	bad = BadR4()

	call ArrayLoc2(iA,iC,abs(N),4,I1,I2,I3)

	if (R .eq. 0.) then
	    do I=I1,I2,I3
		if (N .lt. 0 .and. A(I) .eq. bad) then
		    C(I) = bad
		else
		    C(I) = bad
		end if
	    end do
	else
	    do I=I1,I2,I3
		if (N .lt. 0 .and. A(I) .eq. bad) then
		    C(I) = bad
		else
		    C(I) = A(I)/R
		end if
	    end do
	end if

	return
	end