From 6bdf4af876ec4bb7e2f6490b18ef8fb1139e9aab Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 18 Apr 2001 20:37:25 +0000 Subject: Updating timelevel names, and some formatting changes. git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@35 41e88fdd-2190-4c69-9c84-4659c8cf322e --- src/SourceData.F77 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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") -- cgit v1.2.3