From 03b61e56dfa3f79ed44f71de2033188a1a733209 Mon Sep 17 00:00:00 2001 From: lanfer Date: Wed, 10 Nov 1999 08:36:30 +0000 Subject: changes to the vaiables taken from the databse, SOR hangs within MPI, don't know why git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@38 fa3da13c-9f13-4301-a575-cf5b8c5e1907 --- src/sor_flat.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/sor_flat.F b/src/sor_flat.F index 58f97e9..a3926b6 100644 --- a/src/sor_flat.F +++ b/src/sor_flat.F @@ -105,8 +105,8 @@ c Set boundary related variables sw(2)=1 sw(2)=1 - call Ell_GetRealKey(ierr, finf, "EllLinFlat::Bnd::Robin::V0") - call Ell_GetIntKey (ierr, npow, "EllLinFlat::Bnd::Robin::V1") + call Ell_GetRealKey(ierr, finf, "EllLinFlat::Bnd::Robin::inf") + call Ell_GetIntKey (ierr, npow, "EllLinFlat::Bnd::Robin::falloff") end if c We have no storage for M/N if they are of size one in each direction @@ -222,6 +222,7 @@ c Reduce the norm endif residual = resnorm residual = residual / (cctk_gsh(1)*cctk_gsh(2)*cctk_gsh(3)) +c write (*,*) "Iteration/Norm",sor_iteration,residual c Synchronize the variables call CCTK_SyncGroupWithVarI(cctkGH, var_idx) -- cgit v1.2.3