mirror of
https://github.com/sjwhitworth/golearn.git
synced 2025-04-25 13:48:49 +08:00
26 lines
702 B
C
26 lines
702 B
C
/* blas.h -- C header file for BLAS Ver 1.0 */
|
|
/* Jesse Bennett March 23, 2000 */
|
|
|
|
/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed."
|
|
|
|
- From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
|
|
|
|
#ifndef BLAS_INCLUDE
|
|
#define BLAS_INCLUDE
|
|
|
|
/* Data types specific to BLAS implementation */
|
|
typedef struct { float r, i; } fcomplex;
|
|
typedef struct { double r, i; } dcomplex;
|
|
typedef int blasbool;
|
|
|
|
#include "blasp.h" /* Prototypes for all BLAS functions */
|
|
|
|
#define FALSE 0
|
|
#define TRUE 1
|
|
|
|
/* Macro functions */
|
|
#define MIN(a,b) ((a) <= (b) ? (a) : (b))
|
|
#define MAX(a,b) ((a) >= (b) ? (a) : (b))
|
|
|
|
#endif
|