diff options
author | Thomas Radke <tradke@aei.mpg.de> | 2005-09-26 11:47:00 +0000 |
---|---|---|
committer | Thomas Radke <tradke@aei.mpg.de> | 2005-09-26 11:47:00 +0000 |
commit | 5ec2fa35cd9a9f40b439ba152c9b31388e6835e7 (patch) | |
tree | 6ab5806b03b4845afb4daec52bda40088cad2841 /Carpet/CarpetTest | |
parent | 5b94bf377e8003537459425d2b232ddd3c369634 (diff) |
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
Diffstat (limited to 'Carpet/CarpetTest')
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 26 |
1 files changed, 13 insertions, 13 deletions
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 |