summaryrefslogtreecommitdiff
path: root/BLAS/SRC/sscal.f
diff options
context:
space:
mode:
Diffstat (limited to 'BLAS/SRC/sscal.f')
-rw-r--r--BLAS/SRC/sscal.f5
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