From 73ee78dcad642cb2ea6544017a5f8e4fdfc5f8c7 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Fri, 11 Jul 2008 16:54:55 -0500 Subject: CarpetTest: Use new internal variable names Use new internal variable names for passing cctk_lsh to Fortran routines. --- Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Carpet/CarpetTest') diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 index 06f7a8fe0..f400d2b43 100644 --- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 +++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 @@ -11,15 +11,15 @@ c -*-Fortran-*- DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS integer i,j,k - print *, "Xgfg ", X0gfg, X1gfg, X2gfg + print *, "Xgfg ", cctk_lsh0, cctk_lsh1, cctk_lsh2 print *, "Xarrg3 ", X0arrg3, X1arrg3, X2arrg3 print *, "Xarrg2 ", X0arrg2, X1arrg2 print *, "Xarrg1 ", X0arrg1 print *, "Xscg" print * - do k=1,X2gfg - do j=1,X1gfg - do i=1,X0gfg + do k=1,cctk_lsh2 + do j=1,cctk_lsh1 + do i=1,cctk_lsh0 gf(i,j,k) = i*10000 + j*100 + k end do end do -- cgit v1.2.3