ML_CCZ4_Helper/src/ExtrapolateGammas.c


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

#include <cctk.h>
#include <cctk_Arguments.h>

static void
extrap (cGH const * restrict cctkGH,
        CCTK_REAL * restrict var);

void
ML_CCZ4_ExtrapolateGammas (CCTK_ARGUMENTS)
{
  DECLARE_CCTK_ARGUMENTS;
  
  extrap (cctkGH, Xt1);
  extrap (cctkGH, Xt2);
  extrap (cctkGH, Xt3);
  
  extrap (cctkGH, A);
  
  extrap (cctkGH, B1);
  extrap (cctkGH, B2);
  extrap (cctkGH, B3);
}

static void
extrap (cGH const * restrict const cctkGH,
        CCTK_REAL * restrict const var)
{
  ExtrapolateGammas (cctkGH, var);
}