diff options
author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2001-04-18 20:37:25 +0000 |
---|---|---|
committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2001-04-18 20:37:25 +0000 |
commit | 6bdf4af876ec4bb7e2f6490b18ef8fb1139e9aab (patch) | |
tree | 466886950dd33083a1409d965ff387ff0a0dcd89 | |
parent | 43a7ad3556b3b0ecebc1eb57dcfe12900c064eb5 (diff) |
Updating timelevel names, and some formatting changes.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@35 41e88fdd-2190-4c69-9c84-4659c8cf322e
-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") |