diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-10-09 14:13:21 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-10-09 14:13:21 +0000 |
| commit | ddfc3b0fb71a729820505ac922b613d394ff98d6 (patch) | |
| tree | 87e15cf07cb076bafb5efbfe5879fc301816f25d /src/EHFinder_Check.F90 | |
| parent | 88deb662dbd7c67cc591cccd18e3c3216865fb6a (diff) | |
Fixed a check of a boolean parameter, that are passed to fortran as an
integer. The hitachi insists that it should be treated as an integer in
an IF statement.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@67 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src/EHFinder_Check.F90')
| -rw-r--r-- | src/EHFinder_Check.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/EHFinder_Check.F90 b/src/EHFinder_Check.F90 index 7bb1458..0ef8f28 100644 --- a/src/EHFinder_Check.F90 +++ b/src/EHFinder_Check.F90 @@ -107,7 +107,7 @@ subroutine EHFinder_ReParametrize_Check(CCTK_ARGUMENTS) fmin_bound - three*maxval ( cctk_delta_space ) call CCTK_INFO(info_message) - if ( reparam_undo ) then + if ( reparam_undo .gt. 0 ) then if ( fmin_extremum .gt. -two * minval(cctk_delta_space) ) then call CCTK_INFO('Re-parametrization undone due to imminent pinch-off') f = fbak |