diff options
| author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2001-04-13 14:33:18 +0000 |
|---|---|---|
| committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2001-04-13 14:33:18 +0000 |
| commit | 43a7ad3556b3b0ecebc1eb57dcfe12900c064eb5 (patch) | |
| tree | a52a80800a35eb4d072b81785fa1c74f48189c0b | |
| parent | bdd61e19583cb6ba0339081712a22cd94b14ecb2 (diff) | |
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
| -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") |