aboutsummaryrefslogtreecommitdiff
path: root/Carpet/CarpetTest/src/carpettest_check_arguments.F77
diff options
context:
space:
mode:
authorRoland Haas <rhaas@tapir.caltech.edu>2013-09-27 18:32:33 -0700
committerRoland Haas <rhaas@tapir.caltech.edu>2013-09-27 19:18:59 -0700
commit326c42c490629de1c8de3c59b6c62e1e831757b1 (patch)
treed84abe663449f3d66d3b69a9e07fc372056e7e75 /Carpet/CarpetTest/src/carpettest_check_arguments.F77
parent0f3d4fb290766ee35cb39f7f3ce78c09d505010f (diff)
CarpetTest: add no_split_in_directions tag
regenerate data for 2 processes, disable slabtest by default
Diffstat (limited to 'Carpet/CarpetTest/src/carpettest_check_arguments.F77')
-rw-r--r--Carpet/CarpetTest/src/carpettest_check_arguments.F7712
1 files changed, 6 insertions, 6 deletions
diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
index ee1263ebc..89332e16b 100644
--- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77
+++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
@@ -24,19 +24,19 @@ c -*-Fortran-*-
end do
end do
end do
- do k=1,i5
- do j=1,i4
- do i=1,i3
+ do k=1,SIZE(arr3,3)
+ do j=1,SIZE(arr3,2)
+ do i=1,SIZE(arr3,1)
arr3(i,j,k) = i*10000 + j*100 + k
end do
end do
end do
- do j=1,i7
- do i=1,i6
+ do j=1,SIZE(arr2,2)
+ do i=1,SIZE(arr2,1)
arr2(i,j) = i*100 + j
end do
end do
- do i=1,i8
+ do i=1,SIZE(arr1,1)
arr1(i) = i
end do
sc = 42