diff options
author | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2002-01-06 18:14:01 +0000 |
---|---|---|
committer | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2002-01-06 18:14:01 +0000 |
commit | e3663f19fdc0c19e3739e2ad1d65d9fa3f1b30fa (patch) | |
tree | 557650d772ae378d3e93cadab85447f5fac35f91 | |
parent | 9c5d65e95e12de9cb11b6cf63df199ad6c5f01e7 (diff) |
Added missing sets for the elliptic database
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@61 a678b1cf-93e1-4b43-a69d-d43939e66649
-rw-r--r-- | src/brilldata.F | 2 |
1 files changed, 2 insertions, 0 deletions
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 |