C+
C NAME:
C	ArrR4Scale
C PURPOSE:
C	Apply linear scale change to real*4 array
C CALLING SEQUENCE:
	subroutine ArrR4Scale(N,A,Y,R,C)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	A(*)
	    real	Y
	    real	R
	    real	C(*)

	bad = BadR4()

	iA = loc(A)
	iC = loc(C)
	call ArrayLoc2(iA,iC,abs(N),4,I1,I2,I3)	! Set direction of DO-loop

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

	return
	end