diff options
Diffstat (limited to 'src/EHFinder_ParamCheck.F90')
| -rw-r--r-- | src/EHFinder_ParamCheck.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/EHFinder_ParamCheck.F90 b/src/EHFinder_ParamCheck.F90 index 9640d45..c2352db 100644 --- a/src/EHFinder_ParamCheck.F90 +++ b/src/EHFinder_ParamCheck.F90 @@ -25,8 +25,8 @@ subroutine EHFinder_ParamCheck(CCTK_ARGUMENTS) if ( ( .not. CCTK_EQUALS(metric_type,'physical') ) .and. & ( .not. CCTK_EQUALS(metric_type,'static conformal') ) ) then param_warn = 'Unknown ADMBase::metric_type - known types are "physical" ' - param_warn = param_warn//'and "static conformal"' - call CCTK_PARAMWARN ( param_warn ) + param_warn = trim(param_warn)//'and "static conformal"' + call CCTK_PARAMWARN ( trim(param_warn) ) end if end subroutine EHFinder_ParamCheck |