diff options
Diffstat (limited to 'BLAS/SRC/sasum.f')
| -rw-r--r-- | BLAS/SRC/sasum.f | 72 |
1 files changed, 60 insertions, 12 deletions
diff --git a/BLAS/SRC/sasum.f b/BLAS/SRC/sasum.f index 1e3f7db8..400eab05 100644 --- a/BLAS/SRC/sasum.f +++ b/BLAS/SRC/sasum.f @@ -1,23 +1,71 @@ - REAL FUNCTION SASUM(N,SX,INCX) -* .. Scalar Arguments .. - INTEGER INCX,N -* .. -* .. Array Arguments .. - REAL SX(*) -* .. +*> \brief \b SASUM * +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition +* ========== +* +* REAL FUNCTION SASUM(N,SX,INCX) +* +* .. Scalar Arguments .. +* INTEGER INCX,N +* .. +* .. Array Arguments .. +* REAL SX(*) +* .. +* * Purpose * ======= * -* SASUM takes the sum of the absolute values. -* uses unrolled loops for increment equal to one. +*>\details \b Purpose: +*>\verbatim +*> +*> SASUM takes the sum of the absolute values. +*> uses unrolled loops for increment equal to one. +*> +*>\endverbatim +* +* Authors +* ======= +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup single_blas_level1 +* * * Further Details * =============== +*>\details \b Further \b 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 +*> +* ===================================================================== + REAL FUNCTION SASUM(N,SX,INCX) +* +* -- Reference BLAS level1 routine (version 3.4.0) -- +* -- Reference BLAS is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* November 2011 * -* 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(*) +* .. Scalar Arguments .. + INTEGER INCX,N +* .. +* .. Array Arguments .. + REAL SX(*) +* .. * * ===================================================================== * |