diff options
Diffstat (limited to 'BLAS/SRC/dscal.f')
-rw-r--r-- | BLAS/SRC/dscal.f | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/BLAS/SRC/dscal.f b/BLAS/SRC/dscal.f index 0b423cf2..81425a94 100644 --- a/BLAS/SRC/dscal.f +++ b/BLAS/SRC/dscal.f @@ -9,13 +9,18 @@ * * Purpose * ======= -** -* scales a vector by a constant. +* +* DSCAL scales a vector by a constant. * uses unrolled loops for increment equal to one. +* +* Further Details +* =============== +* * jack dongarra, linpack, 3/11/78. * modified 3/93 to return if incx .le. 0. * modified 12/3/93, array(1) declarations changed to array(*) * +* ===================================================================== * * .. Local Scalars .. INTEGER I,M,MP1,NINCX |