From 5c4a2df0af4927748a8fa062a53f6dfb9bcf2fdf Mon Sep 17 00:00:00 2001 From: schnetter Date: Fri, 20 May 2005 21:45:02 +0000 Subject: Use "character(max_string_length)" instead of "character*max_string_length", which is not legal Fortran. (The syntax "character*(max_string_length)" would also be legal, but is deprecated.) git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@70 0a4070d5-58f5-498f-b6c0-2693e757fa0f --- src/IDAxiBrillBH.F | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/IDAxiBrillBH.F b/src/IDAxiBrillBH.F index 7637776..9e15dab 100644 --- a/src/IDAxiBrillBH.F +++ b/src/IDAxiBrillBH.F @@ -69,13 +69,13 @@ c@@*/ integer, parameter :: max_string_length = 500 - integer param_table_handle, interp_handle - character*max_string_length :: message_buffer + integer param_table_handle, interp_handle + character(max_string_length) :: message_buffer - integer fstring_length - character*max_string_length :: interpolator_name_fstring - character*max_string_length :: interpolator_pars_fstring - character*max_string_length :: output_psi2D_file_name_fstring + integer fstring_length + character(max_string_length) :: interpolator_name_fstring + character(max_string_length) :: interpolator_pars_fstring + character(max_string_length) :: output_psi2D_file_name_fstring CCTK_REAL, dimension(2) :: coord_origin, coord_delta CCTK_POINTER, dimension(2) :: interp_coords -- cgit v1.2.3