From 43a7ad3556b3b0ecebc1eb57dcfe12900c064eb5 Mon Sep 17 00:00:00 2001 From: allen Date: Fri, 13 Apr 2001 14:33:18 +0000 Subject: Adding Robin back in, but still needs testing git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@34 41e88fdd-2190-4c69-9c84-4659c8cf322e --- src/SourceData.F77 | 3 +-- 1 file changed, 1 insertion(+), 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") -- cgit v1.2.3