From 61bd55cb591fab224f7d125bfc3d4ca9ba0b54ce Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 3 Aug 2004 21:09:59 +0000 Subject: 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 --- src/EHFinder_ReadData.F90 | 24 ++++++++++++------------ 1 file 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. -- cgit v1.2.3