diff options
| author | lanfer <lanfer@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 1999-11-23 18:37:53 +0000 |
|---|---|---|
| committer | lanfer <lanfer@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 1999-11-23 18:37:53 +0000 |
| commit | c23746358f9ceccbb2c47e5991a5673fa4b99506 (patch) | |
| tree | db18f1837022d4e2b3e568e96b1b0b03c07b64d0 | |
| parent | 7e5e6f66055bddf2504098184634a6195d12b85e (diff) | |
changing names of the ell database
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@18 41e88fdd-2190-4c69-9c84-4659c8cf322e
| -rw-r--r-- | src/SourceData.F77 | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 14bcc70..bbd786c 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -67,17 +67,20 @@ c where Q is the total charge and R is the sphere radius c Call elliptic solver to fill out phi -c call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bbd::Robin") +c call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bnd::Robin") c write (*,*) "SourceData: SetString ",ierr - call Ell_SetRealKey(ierr, 1.0d0, "EllLinFlat::Bnd::Robin::V0") - call Ell_SetIntKey (ierr, 1, "EllLinFlat::Bnd::Robin::V1") + call Ell_SetRealKey(ierr, 1.0d0, "EllLinFlat::Bnd::Robin::inf") + call Ell_SetIntKey (ierr, 1, "EllLinFlat::Bnd::Robin::falloff") + + write (*,*) "charge: Going into elliptic solver" call Ell_LinFlatSolver(ierr,cctkGH, & iphi, & iMcoeff, iNcoeff, & AbsTol, RelTol, & "sor") + write (*,*) "charge: Exit elliptic solver" c Set up last timestep ... assume time symmetry |