diff options
author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-10-02 16:50:59 +0000 |
---|---|---|
committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-10-02 16:50:59 +0000 |
commit | 415ba8ed4069663367cd3492a5d8d05eda393d90 (patch) | |
tree | b7571e524a18c4965da47f51f55a7d537974ced6 /src/EHFinder_Check.F90 | |
parent | 6f61e734921caffa04edec9e5389dc7617fdd488 (diff) |
Added a parameter to undo re-parametrization if desired and uncommented
the code.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@59 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/EHFinder_Check.F90')
-rw-r--r-- | src/EHFinder_Check.F90 | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/EHFinder_Check.F90 b/src/EHFinder_Check.F90 index b4a8578..7bb1458 100644 --- a/src/EHFinder_Check.F90 +++ b/src/EHFinder_Check.F90 @@ -107,11 +107,13 @@ subroutine EHFinder_ReParametrize_Check(CCTK_ARGUMENTS) fmin_bound - three*maxval ( cctk_delta_space ) call CCTK_INFO(info_message) - if ( fmin_extremum .gt. -two * minval(cctk_delta_space) ) then - call CCTK_INFO('Re-parametrization undone due to imminent pinch-off') -! f = fbak -! eh_mask = eh_mask_bak -! reparam_undone = .true. + if ( reparam_undo ) then + if ( fmin_extremum .gt. -two * minval(cctk_delta_space) ) then + call CCTK_INFO('Re-parametrization undone due to imminent pinch-off') + f = fbak + eh_mask = eh_mask_bak + reparam_undone = .true. + end if end if end if |