diff options
author | schnetter <> | 2001-11-02 09:58:00 +0000 |
---|---|---|
committer | schnetter <> | 2001-11-02 09:58:00 +0000 |
commit | b916b52db69826e44a516a452f2c6792275c73d8 (patch) | |
tree | 2aee818b4c8db08e698a971aac0d79c5ce9f50bc /Carpet/CarpetTest | |
parent | a1e2faf58c8ea0160696a73540015b9677bcf7f1 (diff) |
Added a lot of const modifiers for the cGH structure.
darcs-hash:20011102095857-07bb3-fa5851f740861e08b8780059f76c87121cea308e.gz
Diffstat (limited to 'Carpet/CarpetTest')
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 30 |
1 files changed, 15 insertions, 15 deletions
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 |