      SUBROUTINE RSET (N, DX, DY, INCY)
      IMPLICIT NONE
C
C COPIES SCALAR X TO SCALAR Y
C
      INTEGER N, INCY
      DOUBLE PRECISION DX, DY(*)
C
      INTEGER I, IY
C
C
      IF (N.LE.0) RETURN
      IY = 1
      IF (INCY.LT.0) IY = (-N+1)*INCY+1
      DO 10 I = 1, N
        DY(IY) = DX
        IY = IY+INCY
10    CONTINUE
C
      RETURN
      END
