C+
C NAME:
C	ArrR4Invert
C PURPOSE:
C	Invert elements in real*4 array
C CALLING SEQUENCE:
	subroutine ArrR4Invert(N,C)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	C(*)

	bad = BadR4()

	do I=1,abs(N)
	    if (C(I) .eq. 0.) then
		if (N .gt. 0 .or. C(I) .ne. bad) C(I) = bad
	    else
	    	if (N .gt. 0 .or. C(I) .ne. bad) C(I) = 1.0/C(I)
	    end if
	end do

	return
	end