diff options
author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 1999-09-27 15:43:15 +0000 |
---|---|---|
committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 1999-09-27 15:43:15 +0000 |
commit | ac038f5257f9b4779e6c6668ee5d2c1494472f65 (patch) | |
tree | df7f1355e322303614815f055efa6524e0edfd64 | |
parent | 2671f9023f4c4ad1a08e2aa6dff1e96b4601816a (diff) |
Restructuring a litte
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@7 41e88fdd-2190-4c69-9c84-4659c8cf322e
-rw-r--r-- | src/SourceData.F | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/SourceData.F b/src/SourceData.F index 2913efb..8bd4222 100644 --- a/src/SourceData.F +++ b/src/SourceData.F @@ -26,6 +26,7 @@ c where Q is the total charge and R is the sphere radius pi = 4.0*atan(1.0) charge_factor = 4.0d0*pi*charge*3.0d0/(4.0d0*pi*radius**3) + print *,charge_factor do k=1, cctk_lsh(3) do j=1, cctk_lsh(2) @@ -58,7 +59,7 @@ c where Q is the total charge and R is the sphere radius RelTol(3)=-1 c Call to elliptic solver will go here - call Ell_LinFlatSolver(cctkGH, + call Ell_LinFlatSolver(ierr,cctkGH, & iphi, & iMcoeff, iNcoeff, & AbsTol, RelTol, |