numeric-linalg

Educational material on the SciPy implementation of numerical linear algebra algorithms

NameSizeMode
..
lapack/CBLAS/src/cblas_scabs1.c 237B -rw-r--r-- 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

/*
 * cblas_scabs1.c
 *
 * The program is a C interface to scabs1.
 *
 */
#include "cblas.h"
#include "cblas_f77.h"
float API_SUFFIX(cblas_scabs1)(const void *c)
{
   float cabs1 = 0.0;
   F77_scabs1_sub(c, &cabs1);
   return cabs1; 
}