diff options
| author | tradke <tradke@b2a53a04-0f4f-0410-87ed-f9f25ced00cf> | 2009-02-26 09:07:06 +0000 |
|---|---|---|
| committer | tradke <tradke@b2a53a04-0f4f-0410-87ed-f9f25ced00cf> | 2009-02-26 09:07:06 +0000 |
| commit | ba7a7d6baf8e549ee1ffbcf8c50e8f63ef561900 (patch) | |
| tree | 36b3b3fb40c43ffef3d9d272e6dc55886e8fea86 /src/TwoPunctures.c | |
| parent | 7ee4788af69183130359abf807a910f1677fdb60 (diff) | |
output residuum and initial guess debug information only on processor 0
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/TwoPunctures/trunk@91 b2a53a04-0f4f-0410-87ed-f9f25ced00cf
Diffstat (limited to 'src/TwoPunctures.c')
| -rw-r--r-- | src/TwoPunctures.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/TwoPunctures.c b/src/TwoPunctures.c index b548037..d961815 100644 --- a/src/TwoPunctures.c +++ b/src/TwoPunctures.c @@ -76,9 +76,10 @@ void set_initial_guess(CCTK_POINTER_TO_CONST cctkGH, v.d0[indx]/=(-cos(Pih * (2 * i + 1) / n1)-1.0); } Derivatives_AB3 (nvar, n1, n2, n3, v); - if (do_initial_debug_output) + if (do_initial_debug_output && CCTK_MyProc(cctkGH) == 0) { debug_file=fopen("initial.dat", "w"); + assert(debug_file); for (ivar = 0; ivar < nvar; ivar++) for (i = 0; i < n1; i++) for (j = 0; j < n2; j++) |