diff options
| author | miguel <miguel@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2000-03-13 12:18:18 +0000 |
|---|---|---|
| committer | miguel <miguel@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2000-03-13 12:18:18 +0000 |
| commit | b2bd235d99ff31711844d4ab88142e127ca9b3a8 (patch) | |
| tree | 72f2343b9113dff344caaa1dc2474de749212e0f | |
| parent | 6071a58996570352715cb3ff9277071021820648 (diff) | |
Typo.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@24 a678b1cf-93e1-4b43-a69d-d43939e66649
| -rw-r--r-- | src/brilldata.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/brilldata.F b/src/brilldata.F index 4d5862a..24a745e 100644 --- a/src/brilldata.F +++ b/src/brilldata.F @@ -64,7 +64,7 @@ c Boundaries. . "EllLinConfMetric::Bnd::Robin::falloff") call Ell_SetRealKey(ierr,brill_robin_inf, . "EllLinConfMetric::Bnd::Robin::inf") - endif + end if c Elliptic solver. @@ -73,7 +73,7 @@ c Elliptic solver. . field_index,Mlin_index,Nsrc_index,AbsTol,RelTol,"sor") end if - if (CCTK_EQUALS(brill_solver,"petsc)) then + if (CCTK_EQUALS(brill_solver,"petsc")) then call Ell_LinConfMetricSolver(ierr,cctkGH,metpsi_index, . field_index,Mlin_index,Nsrc_index,AbsTol,RelTol,"petsc") end if |