diff options
Diffstat (limited to 'src/EHFinder_Generator_Sources2.F90')
| -rw-r--r-- | src/EHFinder_Generator_Sources2.F90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/EHFinder_Generator_Sources2.F90 b/src/EHFinder_Generator_Sources2.F90 index 704faaf..7f36c05 100644 --- a/src/EHFinder_Generator_Sources2.F90 +++ b/src/EHFinder_Generator_Sources2.F90 @@ -48,9 +48,9 @@ subroutine EHFinder_Generator_Sources2(CCTK_ARGUMENTS) if ( interp_handle .lt. 0 ) then warn_message = 'Cannot get handle for interpolation. ' - warn_message = warn_message//'Forgot to activate an implementation ' - warn_message = warn_message//'providing interpolation operators?' - call CCTK_WARN( 0, warn_message ) + warn_message = trim(warn_message)//'Forgot to activate an implementation ' + warn_message = trim(warn_message)//'providing interpolation operators?' + call CCTK_WARN( 0, trim(warn_message) ) end if ! Convert the interpolation order parameter to a Fortran string to be placed @@ -68,9 +68,9 @@ subroutine EHFinder_Generator_Sources2(CCTK_ARGUMENTS) call CCTK_CoordSystemHandle ( coord_system_handle, 'cart3d' ) if ( coord_system_handle .lt. 0) then warn_message = 'Cannot get handle for cart3d coordinate system. ' - warn_message = warn_message//'Forgot to activate an implementation ' - warn_message = warn_message//'providing coordinates?' - call CCTK_WARN( 0, warn_message ) + warn_message = trim(warn_message)//'Forgot to activate an implementation ' + warn_message = trim(warn_message)//'providing coordinates?' + call CCTK_WARN( 0, trim(warn_message) ) endif #include "include/physical_part.h" |