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_ReInitialize.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_ReInitialize.F90')
-rw-r--r-- | src/EHFinder_ReInitialize.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/EHFinder_ReInitialize.F90 b/src/EHFinder_ReInitialize.F90 index 3ff473a..7f53df7 100644 --- a/src/EHFinder_ReInitialize.F90 +++ b/src/EHFinder_ReInitialize.F90 @@ -93,8 +93,8 @@ subroutine EHFinder_ReInitializeControl(CCTK_ARGUMENTS) if ( all ( .not. re_init_this_level_set ) ) then re_init_control = 0 info_message = 'No zero-points of the level set functions. ' - info_message = info_message//'No re-initialization performed.' - call CCTK_INFO ( info_message ) + info_message = trim(info_message)//'No re-initialization performed.' + call CCTK_INFO ( trim(info_message) ) end if end subroutine EHFinder_ReInitializeControl @@ -332,7 +332,7 @@ subroutine EHFinder_ReInitializeRK2_2(CCTK_ARGUMENTS) if ( re_init_control .eq. 0 ) then write(info_message,'(a35,i5,a12)') & 'PDE re-initialization complete in ',ncalls,' iterations.' - call CCTK_INFO(info_message) + call CCTK_INFO( trim(info_message) ) end if ! If we ran out of iterations without converging, print a level 1 warning @@ -487,7 +487,7 @@ subroutine EHFinder_ReInitializeEuler(CCTK_ARGUMENTS) if ( re_init_control .eq. 0 ) then write(info_message,'(a35,i5,a12)') & 'PDE re-initialization complete in ',ncalls,' iterations.' - call CCTK_INFO(info_message) + call CCTK_INFO( trim(info_message) ) end if ! If we ran out of iterations without converging, print a level 1 warning |