numeric-linalg

Educational material on the SciPy implementation of numerical linear algebra algorithms

NameSizeMode
..
lapack/CBLAS/src/cblas_dcabs1.c 239B -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"
double API_SUFFIX(cblas_dcabs1)(const void *c)
{
   double cabs1 = 0.0;
   F77_dcabs1_sub(c, &cabs1);
   return cabs1; 
}