From 326c42c490629de1c8de3c59b6c62e1e831757b1 Mon Sep 17 00:00:00 2001 From: Roland Haas Date: Fri, 27 Sep 2013 18:32:33 -0700 Subject: CarpetTest: add no_split_in_directions tag regenerate data for 2 processes, disable slabtest by default --- Carpet/CarpetTest/src/carpettest_check_arguments.F77 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Carpet/CarpetTest/src/carpettest_check_arguments.F77') 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 -- cgit v1.2.3