diff options
Diffstat (limited to 'src/EHFinder_Generator_Sources.F90')
-rw-r--r-- | src/EHFinder_Generator_Sources.F90 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/EHFinder_Generator_Sources.F90 b/src/EHFinder_Generator_Sources.F90 index 74ab49c..c50ee51 100644 --- a/src/EHFinder_Generator_Sources.F90 +++ b/src/EHFinder_Generator_Sources.F90 @@ -53,9 +53,9 @@ subroutine EHFinder_Generator_Sources(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 @@ -73,9 +73,9 @@ subroutine EHFinder_Generator_Sources(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 ! Find out how many interpolation points are located on this processor. @@ -135,7 +135,7 @@ subroutine EHFinder_Generator_Sources(CCTK_ARGUMENTS) op_indices(1:13), 'operand_indices' ) if ( status .lt. 0 ) then warn_message = 'Cannot set operand indices array in parameter table' - call CCTK_WARN ( 0, warn_message ) + call CCTK_WARN ( 0, trim(warn_message) ) endif ! Set the corresponding table entry for the operation codes. @@ -143,7 +143,7 @@ subroutine EHFinder_Generator_Sources(CCTK_ARGUMENTS) op_codes(1:13), 'operation_codes' ) if ( status .lt. 0 ) then warn_message = 'Cannot set operation codes array in parameter table' - call CCTK_WARN ( 0, warn_message ) + call CCTK_WARN ( 0, trim(warn_message) ) endif ! Call the interpolator. @@ -199,14 +199,14 @@ subroutine EHFinder_Generator_Sources(CCTK_ARGUMENTS) op_indices, 'operand_indices' ) if ( status .lt. 0 ) then warn_message = 'Cannot set operand indices array in parameter table' - call CCTK_WARN ( 0, warn_message ) + call CCTK_WARN ( 0, trim(warn_message) ) endif call Util_TableSetIntArray ( status, table_handle, 14, & op_codes, 'operation_codes' ) if ( status .lt. 0 ) then warn_message = 'Cannot set operation codes array in parameter table' - call CCTK_WARN ( 0, warn_message ) + call CCTK_WARN ( 0, trim(warn_message) ) endif call CCTK_InterpGridArrays ( status, cctkGH, 3, interp_handle, & |