SUBROUTINE DSET(N,DA,DX,INCX)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION DX(*)
      DO 10 I=1,N,INCX
      DX(I)=DA
 10   CONTINUE
      RETURN
      END