From 5ec2fa35cd9a9f40b439ba152c9b31388e6835e7 Mon Sep 17 00:00:00 2001
From: Thomas Radke <tradke@aei.mpg.de>
Date: Mon, 26 Sep 2005 11:47:00 +0000
Subject: CarpetTest: fix names for grid array sizes

The (internal) variable names as passed in CCTK_ARGUMENTS to specify CCTK
array grid sizes have changed recently.
This patch fixes carpettest_check_arguments.F77 to follow the new naming scheme.

darcs-hash:20050926114726-776a0-5ecc42489aabdc6a3324e0829f7a0f46a44e0021.gz
---
 .../CarpetTest/src/carpettest_check_arguments.F77  | 26 +++++++++++-----------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'Carpet/CarpetTest')

diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
index 2b87870f0..06f7a8fe0 100644
--- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77
+++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
@@ -11,32 +11,32 @@ c     -*-Fortran-*-
       DECLARE_CCTK_FUNCTIONS
       DECLARE_CCTK_PARAMETERS
       integer i,j,k
-      print *, "Xgfg ", Xgfg0, Xgfg1, Xgfg2
-      print *, "Xarrg3 ", Xarrg30, Xarrg31, Xarrg32
-      print *, "Xarrg2 ", Xarrg20, Xarrg21
-      print *, "Xarrg1 ", Xarrg10
+      print *, "Xgfg ", X0gfg, X1gfg, X2gfg
+      print *, "Xarrg3 ", X0arrg3, X1arrg3, X2arrg3
+      print *, "Xarrg2 ", X0arrg2, X1arrg2
+      print *, "Xarrg1 ", X0arrg1
       print *, "Xscg"
       print *
-      do k=1,Xgfg2
-         do j=1,Xgfg1
-            do i=1,Xgfg0
+      do k=1,X2gfg
+         do j=1,X1gfg
+            do i=1,X0gfg
                gf(i,j,k) = i*10000 + j*100 + k
             end do
          end do
       end do
-      do k=1,Xarrg32
-         do j=1,Xarrg31
-            do i=1,Xarrg30
+      do k=1,X2arrg3
+         do j=1,X1arrg3
+            do i=1,X0arrg3
                arr3(i,j,k) = i*10000 + j*100 + k
             end do
          end do
       end do
-      do j=1,Xarrg21
-         do i=1,Xarrg20
+      do j=1,X1arrg2
+         do i=1,X0arrg2
             arr2(i,j) = i*100 + j
          end do
       end do
-      do i=1,Xarrg10
+      do i=1,X0arrg1
          arr1(i) = i
       end do
       sc = 42
-- 
cgit v1.2.3