From b2609dfba7c35651c756a0ff2693d593caa6a503 Mon Sep 17 00:00:00 2001 From: goodale Date: Mon, 17 May 2004 11:51:13 +0000 Subject: Untabified. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@98 a678b1cf-93e1-4b43-a69d-d43939e66649 --- src/brilldata.F | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/brilldata.F b/src/brilldata.F index 4a9a6d2..46faee5 100644 --- a/src/brilldata.F +++ b/src/brilldata.F @@ -42,17 +42,17 @@ c Get indices for grid functions. call CCTK_VarIndex(ipsi,"idbrilldata::brillpsi") if (ipsi.lt.0) then - call CCTK_WARN(0,"Grid variable index for ipsi not found") + call CCTK_WARN(0,"Grid variable index for ipsi not found") end if call CCTK_VarIndex(iMcoeff,"idbrilldata::brillMlinear") if (iMcoeff.lt.0) then - call CCTK_WARN(0,"Grid variable index for brillMlinear not found") + call CCTK_WARN(0,"Grid variable index for brillMlinear not found") end if call CCTK_VarIndex(iNcoeff,"idbrilldata::brillNsource") if (iNcoeff.lt.0) then - call CCTK_WARN(0,"Grid variable index for brillNsource not found") + call CCTK_WARN(0,"Grid variable index for brillNsource not found") end if c Set up background metric and coefficients for linear solve. @@ -112,11 +112,11 @@ c Check for errors. if (ierr.eq.ELL_SUCCESS) then call CCTK_INFO("Leaving elliptic solver: solve successful") else if (ierr.eq.ELL_NOCONVERGENCE) then - call CCTK_INFO("Leaving elliptic solver: solver failed to converge") + call CCTK_INFO("Leaving elliptic solver: solver failed to converge") else if (ierr.eq.ELL_NOSOLVER) then - call CCTK_INFO("Elliptic solver not found") + call CCTK_INFO("Elliptic solver not found") else - call CCTK_INFO("Leaving elliptic solver: solve failed") + call CCTK_INFO("Leaving elliptic solver: solve failed") end if c Synchronization and symmetry boundaries. -- cgit v1.2.3