diff options
Diffstat (limited to 'src/EHFinder_SetSym.F90')
-rw-r--r-- | src/EHFinder_SetSym.F90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/EHFinder_SetSym.F90 b/src/EHFinder_SetSym.F90 index 7811406..14592e6 100644 --- a/src/EHFinder_SetSym.F90 +++ b/src/EHFinder_SetSym.F90 @@ -57,8 +57,8 @@ subroutine EHFinder_ApplySymAll(CCTK_ARGUMENTS) call CartSymGN ( ierr, cctkGH, 'ehfinder::f' ) if ( ierr .gt. 0 ) then warn_message = 'Failed to perform symmetry operation on the level ' - warn_message = warn_message//'set function' - call CCTK_WARN( 1, warn_message ) + warn_message = trim(warn_message)//'set function' + call CCTK_WARN( 1, trim(warn_message) ) end if ! Apply symmetry for the mask function. @@ -87,8 +87,8 @@ subroutine EHFinder_ApplySymF(CCTK_ARGUMENTS) call CartSymGN ( ierr, cctkGH, 'ehfinder::f' ) if ( ierr .gt. 0 ) then warn_message = 'Failed to perform symmetry operation on the level ' - warn_message = warn_message//'set function' - call CCTK_WARN( 1, warn_message ) + warn_message = trim(warn_message)//'set function' + call CCTK_WARN( 1, trim(warn_message) ) end if return @@ -131,7 +131,7 @@ subroutine EHFinder_ApplySymSC(CCTK_ARGUMENTS) call CartSymGN ( ierr, cctkGH, 'ehfinder::surface_index' ) if ( ierr .gt. 0 ) then warn_message = 'Failed to perform symmetry operation on the surface index' - call CCTK_WARN( 1, warn_message ) + call CCTK_WARN( 1, trim(warn_message) ) end if return |