From b2bd235d99ff31711844d4ab88142e127ca9b3a8 Mon Sep 17 00:00:00 2001 From: miguel Date: Mon, 13 Mar 2000 12:18:18 +0000 Subject: Typo. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@24 a678b1cf-93e1-4b43-a69d-d43939e66649 --- src/brilldata.F | 4 ++-- 1 file 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 -- cgit v1.2.3