CarpetX: a Cactus driver for the Einstein Toolkit based on AMReX
# Interface definition for thorn TwoPunctures

IMPLEMENTS: TwoPunctures

INHERITS: ADMBase Coordinates

USES INCLUDE HEADER: loopcontrol.h



CCTK_INT FUNCTION Set_Rho_ADM(              \
    CCTK_POINTER_TO_CONST IN  cctkGH,       \
    CCTK_INT              IN  size,         \
    CCTK_REAL ARRAY       OUT source,       \
    CCTK_REAL ARRAY       IN  x,            \
    CCTK_REAL ARRAY       IN  y,            \
    CCTK_REAL ARRAY       IN  z             \
    )
CCTK_INT FUNCTION Set_Initial_Guess_for_u(  \
    CCTK_POINTER_TO_CONST IN  cctkGH,       \
    CCTK_INT              IN  size,         \
    CCTK_REAL ARRAY       OUT u,            \
    CCTK_REAL ARRAY       IN  x,            \
    CCTK_REAL ARRAY       IN  y,            \
    CCTK_REAL ARRAY       IN  z             \
    )
CCTK_INT FUNCTION Rescale_Sources(  \
    CCTK_POINTER_TO_CONST IN  cctkGH,       \
    CCTK_INT              IN  size,         \
    CCTK_REAL ARRAY       IN  x,            \
    CCTK_REAL ARRAY       IN  y,            \
    CCTK_REAL ARRAY       IN  z,            \
    CCTK_REAL ARRAY       IN  psi,          \
    CCTK_REAL ARRAY       IN  gxx,          \
    CCTK_REAL ARRAY       IN  gyy,          \
    CCTK_REAL ARRAY       IN  gzz,          \
    CCTK_REAL ARRAY       IN  gxy,          \
    CCTK_REAL ARRAY       IN  gxz,          \
    CCTK_REAL ARRAY       IN  gyz           \
    )
USES FUNCTION Set_Rho_ADM
USES FUNCTION Set_Initial_Guess_for_u
USES FUNCTION Rescale_Sources



CCTK_REAL puncture_u TYPE=gf tags='index={0 0 0}'



CCTK_REAL energy TYPE=scalar tags='checkpoint="no"'
{
  E
} "ADM energy of the Bowen-York spacetime"

CCTK_REAL angular_momentum TYPE=scalar tags='checkpoint="no"'
{
  J1 J2 J3
} "Angular momentum of the Bowen-York spacetime"

CCTK_REAL bare_mass TYPE=scalar tags='checkpoint="no"'
{
  mp mm
} "Bare masses of the punctures"

CCTK_REAL puncture_adm_mass TYPE=scalar tags='checkpoint="no"'
{
  mp_adm mm_adm
} "ADM masses of the punctures (measured at the other spatial infinities)"