d0/d52/scvasum_8f_source.html

00001       SUBROUTINE SCVASUM( N, ASUM, X, INCX )
00002 *
00003 *  -- PBLAS auxiliary routine (version 2.0) --
00004 *     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
00005 *     and University of California, Berkeley.
00006 *     April 1, 1998
00007 *
00008 *     .. Scalar Arguments ..
00009       INTEGER            INCX, N
00010       REAL               ASUM
00011 *     ..
00012 *     .. Array Arguments ..
00013       COMPLEX            X( * )
00014 *     ..
00015 *
00016 *  Purpose
00017 *  =======
00018 *
00019 *  SCVASUM returns the sum of absolute values of the entries of a vector
00020 *  x.
00021 *
00022 *  Arguments
00023 *  =========
00024 *
00025 *  N       (input) INTEGER
00026 *          On entry, N specifies the length of the vector x. N  must  be
00027 *          at least zero.
00028 *
00029 *  ASUM    (output) COMPLEX
00030 *          On exit, ASUM specifies the sum of absolute values.
00031 *
00032 *  X       (input) COMPLEX array of dimension at least
00033 *          ( 1 + ( n - 1 )*abs( INCX ) ). Before entry,  the incremented
00034 *          array X must contain the vector x.
00035 *
00036 *  INCX    (input) INTEGER
00037 *          On entry, INCX specifies the increment for the elements of X.
00038 *          INCX must not be zero.
00039 *
00040 *  -- Written on April 1, 1998 by
00041 *     Antoine Petitet, University  of  Tennessee, Knoxville 37996, USA.
00042 *
00043 *  =====================================================================
00044 *
00045 *     .. External Functions ..
00046       REAL               SCASUM
00047       EXTERNAL           SCASUM
00048 *     ..
00049 *     .. Executable Statements ..
00050 *
00051       ASUM = SCASUM( N, X, INCX )
00052 *
00053       RETURN
00054 *
00055 *     End of SCVASUM
00056 *
00057       END