C+
C NAME:
C	ArrR4Step
C PURPOSE:
C	Initialize real*4 array to stepwise increasing values
C CALLING SEQUENCE:
	subroutine ArrR4Step(Y,dY,N,C)
C CALLS:
C	BadR4
C SEE ALSO:
C	Array_Info
C-
	    real	Y
	    real	dY
	    integer	N
	    real	C(*)

!$omp parallel private(bad,I)
	bad = BadR4()

	if (N .lt. 0) then
!$omp do schedule(static)
	    do I=1,-N
		if (C(I) .ne. bad) C(I) = Y+(I-1)*dY
	    end do
!$omp end do nowait
	else
!$omp do schedule(static)
	    do I=1,N
		C(I) = Y+(I-1)*dY
	    end do
!$omp end do nowait
	end if
!$omp end parallel

	return
	end