diff options
| author | goodale <goodale@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2004-05-17 11:51:13 +0000 |
|---|---|---|
| committer | goodale <goodale@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2004-05-17 11:51:13 +0000 |
| commit | b2609dfba7c35651c756a0ff2693d593caa6a503 (patch) | |
| tree | 1fd96fb9b726d61731e1251d52ce4dfebf902e5b | |
| parent | 28577086f9ab366e3a52f581e18127c3b834e3c6 (diff) | |
Untabified.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@98 a678b1cf-93e1-4b43-a69d-d43939e66649
| -rw-r--r-- | src/brilldata.F | 12 |
1 files 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. |