diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-09-30 17:53:11 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-09-30 17:53:11 +0000 |
| commit | c8b195ce85faa2480aae903f4f05bc528ad48603 (patch) | |
| tree | b25f338188c3cabeb5626bb2d670257dfe509551 /src/EHFinder_ParamCheck.F90 | |
| parent | 736ca3994895b7695c642aba97c1fc57ec26a563 (diff) | |
Added some trim calls to the generation of warning and info messages. As Erik
Schnetter correctly pointed out, the previous version would not work correctly.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@159 2a26948c-0e4f-0410-aee8-f1d3e353619c
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 |