C+
C NAME:
C	ArrR4Function
C PURPOSE:
C	Apply external or intrinsic function to all elements in real*4 array
C CALLING SEQUENCE:
	subroutine ArrR4Function(N,fnc,A,C)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	integer		N
	real		fnc
	real		A(*)
	real		C(*)

	bad = BadR4()

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

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

	do I=I1,I2,I3
	    if (N .gt. 0 .or. A(I) .ne. bad) then
		C(I) = fnc(A(I))
	    else
		C(I) = bad
	    end if
	end do

	return
	end