blob: 18b2628f1b39b64dc0af6287847bdb79a10d4d47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
/*
* Quasimaximal slicing -- actual solver code
* Copyright (C) 2016 Anton Khirnov <anton@khirnov.net>
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef QMS_SOLVE_H
#define QMS_SOLVE_H
#include "common.h"
#include "cctk.h"
#include "basis.h"
typedef struct QMSSolverPriv QMSSolverPriv;
typedef struct QMSSolver {
QMSSolverPriv *priv;
const BasisSet *basis[2];
int nb_coeffs[2];
int nb_colloc_points[2];
double *coeffs;
} QMSSolver;
int qms_solver_init(QMSSolver **ctx,
cGH *cctkGH,
int basis_order_r, int basis_order_z,
double sf, double filter_power, double input_filter_power);
void qms_solver_free(QMSSolver **ctx);
int qms_solver_solve(QMSSolver *ctx);
void qms_solver_print_stats(QMSSolver *ctx);
#endif /* QMS_SOLVE_H */
|
