Previous: isamax Up: ../linpack.html Next: saxpy

SASUM

       REAL FUNCTION SASUM(N,SX,INCX)
       REAL SX(1)
       INTEGER INCX,N
 C
 C     TAKES THE SUM OF THE ABSOLUTE VALUES.
 C     USES UNROLLED LOOPS FOR INCREMENT EQUAL TO ONE.
 C     JACK DONGARRA, LINPACK, 3/11/78.
 C