diff options
Diffstat (limited to 'BLAS/SRC/scopy.f')
-rw-r--r-- | BLAS/SRC/scopy.f | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/BLAS/SRC/scopy.f b/BLAS/SRC/scopy.f index ad04ee69..e0f41fe8 100644 --- a/BLAS/SRC/scopy.f +++ b/BLAS/SRC/scopy.f @@ -9,11 +9,16 @@ * Purpose * ======= * -* copies a vector, x, to a vector, y. +* SCOPY copies a vector, x, to a vector, y. * uses unrolled loops for increments equal to 1. +* +* Further Details +* =============== +* * jack dongarra, linpack, 3/11/78. * modified 12/3/93, array(1) declarations changed to array(*) * +* ===================================================================== * * .. Local Scalars .. INTEGER I,IX,IY,M,MP1 |