36 #ifndef NEKTAR_LIB_UTILITIES_LINEAR_ALGEBRA_ARPACK_HPP
37 #define NEKTAR_LIB_UTILITIES_LINEAR_ALGEBRA_ARPACK_HPP
51 const int& n,
const char* which,
52 const int& nev,
const double& tol,
53 double* resid,
const int& ncv,
54 double* v,
const int& ldv,
55 int* iparam,
int* ipntr,
56 double* workd,
double* workl,
57 const int& lworkl,
int& info );
60 const int& n,
const char* which,
61 const int& nev,
const double& tol,
62 double* resid,
const int& ncv,
63 double* v,
const int& ldv,
64 int* iparam,
int* ipntr,
65 double* workd,
double* workl,
66 const int& lworkl,
int& info);
72 const int* select,
double* d,
73 double* z ,
const int& ldz,
74 const double& sigma,
const char* bmat,
75 const int& n,
const char* which,
76 const int& nev,
const double& tol,
77 double* resid,
const int& ncv,
78 double* v,
const int& ldv,
79 const int* iparam,
int* ipntr,
80 const double* workd,
double* workl,
81 const int& lworkl,
int& info);
84 const int* select,
double* dr,
85 double* di,
double* z ,
86 const int& ldz,
const double& sigmar,
87 const double& sigmai,
double* workev,
88 const char* bmat,
const int& n,
89 const char* which,
const int& nev,
90 const double& tol,
double* resid,
91 const int& ncv,
double* v,
92 const int& ldv,
int* iparam,
93 int* ipntr,
double* workd,
94 double* workl,
const int& lworkl,
int& info);
103 static inline void Dsaupd (
int& ido,
const char* bmat,
104 const int& n,
const char* which,
105 const int& nev,
const double& tol,
106 double* resid,
const int& ncv,
107 double* v,
const int& ldv,
108 int* iparam,
int* ipntr,
109 double* workd,
double* workl,
110 const int& lworkl,
int& info)
112 F77NAME(
dsaupd) (ido,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info);
118 static inline void Dseupd (
const int& rvec,
const char* howmny,
119 const int* select,
double* d,
120 double* z ,
const int& ldz,
121 const double& sigma,
const char* bmat,
122 const int& n,
const char* which,
123 const int& nev,
const double& tol,
124 double* resid,
const int& ncv,
125 double* v,
const int& ldv,
126 int* iparam,
int* ipntr,
127 double* workd,
double* workl,
128 const int& lworkl,
int& info)
130 F77NAME(
dseupd) (rvec,howmny, select,d,z,ldz,sigma,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info);
135 static inline void Dnaupd (
int& ido,
const char* bmat,
136 const int& n,
const char* which,
137 const int& nev,
const double& tol,
138 double* resid,
const int& ncv,
139 double* v,
const int& ldv,
140 int* iparam,
int* ipntr,
141 double* workd,
double* workl,
142 const int& lworkl,
int& info)
144 F77NAME(
dnaupd) (ido,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info);
149 static inline void Dneupd(
const int& rvec,
const char* howmny,
150 const int* select,
double* dr,
151 double* di,
double* z ,
152 const int& ldz,
const double& sigmar,
153 const double& sigmai,
double* workev,
154 const char* bmat,
const int& n,
155 const char* which,
const int& nev,
156 const double& tol,
double* resid,
157 const int& ncv,
double* v,
158 const int& ldv,
int* iparam,
159 int* ipntr,
double* workd,
160 double* workl,
const int& lworkl,
int& info)
162 F77NAME(
dneupd) (rvec,howmny,select,dr,di,z,ldz,sigmar,sigmai,workev,bmat,n,which,nev,tol,resid,ncv,v,ldv,iparam,ipntr,workd,workl,lworkl,info);
169 #endif //NEKTAR_LIB_UTILITIES_LINEAR_ALGEBRA_ARPACK_HPP
static void Dneupd(const int &rvec, const char *howmny, const int *select, double *dr, double *di, double *z, const int &ldz, const double &sigmar, const double &sigmai, double *workev, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
Post-processing routine to computed eigenvector of computed eigenvalues in Dnaupd.
static void Dsaupd(int &ido, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
Top level reverse communication interface to solve real double-precision symmetric problems...
static void Dseupd(const int &rvec, const char *howmny, const int *select, double *d, double *z, const int &ldz, const double &sigma, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
Post-processing routine to computed eigenvector of computed eigenvalues in Dsaupd.
#define F77NAME(x)
Fortran routines need an underscore.
void F77NAME() dsaupd(int &ido, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
void F77NAME() dnaupd(int &ido, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
void F77NAME() dneupd(const int &rvec, const char *howmny, const int *select, double *dr, double *di, double *z, const int &ldz, const double &sigmar, const double &sigmai, double *workev, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
static void Dnaupd(int &ido, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, int *iparam, int *ipntr, double *workd, double *workl, const int &lworkl, int &info)
Top level reverse communication interface to solve real double-precision non-symmetric problems...
void F77NAME() dseupd(const int &rvec, const char *howmny, const int *select, double *d, double *z, const int &ldz, const double &sigma, const char *bmat, const int &n, const char *which, const int &nev, const double &tol, double *resid, const int &ncv, double *v, const int &ldv, const int *iparam, int *ipntr, const double *workd, double *workl, const int &lworkl, int &info)