C+
C NAME:
C	ArrR4Scale2
C PURPOSE:
C	Apply linear scale changes to two same-size real*4 arrays
C CALLING SEQUENCE:
	subroutine ArrR4Scale2(N,A1,A2,Y1,Y2,R1,R2,C1,C2)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    integer	N
	    real	A1(*)
	    real	A2(*)
	    real	Y1
	    real	Y2
	    real	R1
	    real	R2
	    real	C1(*)
	    real	C2(*)

	bad = BadR4()

	iA = loc(A1)
	iC = loc(C1)
	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. A1(I) .eq. bad) then
		C1(I) = bad
	    else
		C1(I) = Y1+R1*A1(I)
	    end if
	end do

	iA = loc(A2)
	iC = loc(C2)
	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. A2(I) .eq. bad) then
		C2(I) = bad
	    else
		C2(I) = Y2+R2*A2(I)
	    end if
	end do

	return
	end