diff options
Diffstat (limited to 'BLAS/SRC/sscal.f')
| -rw-r--r-- | BLAS/SRC/sscal.f | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/BLAS/SRC/sscal.f b/BLAS/SRC/sscal.f index b900be9a..312aeaf1 100644 --- a/BLAS/SRC/sscal.f +++ b/BLAS/SRC/sscal.f @@ -12,10 +12,15 @@ * * scales a vector by a constant. * uses unrolled loops for increment equal to 1. +* +* 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 |