C+
C NAME:
C	ArrR4DivideByArrR4
C PURPOSE:
C	Divide two same-size real*4 arrays
C CALLING SEQUENCE:
	subroutine ArrR4DivideByArrR4(N,A,B,C)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	A(*)
	    real	B(*)
	    real	C(*)

!$omp parallel private(bad,iA,iB,iC,I,I1,I2,I3)
	bad = BadR4()

	iA = loc(A)
	iB = loc(B)
	iC = loc(C)

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

!$omp do schedule(static)
	do I=I1,I2,I3
	    if (N .lt. 0 .and. (A(I) .eq. bad .or. B(I) .eq. bad)) then
		C(I) = bad
	    else if (B(I) .eq. 0.) then
		C(I) = bad
	    else
		C(I) = A(I)/B(I)
	    end if
	end do
!$omp end do nowait
!$omp end parallel

	return
	end