diff options
author | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2002-05-21 21:09:47 +0000 |
---|---|---|
committer | allen <allen@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2002-05-21 21:09:47 +0000 |
commit | aa3f2938e6edb094392582654a3771ed22492a77 (patch) | |
tree | 32fee8f13f3f9563c1e13322fb3b70ef1c6b7c61 /src/brilldata.F | |
parent | e79820d9bdfb9cb279caed3673956accb7ff4092 (diff) |
Homogenise parameters, changed documentation
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@82 a678b1cf-93e1-4b43-a69d-d43939e66649
Diffstat (limited to 'src/brilldata.F')
-rw-r--r-- | src/brilldata.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/brilldata.F b/src/brilldata.F index 3c91b97..e38afaa 100644 --- a/src/brilldata.F +++ b/src/brilldata.F @@ -75,7 +75,7 @@ c Set up background metric and coefficients for linear solve. c Tolerances for elliptic solve. - AbsTol(1)= brill_thresh + AbsTol(1)= thresh AbsTol(2)= -1.0D0 AbsTol(3)= -1.0D0 @@ -94,14 +94,14 @@ c Elliptic solver c Just in case some solvers do not use the standard interface conformal_state = 0 - if (CCTK_EQUALS(brill_solver,"sor")) then + if (CCTK_EQUALS(solver,"sor")) then call Ell_SetIntKey(ierr,sor_maxit,"Ell::SORmaxit") call Ell_LinMetricSolver(ierr,cctkGH, . metric_index,ipsi,iMcoeff,iNcoeff,AbsTol,RelTol,"sor") - else if (CCTK_EQUALS(brill_solver,"petsc")) then + else if (CCTK_EQUALS(solver,"petsc")) then call Ell_LinMetricSolver(ierr,cctkGH, . metric_index,ipsi,iMcoeff,iNcoeff,AbsTol,RelTol,"petsc") - else if (CCTK_EQUALS(brill_solver,"bam")) then + else if (CCTK_EQUALS(solver,"bam")) then call Ell_LinMetricSolver(ierr,cctkGH, . metric_index,ipsi,iMcoeff,iNcoeff,AbsTol,RelTol,"bam") end if |