NAME

dcopy - Copy x to y


SYNOPSIS

  SUBROUTINE DCOPY( N, X, INCX, Y, INCY)
  INTEGER N, INCX, INCY
  DOUBLE PRECISION X(*), Y(*)
  SUBROUTINE DCOPY_64( N, X, INCX, Y, INCY)
  INTEGER*8 N, INCX, INCY
  DOUBLE PRECISION X(*), Y(*)

F95 INTERFACE

  SUBROUTINE COPY( [N], X, [INCX], Y, [INCY])
  INTEGER :: N, INCX, INCY
  REAL(8), DIMENSION(:) :: X, Y
  SUBROUTINE COPY_64( [N], X, [INCX], Y, [INCY])
  INTEGER(8) :: N, INCX, INCY
  REAL(8), DIMENSION(:) :: X, Y

C INTERFACE

#include <sunperf.h>

void dcopy(int n, double *x, int incx, double *y, int incy);

void dcopy_64(long n, double *x, long incx, double *y, long incy);


PURPOSE

dcopy Copy x to y where x and y are n-vectors.


ARGUMENTS