From b916b52db69826e44a516a452f2c6792275c73d8 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Fri, 2 Nov 2001 09:58:00 +0000
Subject: Added a lot of const modifiers for the cGH structure.

darcs-hash:20011102095857-07bb3-fa5851f740861e08b8780059f76c87121cea308e.gz
---
 .../CarpetTest/src/carpettest_check_arguments.F77  | 30 +++++++++++-----------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'Carpet/CarpetTest')

diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
index 9a3a08351..e4b0379fa 100644
--- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77
+++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.3 2001/07/09 09:00:27 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_check_arguments.F77,v 1.4 2001/11/02 10:59:02 schnetter Exp $
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
@@ -10,32 +10,32 @@ c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetTest/src/carpettest_c
       DECLARE_CCTK_ARGUMENTS
       DECLARE_CCTK_PARAMETERS
       integer i,j,k
-      print *, "gfg ", gfg0, gfg1, gfg2
-      print *, "arrg3 ", arrg30, arrg31, arrg32
-      print *, "arrg2 ", arrg20, arrg21
-      print *, "arrg1 ", arrg10
-      print *, "scg"
+      print *, "Xgfg ", Xgfg0, Xgfg1, Xgfg2
+      print *, "Xarrg3 ", Xarrg30, Xarrg31, Xarrg32
+      print *, "Xarrg2 ", Xarrg20, Xarrg21
+      print *, "Xarrg1 ", Xarrg10
+      print *, "Xscg"
       print *
-      do k=1,gfg2
-         do j=1,gfg1
-            do i=1,gfg0
+      do k=1,XGfg2
+         do j=1,XGfg1
+            do i=1,XGfg0
                gf(i,j,k) = i*10000 + j*100 + k
             end do
          end do
       end do
-      do k=1,arrg32
-         do j=1,arrg31
-            do i=1,arrg30
+      do k=1,XArrg32
+         do j=1,XArrg31
+            do i=1,XArrg30
                arr3(i,j,k) = i*10000 + j*100 + k
             end do
          end do
       end do
-      do j=1,arrg21
-         do i=1,arrg20
+      do j=1,Xarrg21
+         do i=1,Xarrg20
             arr2(i,j) = i*100 + j
          end do
       end do
-      do i=1,arrg10
+      do i=1,Xarrg10
          arr1(i) = i
       end do
       sc = 42
-- 
cgit v1.2.3