Function scasum

src/tests/correctness/blas-lapack.c:923–930

}

float scasum( int n, complex *x, int incx)
{
#ifdef __APPLE__
    return cblas_scasum(n, x, incx);
#else
    return scasum_(&n, x, &incx);
#endif
}

double dzasum( int n, doublecomplex *x, int incx)
{