diff options
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 |