Changed [ and ]'s to { and }'s to avoid nasty warning messages:-)

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@182 2a26948c-0e4f-0410-aee8-f1d3e353619c

1 files changed, 12 insertions, 12 deletions

diff --git a/src/EHFinder_ReadData.F90 b/src/EHFinder_ReadData.F90
index 89067d5..e4f0f46 100644
--- a/src/EHFinder_ReadData.F90
+++ b/src/EHFinder_ReadData.F90
@@ -41,12 +41,12 @@ subroutine EHFinder_Read_Metric(CCTK_ARGUMENTS)
 
 ! Fill in the string array, used to requesting the metric components at
 ! the specified iteration number.
-  var_names(1) = 'admbase::gxx[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(2) = 'admbase::gxy[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(3) = 'admbase::gxz[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(4) = 'admbase::gyy[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(5) = 'admbase::gyz[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(6) = 'admbase::gzz[cctk_iteration='//iteration_string(1:nc)//']'
+  var_names(1) = 'admbase::gxx{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(2) = 'admbase::gxy{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(3) = 'admbase::gxz{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(4) = 'admbase::gyy{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(5) = 'admbase::gyz{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(6) = 'admbase::gzz{cctk_iteration='//iteration_string(1:nc)//'}'
 
 ! merge all the variable names into a single string.
   in_vars = ' '
@@ -98,7 +98,7 @@ subroutine EHFinder_Read_Lapse(CCTK_ARGUMENTS)
 
 ! Fill in the string used to requesting the lapse at the specified
 ! iteration number.
-  in_vars = 'admbase::alp[cctk_iteration='//iteration_string(1:nc)//']'
+  in_vars = 'admbase::alp{cctk_iteration='//iteration_string(1:nc)//'}'
 
 ! Call the routine that actualle does the file access. Note failures are
 ! just silently ignored.
@@ -142,9 +142,9 @@ subroutine EHFinder_Read_Shift(CCTK_ARGUMENTS)
 
 ! Fill in the string array, used to requesting the shift components at
 ! the specified iteration number.
-  var_names(1) = 'admbase::betax[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(2) = 'admbase::betay[cctk_iteration='//iteration_string(1:nc)//']'
-  var_names(3) = 'admbase::betaz[cctk_iteration='//iteration_string(1:nc)//']'
+  var_names(1) = 'admbase::betax{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(2) = 'admbase::betay{cctk_iteration='//iteration_string(1:nc)//'}'
+  var_names(3) = 'admbase::betaz{cctk_iteration='//iteration_string(1:nc)//'}'
 
 ! merge all the variable names into a single string.
   in_vars = ' '
@@ -202,7 +202,7 @@ subroutine EHFinder_Read_Conformal(CCTK_ARGUMENTS)
 
 ! Fill in the string array, used to requesting the conformal factor at
 ! the specified iteration number.
-  in_vars = 'staticconformal::psi[cctk_iteration='//iteration_string(1:nc)//']'
+  in_vars = 'staticconformal::psi{cctk_iteration='//iteration_string(1:nc)//'}'
 
 ! Call the routine that actualle does the file access. Note failures are
 ! just silently ignored.
@@ -245,7 +245,7 @@ subroutine EHFinder_Read_Mask(CCTK_ARGUMENTS)
 
 ! Fill in the string array, used to requesting the old style mask at
 ! the specified iteration number.
-  in_vars = 'spacemask::emask[cctk_iteration='//iteration_string(1:nc)//']'
+  in_vars = 'spacemask::emask{cctk_iteration='//iteration_string(1:nc)//'}'
 
 ! Call the routine that actualle does the file access. Note failures are
 ! just silently ignored.