diff options
author | Roland Haas <rhaas@tapir.caltech.edu> | 2013-09-27 18:32:33 -0700 |
---|---|---|
committer | Roland Haas <rhaas@tapir.caltech.edu> | 2013-09-27 19:18:59 -0700 |
commit | 326c42c490629de1c8de3c59b6c62e1e831757b1 (patch) | |
tree | d84abe663449f3d66d3b69a9e07fc372056e7e75 /Carpet/CarpetTest/src/carpettest_check_arguments.F77 | |
parent | 0f3d4fb290766ee35cb39f7f3ce78c09d505010f (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.F77 | 12 |
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 |