From 5ef97de48d80105c78ecdaa97c09226fa38ad1f0 Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 30 Sep 2003 09:45:54 +0000 Subject: The native preprocessor didn't like two question marks following each other in fortran strings. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@150 2a26948c-0e4f-0410-aee8-f1d3e353619c --- src/EHFinder_FindSurface.F90 | 4 ++-- src/EHFinder_Generator_Sources.F90 | 4 ++-- src/EHFinder_Generator_Sources2.F90 | 4 ++-- src/EHFinder_Integrate.F90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/EHFinder_FindSurface.F90 b/src/EHFinder_FindSurface.F90 index d53db6e..43dbbbc 100644 --- a/src/EHFinder_FindSurface.F90 +++ b/src/EHFinder_FindSurface.F90 @@ -407,7 +407,7 @@ subroutine EHFinder_FindSurface(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??' + warn_message = warn_message//'providing interpolation operators?' call CCTK_WARN( 0, warn_message ) end if @@ -425,7 +425,7 @@ subroutine EHFinder_FindSurface(CCTK_ARGUMENTS) 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??' + warn_message = warn_message//'providing coordinates?' call CCTK_WARN( 0, warn_message ) endif diff --git a/src/EHFinder_Generator_Sources.F90 b/src/EHFinder_Generator_Sources.F90 index 28ce33a..74ab49c 100644 --- a/src/EHFinder_Generator_Sources.F90 +++ b/src/EHFinder_Generator_Sources.F90 @@ -54,7 +54,7 @@ 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??' + warn_message = warn_message//'providing interpolation operators?' call CCTK_WARN( 0, warn_message ) end if @@ -74,7 +74,7 @@ subroutine EHFinder_Generator_Sources(CCTK_ARGUMENTS) 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??' + warn_message = warn_message//'providing coordinates?' call CCTK_WARN( 0, warn_message ) endif diff --git a/src/EHFinder_Generator_Sources2.F90 b/src/EHFinder_Generator_Sources2.F90 index 27a9f90..704faaf 100644 --- a/src/EHFinder_Generator_Sources2.F90 +++ b/src/EHFinder_Generator_Sources2.F90 @@ -49,7 +49,7 @@ 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??' + warn_message = warn_message//'providing interpolation operators?' call CCTK_WARN( 0, warn_message ) end if @@ -69,7 +69,7 @@ subroutine EHFinder_Generator_Sources2(CCTK_ARGUMENTS) 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??' + warn_message = warn_message//'providing coordinates?' call CCTK_WARN( 0, warn_message ) endif diff --git a/src/EHFinder_Integrate.F90 b/src/EHFinder_Integrate.F90 index db2a315..9e5257d 100644 --- a/src/EHFinder_Integrate.F90 +++ b/src/EHFinder_Integrate.F90 @@ -93,7 +93,7 @@ subroutine EHFinder_FindSurfaceElement(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??' + warn_message = warn_message//'providing interpolation operators?' call CCTK_WARN( 0, warn_message ) end if @@ -111,7 +111,7 @@ subroutine EHFinder_FindSurfaceElement(CCTK_ARGUMENTS) 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??' + warn_message = warn_message//'providing coordinates?' call CCTK_WARN( 0, warn_message ) endif -- cgit v1.2.3