diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-09-30 09:45:54 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-09-30 09:45:54 +0000 |
| commit | 5ef97de48d80105c78ecdaa97c09226fa38ad1f0 (patch) | |
| tree | 035808e8cf913cf2b1acfa7e98effde39de7b2bf /src | |
| parent | a4e40fd09ef88a0744bd366fbe0a007901046a53 (diff) | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/EHFinder_FindSurface.F90 | 4 | ||||
| -rw-r--r-- | src/EHFinder_Generator_Sources.F90 | 4 | ||||
| -rw-r--r-- | src/EHFinder_Generator_Sources2.F90 | 4 | ||||
| -rw-r--r-- | 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 |