diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ParamCheck.c | 10 | ||||
| -rw-r--r-- | src/TwoPunctures.c | 12 |
2 files changed, 13 insertions, 9 deletions
diff --git a/src/ParamCheck.c b/src/ParamCheck.c index 6759e20..6931691 100644 --- a/src/ParamCheck.c +++ b/src/ParamCheck.c @@ -18,15 +18,11 @@ TwoPunctures_ParamCheck (CCTK_ARGUMENTS) { DECLARE_CCTK_ARGUMENTS; DECLARE_CCTK_PARAMETERS; + if (use_sources) { - CCTK_INFO("Solving for BH-NS"); if (! CCTK_IsFunctionAliased ("Set_Rho_ADM")) - CCTK_WARN(0, "I found no (aliased) function for matter sources, but " - "was said to use matter."); + CCTK_WARN (0, "Matter sources have been enabled, " + "but there is no aliased function for matter sources."); } - else - CCTK_INFO("Solving for BHs"); - CCTK_VInfo(CCTK_THORNSTRING, "The two puncture-masses are %.16e and %.16e.\n", - par_m_minus, par_m_plus); } diff --git a/src/TwoPunctures.c b/src/TwoPunctures.c index 4e8b6f5..a48cf79 100644 --- a/src/TwoPunctures.c +++ b/src/TwoPunctures.c @@ -195,8 +195,16 @@ TwoPunctures (CCTK_ARGUMENTS) F = dvector (0, ntotal - 1); allocate_derivs (&u, ntotal); allocate_derivs (&v, ntotal); - - CCTK_INFO ("Solving puncture equation"); + + if (use_sources) { + CCTK_INFO ("Solving puncture equation for BH-NS system"); + } else { + CCTK_INFO ("Solving puncture equation for BH-BH system"); + } + CCTK_VInfo (CCTK_THORNSTRING, + "The two puncture masses are %g and %g", + (double) par_m_minus, (double) par_m_plus); + /* initialise to 0 */ for (j = 0; j < ntotal; j++) { |