diff options
| -rw-r--r-- | src/SourceData.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 6f94b8a..b6093ad 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -92,7 +92,7 @@ c Set tolerance for stopping elliptic solve c Set any options needed for the elliptic solve call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bnd::Robin") - call Ell_SetRealKey(ierr, 1.0d0, "EllLinFlat::Bnd::Robin::inf") + call Ell_SetRealKey(ierr, 0d0, "EllLinFlat::Bnd::Robin::inf") call Ell_SetIntKey (ierr, 1, "EllLinFlat::Bnd::Robin::falloff") |