From e3663f19fdc0c19e3739e2ad1d65d9fa3f1b30fa Mon Sep 17 00:00:00 2001
From: allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649>
Date: Sun, 6 Jan 2002 18:14:01 +0000
Subject: Added missing sets for the elliptic database

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@61 a678b1cf-93e1-4b43-a69d-d43939e66649
---
 src/brilldata.F | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/brilldata.F b/src/brilldata.F
index 255a0d3..bf02a00 100644
--- a/src/brilldata.F
+++ b/src/brilldata.F
@@ -76,12 +76,14 @@ c     Tolerances for elliptic solve.
 
 c     Boundaries.
 
+      call Ell_SetStrKey(ierr,"yes","EllLinConfMetric::Bnd::Robin")
       call Ell_SetRealKey(ierr,1.0D0,"EllLinConfMetric::Bnd::Robin::inf")
       call Ell_SetIntKey(ierr,1,"EllLinConfMetric::Bnd::Robin::falloff")
 
 c     Elliptic solver.
 
       if (CCTK_EQUALS(brill_solver,"sor")) then
+         call Ell_SetIntKey(ierr,sor_maxit,"Ell::SORmaxit");
          call Ell_LinConfMetricSolver(ierr,cctkGH, 
      .   metpsi_index,ipsi,iMcoeff,iNcoeff,AbsTol,RelTol,"sor")
       else if (CCTK_EQUALS(brill_solver,"petsc")) then
-- 
cgit v1.2.3