C+
C NAME:
C	iArrR4Compare
C PURPOSE:
C	Compare two same-size real*4 arrays
C CALLING SEQUENCE:
	function iArrR4Compare(N,A,B)
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	A(*)
	    real	B(*)

	iArrR4Compare = 0
	do I=1,abs(N)
	    if (A(I) .ne. B(I)) iArrR4Compare = iArrR4Compare+1
	end do

	return
	end