diff options
Diffstat (limited to 'BLAS/SRC/dscal.f')
-rw-r--r-- | BLAS/SRC/dscal.f | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/BLAS/SRC/dscal.f b/BLAS/SRC/dscal.f index 50dd2eb5..3337de8e 100644 --- a/BLAS/SRC/dscal.f +++ b/BLAS/SRC/dscal.f @@ -5,8 +5,8 @@ * Online html documentation available at * http://www.netlib.org/lapack/explore-html/ * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE DSCAL(N,DA,DX,INCX) * @@ -18,19 +18,18 @@ * DOUBLE PRECISION DX(*) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> DSCAL scales a vector by a constant. *> uses unrolled loops for increment equal to one. -*> -*>\endverbatim +*> \endverbatim * -* Authors -* ======= +* Authors: +* ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley @@ -41,16 +40,14 @@ * *> \ingroup double_blas_level1 * -* -* Further Details -* =============== -*>\details \b Further \b Details +*> \par Further Details: +* ===================== +*> *> \verbatim *> *> 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(*) -*> *> \endverbatim *> * ===================================================================== |