diff options
Diffstat (limited to 'src/SourceData.F77')
| -rw-r--r-- | src/SourceData.F77 | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index c8c7948..6f94b8a 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -91,8 +91,7 @@ c Set tolerance for stopping elliptic solve c Set any options needed for the elliptic solve -c call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bnd::Robin") -c write (*,*) "SourceData: SetString ",ierr + call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bnd::Robin") call Ell_SetRealKey(ierr, 1.0d0, "EllLinFlat::Bnd::Robin::inf") call Ell_SetIntKey (ierr, 1, "EllLinFlat::Bnd::Robin::falloff") |