diff options
| author | miguel <miguel@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2001-04-23 10:27:14 +0000 |
|---|---|---|
| committer | miguel <miguel@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2001-04-23 10:27:14 +0000 |
| commit | 431d6fff0f83a411a18174eb2bcb182177cc26c6 (patch) | |
| tree | c9feaf41ccf9f0821500d7839d450510edd0897c | |
| parent | 4ff6d2273b2c01760ae57acef6056a5c9501727a (diff) | |
cleaning up.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@47 a678b1cf-93e1-4b43-a69d-d43939e66649
| -rw-r--r-- | src/brilldata.F | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/brilldata.F b/src/brilldata.F index 04c5eeb..5d7906b 100644 --- a/src/brilldata.F +++ b/src/brilldata.F @@ -67,16 +67,16 @@ c Set up background metric and coefficients for linear solve. c Tolerances for elliptic solve. AbsTol(1)= brill_thresh - AbsTol(2)= brill_thresh - AbsTol(3)= brill_thresh + AbsTol(2)= -1.0D0 + AbsTol(3)= -1.0D0 - RelTol(1)= -1 - RelTol(2)= -1 - RelTol(3)= -1 + RelTol(1)= -1.0D0 + RelTol(2)= -1.0D0 + RelTol(3)= -1.0D0 c Boundaries. - call Ell_SetRealKey(ierr,1.0d0,"EllLinConfMetric::Bnd::Robin::inf") + call Ell_SetRealKey(ierr,1.0D0,"EllLinConfMetric::Bnd::Robin::inf") call Ell_SetIntKey(ierr,1,"EllLinConfMetric::Bnd::Robin::falloff") c Elliptic solver. @@ -115,3 +115,4 @@ c Reconstruct physical metric. return end + |