ArpackInline.cxx
1 
2 #ifndef SELDON_FILE_ARPACK_INLINE_CXX
3 #define SELDON_FILE_ARPACK_INLINE_CXX
4 
5 namespace Seldon
6 {
7 
8 #ifdef SELDON_WITH_MPI
9  inline void saupd(ARPACK_INTEGER comm, ARPACK_INTEGER& ido, char bmat,
11  ARPACK_INTEGER n, char* which,
12  ARPACK_INTEGER nev, ARPACK_DOUBLEREAL& tol, ARPACK_DOUBLEREAL* resid,
13  ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv,
14  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr,
15  ARPACK_DOUBLEREAL* workd, ARPACK_DOUBLEREAL* workl,
16  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
17  {
18  pdsaupd_(&comm, &ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
19  V, &ldv, iparam, ipntr, workd, workl,
20  &lworkl, &info);
21  }
22 
24  inline void saupd(ARPACK_INTEGER comm, ARPACK_INTEGER& ido, char bmat,
25  ARPACK_INTEGER n, char* which,
26  ARPACK_INTEGER nev, ARPACK_REAL& tol, ARPACK_REAL* resid,
27  ARPACK_INTEGER ncv, ARPACK_REAL* V, ARPACK_INTEGER ldv,
28  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr, ARPACK_REAL* workd,
29  ARPACK_REAL* workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
30  {
31  pssaupd_(&comm, &ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
32  V, &ldv, iparam, ipntr, workd, workl,
33  &lworkl, &info);
34  }
35 
37  inline void seupd(ARPACK_INTEGER comm,
38  ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
39  ARPACK_DOUBLEREAL* d, ARPACK_DOUBLEREAL* Z,
40  ARPACK_INTEGER ldz, ARPACK_DOUBLEREAL sigma, char bmat,
41  ARPACK_INTEGER n, char* which, ARPACK_INTEGER nev,
42  ARPACK_DOUBLEREAL tol, ARPACK_DOUBLEREAL* resid,
43  ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv,
44  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr,
45  ARPACK_DOUBLEREAL* workd, ARPACK_DOUBLEREAL* workl,
46  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
47  {
48  pdseupd_(&comm, &rvec, &HowMny, select, d, Z, &ldz, &sigma, &bmat,
49  &n, which, &nev, &tol, resid, &ncv, V, &ldv, iparam,
50  ipntr, workd, workl, &lworkl, &info );
51  }
52 
54  inline void seupd(ARPACK_INTEGER comm, ARPACK_LOGICAL rvec,
55  char HowMny, ARPACK_LOGICAL *select,
56  ARPACK_REAL* d, ARPACK_REAL* Z, ARPACK_INTEGER ldz,
57  ARPACK_REAL sigma, char bmat, ARPACK_INTEGER n,
58  char* which, ARPACK_INTEGER nev, ARPACK_REAL tol,
59  ARPACK_REAL* resid, ARPACK_INTEGER ncv, ARPACK_REAL* V,
60  ARPACK_INTEGER ldv, ARPACK_INTEGER* iparam,
61  ARPACK_INTEGER* ipntr, ARPACK_REAL* workd, ARPACK_REAL* workl,
62  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
63  {
64  psseupd_(&comm, &rvec, &HowMny, select, d, Z, &ldz, &sigma, &bmat,
65  &n, which, &nev, &tol, resid, &ncv, V, &ldv, iparam,
66  ipntr, workd, workl, &lworkl, &info);
67  }
68 
70  inline void naupd(ARPACK_INTEGER comm,
71  ARPACK_INTEGER& ido, char bmat, ARPACK_INTEGER n, char* which,
72  ARPACK_INTEGER nev, ARPACK_DOUBLEREAL& tol,
73  ARPACK_DOUBLEREAL* resid, ARPACK_INTEGER ncv,
74  ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv, ARPACK_INTEGER* iparam,
75  ARPACK_INTEGER* ipntr, ARPACK_DOUBLEREAL* workd,
76  ARPACK_DOUBLEREAL* workl,
77  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
78  {
79  pdnaupd_(&comm, &ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
80  V, &ldv, iparam, ipntr, workd, workl,
81  &lworkl, &info);
82  }
83 
85  inline void naupd(ARPACK_INTEGER comm,
86  ARPACK_INTEGER& ido, char bmat, ARPACK_INTEGER n, char* which,
87  ARPACK_INTEGER nev, ARPACK_REAL& tol, ARPACK_REAL* resid,
88  ARPACK_INTEGER ncv, ARPACK_REAL* V, ARPACK_INTEGER ldv,
89  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr, ARPACK_REAL* workd,
90  ARPACK_REAL* workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
91  {
92 
93  psnaupd_(&comm, &ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
94  V, &ldv, iparam, ipntr, workd, workl,
95  &lworkl, &info);
96 
97  }
98 
100  inline void neupd(ARPACK_INTEGER comm,
101  ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
102  ARPACK_DOUBLEREAL* dr, ARPACK_DOUBLEREAL* di,
103  ARPACK_DOUBLEREAL* Z, ARPACK_INTEGER ldz, ARPACK_DOUBLEREAL sigmar,
104  ARPACK_DOUBLEREAL sigmai, ARPACK_DOUBLEREAL* workv, char bmat,
105  ARPACK_INTEGER n, char* which, ARPACK_INTEGER nev,
106  ARPACK_DOUBLEREAL tol, ARPACK_DOUBLEREAL* resid,
107  ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv,
108  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr,
109  ARPACK_DOUBLEREAL* workd, ARPACK_DOUBLEREAL* workl,
110  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
111  {
112  pdneupd_(&comm, &rvec, &HowMny, select, dr, di, Z, &ldz, &sigmar,
113  &sigmai, workv, &bmat, &n, which, &nev, &tol,
114  resid, &ncv, V, &ldv, iparam, ipntr,
115  workd, workl, &lworkl, &info);
116  }
117 
119  inline void neupd(ARPACK_INTEGER comm,
120  ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
121  ARPACK_REAL* dr, ARPACK_REAL* di, ARPACK_REAL* Z,
122  ARPACK_INTEGER ldz, ARPACK_REAL sigmar, ARPACK_REAL sigmai,
123  ARPACK_REAL* workv, char bmat, ARPACK_INTEGER n, char* which,
124  ARPACK_INTEGER nev, ARPACK_REAL tol, ARPACK_REAL* resid,
125  ARPACK_INTEGER ncv, ARPACK_REAL* V, ARPACK_INTEGER ldv,
126  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr, ARPACK_REAL* workd,
127  ARPACK_REAL* workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
128  {
129  psneupd_(&comm, &rvec, &HowMny, select, dr, di, Z, &ldz, &sigmar,
130  &sigmai, workv, &bmat, &n, which, &nev, &tol,
131  resid, &ncv, V, &ldv, iparam, ipntr,
132  workd, workl, &lworkl, &info);
133  }
134 #else
135  inline void saupd(ARPACK_INTEGER& ido, char bmat, ARPACK_INTEGER n, char* which,
137  ARPACK_INTEGER nev, ARPACK_DOUBLEREAL& tol, ARPACK_DOUBLEREAL* resid,
138  ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv,
139  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr,
140  ARPACK_DOUBLEREAL* workd, ARPACK_DOUBLEREAL* workl,
141  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
142  {
143  dsaupd_(&ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
144  V, &ldv, iparam, ipntr, workd, workl,
145  &lworkl, &info);
146  }
147 
149  inline void saupd(ARPACK_INTEGER& ido, char bmat, ARPACK_INTEGER n, char* which,
150  ARPACK_INTEGER nev, ARPACK_REAL& tol, ARPACK_REAL* resid,
151  ARPACK_INTEGER ncv, ARPACK_REAL* V, ARPACK_INTEGER ldv,
152  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr, ARPACK_REAL* workd,
153  ARPACK_REAL* workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
154  {
155  ssaupd_(&ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
156  V, &ldv, iparam, ipntr, workd, workl,
157  &lworkl, &info);
158  }
159 
161  inline void seupd(ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
162  ARPACK_DOUBLEREAL* d, ARPACK_DOUBLEREAL* Z,
163  ARPACK_INTEGER ldz, ARPACK_DOUBLEREAL sigma, char bmat,
164  ARPACK_INTEGER n, char* which, ARPACK_INTEGER nev,
165  ARPACK_DOUBLEREAL tol, ARPACK_DOUBLEREAL* resid,
166  ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv,
167  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr,
168  ARPACK_DOUBLEREAL* workd, ARPACK_DOUBLEREAL* workl,
169  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
170  {
171  dseupd_(&rvec, &HowMny, select, d, Z, &ldz, &sigma, &bmat,
172  &n, which, &nev, &tol, resid, &ncv, V, &ldv, iparam,
173  ipntr, workd, workl, &lworkl, &info );
174  }
175 
177  inline void seupd(ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
178  ARPACK_REAL* d, ARPACK_REAL* Z, ARPACK_INTEGER ldz,
179  ARPACK_REAL sigma, char bmat, ARPACK_INTEGER n,
180  char* which, ARPACK_INTEGER nev, ARPACK_REAL tol,
181  ARPACK_REAL* resid, ARPACK_INTEGER ncv, ARPACK_REAL* V,
182  ARPACK_INTEGER ldv, ARPACK_INTEGER* iparam,
183  ARPACK_INTEGER* ipntr, ARPACK_REAL* workd, ARPACK_REAL* workl,
184  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
185  {
186  sseupd_(&rvec, &HowMny, select, d, Z, &ldz, &sigma, &bmat,
187  &n, which, &nev, &tol, resid, &ncv, V, &ldv, iparam,
188  ipntr, workd, workl, &lworkl, &info);
189  }
190 
192  inline void naupd(ARPACK_INTEGER& ido, char bmat, ARPACK_INTEGER n, char* which,
193  ARPACK_INTEGER nev, ARPACK_DOUBLEREAL& tol,
194  ARPACK_DOUBLEREAL* resid, ARPACK_INTEGER ncv,
195  ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv, ARPACK_INTEGER* iparam,
196  ARPACK_INTEGER* ipntr, ARPACK_DOUBLEREAL* workd,
197  ARPACK_DOUBLEREAL* workl,
198  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
199  {
200  dnaupd_(&ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
201  V, &ldv, iparam, ipntr, workd, workl,
202  &lworkl, &info);
203 
204  }
205 
207  inline void naupd(ARPACK_INTEGER& ido, char bmat, ARPACK_INTEGER n, char* which,
208  ARPACK_INTEGER nev, ARPACK_REAL& tol, ARPACK_REAL* resid,
209  ARPACK_INTEGER ncv, ARPACK_REAL* V, ARPACK_INTEGER ldv,
210  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr, ARPACK_REAL* workd,
211  ARPACK_REAL* workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
212  {
213 
214  snaupd_(&ido, &bmat, &n, which, &nev, &tol, resid, &ncv,
215  V, &ldv, iparam, ipntr, workd, workl,
216  &lworkl, &info);
217 
218  }
219 
221  inline void neupd(ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
222  ARPACK_DOUBLEREAL* dr, ARPACK_DOUBLEREAL* di,
223  ARPACK_DOUBLEREAL* Z, ARPACK_INTEGER ldz, ARPACK_DOUBLEREAL sigmar,
224  ARPACK_DOUBLEREAL sigmai, ARPACK_DOUBLEREAL* workv, char bmat,
225  ARPACK_INTEGER n, char* which, ARPACK_INTEGER nev,
226  ARPACK_DOUBLEREAL tol, ARPACK_DOUBLEREAL* resid,
227  ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL* V, ARPACK_INTEGER ldv,
228  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr,
229  ARPACK_DOUBLEREAL* workd, ARPACK_DOUBLEREAL* workl,
230  ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
231  {
232  dneupd_(&rvec, &HowMny, select, dr, di, Z, &ldz, &sigmar,
233  &sigmai, workv, &bmat, &n, which, &nev, &tol,
234  resid, &ncv, V, &ldv, iparam, ipntr,
235  workd, workl, &lworkl, &info);
236  }
237 
239  inline void neupd(ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select,
240  ARPACK_REAL* dr, ARPACK_REAL* di, ARPACK_REAL* Z,
241  ARPACK_INTEGER ldz, ARPACK_REAL sigmar, ARPACK_REAL sigmai,
242  ARPACK_REAL* workv, char bmat, ARPACK_INTEGER n, char* which,
243  ARPACK_INTEGER nev, ARPACK_REAL tol, ARPACK_REAL* resid,
244  ARPACK_INTEGER ncv, ARPACK_REAL* V, ARPACK_INTEGER ldv,
245  ARPACK_INTEGER* iparam, ARPACK_INTEGER* ipntr, ARPACK_REAL* workd,
246  ARPACK_REAL* workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER& info)
247  {
248  sneupd_(&rvec, &HowMny, select, dr, di, Z, &ldz, &sigmar,
249  &sigmai, workv, &bmat, &n, which, &nev, &tol,
250  resid, &ncv, V, &ldv, iparam, ipntr,
251  workd, workl, &lworkl, &info);
252  }
253 #endif
254 
255 } // end namespace Seldon
256 
257 
258 #endif
Seldon::seupd
void seupd(ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select, ARPACK_DOUBLEREAL *d, ARPACK_DOUBLEREAL *Z, ARPACK_INTEGER ldz, ARPACK_DOUBLEREAL sigma, char bmat, ARPACK_INTEGER n, char *which, ARPACK_INTEGER nev, ARPACK_DOUBLEREAL tol, ARPACK_DOUBLEREAL *resid, ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL *V, ARPACK_INTEGER ldv, ARPACK_INTEGER *iparam, ARPACK_INTEGER *ipntr, ARPACK_DOUBLEREAL *workd, ARPACK_DOUBLEREAL *workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER &info)
Postprocessing for symmetric problems in double precision.
Definition: ArpackInline.cxx:161
Seldon::saupd
void saupd(ARPACK_INTEGER &ido, char bmat, ARPACK_INTEGER n, char *which, ARPACK_INTEGER nev, ARPACK_DOUBLEREAL &tol, ARPACK_DOUBLEREAL *resid, ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL *V, ARPACK_INTEGER ldv, ARPACK_INTEGER *iparam, ARPACK_INTEGER *ipntr, ARPACK_DOUBLEREAL *workd, ARPACK_DOUBLEREAL *workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER &info)
Symmetric problems in double precision.
Definition: ArpackInline.cxx:136
Seldon::neupd
void neupd(ARPACK_LOGICAL rvec, char HowMny, ARPACK_LOGICAL *select, ARPACK_DOUBLEREAL *dr, ARPACK_DOUBLEREAL *di, ARPACK_DOUBLEREAL *Z, ARPACK_INTEGER ldz, ARPACK_DOUBLEREAL sigmar, ARPACK_DOUBLEREAL sigmai, ARPACK_DOUBLEREAL *workv, char bmat, ARPACK_INTEGER n, char *which, ARPACK_INTEGER nev, ARPACK_DOUBLEREAL tol, ARPACK_DOUBLEREAL *resid, ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL *V, ARPACK_INTEGER ldv, ARPACK_INTEGER *iparam, ARPACK_INTEGER *ipntr, ARPACK_DOUBLEREAL *workd, ARPACK_DOUBLEREAL *workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER &info)
Postprocessing for non-symmetric problems in double precision.
Definition: ArpackInline.cxx:221
Seldon::naupd
void naupd(ARPACK_INTEGER &ido, char bmat, ARPACK_INTEGER n, char *which, ARPACK_INTEGER nev, ARPACK_DOUBLEREAL &tol, ARPACK_DOUBLEREAL *resid, ARPACK_INTEGER ncv, ARPACK_DOUBLEREAL *V, ARPACK_INTEGER ldv, ARPACK_INTEGER *iparam, ARPACK_INTEGER *ipntr, ARPACK_DOUBLEREAL *workd, ARPACK_DOUBLEREAL *workl, ARPACK_INTEGER lworkl, ARPACK_INTEGER &info)
Non-symmetric problems in double precision.
Definition: ArpackInline.cxx:192
Seldon
Seldon namespace.
Definition: Array.cxx:24