diff options
Diffstat (limited to 'BLAS/SRC/scopy.f')
| -rw-r--r-- | BLAS/SRC/scopy.f | 70 |
1 files changed, 59 insertions, 11 deletions
diff --git a/BLAS/SRC/scopy.f b/BLAS/SRC/scopy.f index 905a64cb..f8b5d676 100644 --- a/BLAS/SRC/scopy.f +++ b/BLAS/SRC/scopy.f @@ -1,22 +1,70 @@ - SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) -* .. Scalar Arguments .. - INTEGER INCX,INCY,N -* .. -* .. Array Arguments .. - REAL SX(*),SY(*) -* .. +*> \brief \b SCOPY * +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition +* ========== +* +* SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) +* +* .. Scalar Arguments .. +* INTEGER INCX,INCY,N +* .. +* .. Array Arguments .. +* REAL SX(*),SY(*) +* .. +* * Purpose * ======= * -* SCOPY copies a vector, x, to a vector, y. -* uses unrolled loops for increments equal to 1. +*>\details \b Purpose: +*>\verbatim +*> +*> SCOPY copies a vector, x, to a vector, y. +*> uses unrolled loops for increments equal to 1. +*> +*>\endverbatim +* +* Authors +* ======= +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup single_blas_level1 +* * * Further Details * =============== +*>\details \b Further \b Details +*> \verbatim +*> +*> jack dongarra, linpack, 3/11/78. +*> modified 12/3/93, array(1) declarations changed to array(*) +*> +*> \endverbatim +*> +* ===================================================================== + SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) +* +* -- Reference BLAS level1 routine (version 3.4.0) -- +* -- Reference BLAS is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* November 2011 * -* jack dongarra, linpack, 3/11/78. -* modified 12/3/93, array(1) declarations changed to array(*) +* .. Scalar Arguments .. + INTEGER INCX,INCY,N +* .. +* .. Array Arguments .. + REAL SX(*),SY(*) +* .. * * ===================================================================== * |