From b8badf6c13e0cc80e21e34f3c076c7d726a995b3 Mon Sep 17 00:00:00 2001
From: jese <jese@b2a53a04-0f4f-0410-87ed-f9f25ced00cf>
Date: Wed, 7 May 2008 15:10:05 +0000
Subject: This is much slower, but much more accurate and does not give
 diffrent values after the last post-mass-solving call to the Newton solver.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/TwoPunctures/trunk@86 b2a53a04-0f4f-0410-87ed-f9f25ced00cf
---
 src/Newton.c       |  2 ++
 src/TwoPunctures.c | 67 +++++++++++++++++++++++++++++++-----------------------
 2 files changed, 40 insertions(+), 29 deletions(-)

diff --git a/src/Newton.c b/src/Newton.c
index 058a443..643404e 100644
--- a/src/Newton.c
+++ b/src/Newton.c
@@ -412,6 +412,7 @@ Newton (CCTK_POINTER_TO_CONST cctkGH,
 	derivs v, CCTK_REAL tol, int itmax)
 {
   DECLARE_CCTK_PARAMETERS;
+
   int ntotal = n1 * n2 * n3 * nvar, ii, j, it;
   CCTK_REAL *F, dmax, normres;
   derivs u, dv;
@@ -436,6 +437,7 @@ Newton (CCTK_POINTER_TO_CONST cctkGH,
     for (j = 0; j < ntotal; j++)
       dv.d0[j] = 0;
     printf ("Newton: it=%d \t |F|=%e\n", it, (double)dmax);
+    printf ("bare mass: mp=%g \t mm=%g\n", (double) par_m_plus, (double) par_m_minus);
     fflush(stdout);
     ii =
       bicgstab (cctkGH,
diff --git a/src/TwoPunctures.c b/src/TwoPunctures.c
index 01a772d..b2d687c 100644
--- a/src/TwoPunctures.c
+++ b/src/TwoPunctures.c
@@ -208,11 +208,11 @@ TwoPunctures (CCTK_ARGUMENTS)
   int nvar = 1, n1 = npoints_A, n2 = npoints_B, n3 = npoints_phi;
 
   int imin[3], imax[3], d;
-  int i, j, k, l, ntotal = n1 * n2 * n3 * nvar;
+  int i, j, k, l, n, ntotal = n1 * n2 * n3 * nvar;
   int percent10 = 0;
   static CCTK_REAL *F = NULL;
   static derivs u, v;
-  CCTK_REAL admMass, M_p, M_m, tmp_p, tmp_m, um, up;
+  CCTK_REAL admMass, M_p, M_m, tmp_p, tmp_m, um, up, new_mass, old_mass;
   CCTK_REAL old_alp;
 
   if (! F) {
@@ -248,40 +248,49 @@ TwoPunctures (CCTK_ARGUMENTS)
     }
 
     if(!(give_bare_mass)) {
-      Newton (cctkGH, nvar, n1, n2, n3, v, Newton_tol, 2);
-
-      F_of_v (cctkGH, nvar, n1, n2, n3, v, F, u);
-
-      up  = PunctIntPolAtArbitPosition 
-	(0, nvar, n1, n2, n3, v, par_b, 0., 0.);
-      um  = PunctIntPolAtArbitPosition 
-	(0, nvar, n1, n2, n3, v, -par_b, 0., 0.);
-
-     * mp  = *(CCTK_REAL *) CCTK_ParameterGet("target_M_plus", "twopunctures", NULL);
-     * mm  = *(CCTK_REAL *) CCTK_ParameterGet("target_M_minus", "twopunctures", NULL);
+      * mp  = target_M_plus;
+      * mm  = target_M_minus;
       
       M_p= target_M_plus;
       M_m= target_M_minus;
-      for(l=0; l<32;l++) {
-	tmp_p=(4*par_b*um+ *mp +4*par_b);
-	tmp_m=(4*par_b*up+ *mm +4*par_b);
-	*mp = *mp - ((*mp*(up+1+M_m/tmp_p)-M_p)/
-		   (up+1+(M_m/tmp_p)-(*mp*M_m)/(pow(tmp_p,2))));
-	*mm = *mm - ((*mm*(um+1+M_p/tmp_m)-M_m)/
-		   (um+1+(M_p/tmp_m)-(*mm*M_p)/(pow(tmp_m,2))));
-      }
-      char valbuf_p[100], valbuf_m[100];  
 
-      sprintf (valbuf_p,"%f", (float) *mp);
-      CCTK_ParameterSet ("par_m_plus", "twopunctures", valbuf_p);
-      sprintf (valbuf_m,"%f", (float) *mm);
-      CCTK_ParameterSet ("par_m_minus", "twopunctures", valbuf_m);
-    }
+      new_mass = 0;
+      old_mass = 1.;
+      while (new_mass<old_mass) {
+	old_mass = (double)*mp + (double)*mm;
+	Newton (cctkGH, nvar, n1, n2, n3, v, Newton_tol, 1);
+
+	F_of_v (cctkGH, nvar, n1, n2, n3, v, F, u);
+
+	up  = PunctIntPolAtArbitPosition 
+	  (0, nvar, n1, n2, n3, v, par_b, 0., 0.);
+	um  = PunctIntPolAtArbitPosition 
+	  (0, nvar, n1, n2, n3, v, -par_b, 0., 0.);
+
+	for(l=0; l<32;l++) {
+	  tmp_p=(4*par_b*um+ *mp +4*par_b);
+	  tmp_m=(4*par_b*up+ *mm +4*par_b);
+	  *mp = *mp - ((*mp*(up+1+M_m/tmp_p)-M_p)/
+		       (up+1+(M_m/tmp_p)-(*mp*M_m)/(pow(tmp_p,2))));
+	  *mm = *mm - ((*mm*(um+1+M_p/tmp_m)-M_m)/
+		       (um+1+(M_p/tmp_m)-(*mm*M_p)/(pow(tmp_m,2))));
+	}
+	char valbuf_p[100], valbuf_m[100];  
+	
+	sprintf (valbuf_p,"%f", (float) *mp);
+	CCTK_ParameterSet ("par_m_plus", "twopunctures", valbuf_p);
+	sprintf (valbuf_m,"%f", (float) *mm);
+	CCTK_ParameterSet ("par_m_minus", "twopunctures", valbuf_m);
+	new_mass = (double)*mp + (double)*mm;
+      }
+    } 
+    admMass = (*mp + *mm
+               - 4*par_b*PunctEvalAtArbitPosition(v.d0, 1, 0, 0, n1, n2, n3));
+    CCTK_VInfo (CCTK_THORNSTRING, "ADM mass is %g\n", (double)admMass);
 
     Newton (cctkGH, nvar, n1, n2, n3, v, Newton_tol, Newton_maxit);
-
+ 
     F_of_v (cctkGH, nvar, n1, n2, n3, v, F, u);
-
     CCTK_VInfo (CCTK_THORNSTRING,
                 "The two puncture masses are %g and %g",
                 (double) *mm, (double)* mp);
-- 
cgit v1.2.3