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
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "cctk.h"
#include "cctk_parameters.h"
#include "cctk_WarnLevel.h"
/* routine registers the SOR solver "sor_confmetric" under the name "sor"
with the Elliptic Class "LinConfMetric".
*/
void EllSOR_Register(cGH *GH) {
void sor_confmetric(cGH *GH, int *MetricPsiI, int FieldI, int MI,
int NI, CCTK_REAL *AbsTol, CCTK_REAL *RelTol);
void sor_flat(cGH *GH, int MI, int NI, CCTK_REAL *AbsTol, CCTK_REAL *RelTol);
DECLARE_CCTK_PARAMETERS
if (CCTK_Equals(elliptic_verbose,"yes"))
printf("SOR: Registering sor for Ell_LinConfMetric...\n");
Ell_RegisterSolver(sor_confmetric,"sor","Ell_LinConfMetric");
if (CCTK_Equals(elliptic_verbose,"yes"))
printf("SOR: Registering sor for Ell_LinFlat...\n");
Ell_RegisterSolver(sor_flat,"sor","Ell_LinFlat");
}
|