diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2009-12-04 21:45:20 -0800 |
---|---|---|
committer | Barry Wardell <barry.wardell@gmail.com> | 2011-12-14 16:45:23 +0000 |
commit | 360079689d077011c921fceaf785f5654921e166 (patch) | |
tree | 8db991f20de7527019ccfecb4c64e17a7ffa50ce /Carpet | |
parent | 57ec32de7dcf704db4c8959e0d966e832e47d293 (diff) |
CarpetTest: Use old-style Cactus internal variables
Use old-style Cactus internal variables to access grid function sizes.
Diffstat (limited to 'Carpet')
-rw-r--r-- | Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77 index f400d2b43..06f7a8fe0 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 ", cctk_lsh0, cctk_lsh1, cctk_lsh2 + print *, "Xgfg ", X0gfg, X1gfg, X2gfg print *, "Xarrg3 ", X0arrg3, X1arrg3, X2arrg3 print *, "Xarrg2 ", X0arrg2, X1arrg2 print *, "Xarrg1 ", X0arrg1 print *, "Xscg" print * - do k=1,cctk_lsh2 - do j=1,cctk_lsh1 - do i=1,cctk_lsh0 + 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 |