33 lines
No EOL
1.2 KiB
C
33 lines
No EOL
1.2 KiB
C
#ifndef _BLAS_H
|
|
#define _BLAS_H
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
#include <complex.h>
|
|
|
|
void caxpy ( int n, float complex ca, float complex cx[], int incx, float complex cy[], int incy );
|
|
void ccopy ( int n, float complex cx[], int incx, float complex cy[], int incy );
|
|
float complex cdotc ( int n, float complex cx[], int incx, float complex cy[], int incy );
|
|
float complex cdotu ( int n, float complex cx[], int incx, float complex cy[], int incy );
|
|
void cgemm(char transa, char transb, int m, int n, int k, complex float alpha,
|
|
complex float a[], int lda, complex float b[], int ldb, complex float beta,
|
|
complex float c[], int ldc);
|
|
void crotg ( float complex *ca, float complex cb, float *c, float complex *s );
|
|
void cscal ( int n, float complex ca, float complex cx[], int incx );
|
|
void csrot ( int n, float complex cx[], int incx, float complex cy[], int incy, float c, float s );
|
|
void csscal ( int n, float sa, float complex cx[], int incx );
|
|
void cswap ( int n, float complex cx[], int incx, float complex cy[], int incy );
|
|
int icamax ( int n, float complex x[], int incx );
|
|
float scasum ( int n, float complex x[], int incx );
|
|
float scnrm2 ( int n, float complex x[], int incx );
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
|
|
#endif |