MsPASS C++ API  2.4.1.dev4+g92330b7a
Defines the C++ API for MsPASS
Loading...
Searching...
No Matches
blas.h
1#ifndef __BLAS_H
2#define __BLAS_H
3
4#include "FC.h"
5
6#ifndef dgesv
7#define dgesv FC_GLOBAL(dgesv, DGESV)
8#endif
9#ifndef dpotrf
10#define dpotrf FC_GLOBAL(dpotrf, DPOTRF)
11#endif
12#ifndef dpotrs
13#define dpotrs FC_GLOBAL(dpotrs, DPOTRS)
14#endif
15
16extern "C" {
17double ddot(const int& n,const double *x,const int& incx,
18 const double *y,const int& incy);
19double dscal(const int& n, const double& a, const double *x, const int& incx);
20double daxpy(const int &n, const double& a, const double *x,const int& incx,
21 const double *y,const int& incy);
22double dcopy(const int &n, const double *x,const int& incx,
23 const double *y,const int& incy);
24double dnrm2(const int &n, const double *x,const int& incx);
25void dgetrf(int&,int&,double*,int&,int*,int&);
26void dgetri(int&,double*,int&,int*,double*,int&,int&);
27void dgesv(int&,int&,double*,int&,int*,double*,int&,int&);
28void dpotrf(char*,int&,double*,int&,int&);
29void dpotrs(char*,int&,int&,double*,int&,double*,int&,int&);
30double dlamch(const char *cmach);
31int dstebz(char *range, char *order, int *n, double
32 *vl, double *vu, int *il, int *iu, double *abstol,
33 double *d__, double *e, int *m, int *nsplit,
34 double *w, int *iblock, int *isplit, double *work,
35 int *iwork, int *info);
36int dstein(int *n, double *d__, double *e,
37 int *m, double *w, int *iblock, int *isplit,
38 double *z__, int *ldz, double *work, int *iwork,
39 int *ifail, int *info);
40
41};
42
43#endif
Generated by doxygen 1.9.8