920 lines
24 KiB
Plaintext
920 lines
24 KiB
Plaintext
|
|
||
|
|
! *** generated by SAPFOR with version 2371 and build date: Nov 19 2024 14:25:24
|
||
|
|
! *** Enabled options ***:
|
||
|
|
! *** shadow optimization
|
||
|
|
! *** save SPF directives
|
||
|
|
! *** maximum shadow width is 10 percent
|
||
|
|
! *** generated by SAPFOR
|
||
|
|
program acrred21
|
||
|
|
|
||
|
|
! TESTING OF THE acrredOSS CLAUSE.
|
||
|
|
! DISTRIBUTED ARRAY A(N,M) IS TO HAVE DIFFERENT
|
||
|
|
! FLOW-DEP-LENGTH ON BOTH SIDES
|
||
|
|
print *, '===START OF acrred21========================'
|
||
|
|
|
||
|
|
! --------------------------------------------------
|
||
|
|
call acrred2101()
|
||
|
|
|
||
|
|
! --------------------------------------------------
|
||
|
|
call acrred2102()
|
||
|
|
|
||
|
|
! --------------------------------------------------
|
||
|
|
call acrred2103()
|
||
|
|
|
||
|
|
! -------------------------------------------------
|
||
|
|
call acrred2104()
|
||
|
|
|
||
|
|
! -------------------------------------------------
|
||
|
|
call acrred2105()
|
||
|
|
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2106()
|
||
|
|
!
|
||
|
|
! --------------------------------------------------
|
||
|
|
! call acrred2107()
|
||
|
|
!
|
||
|
|
! --------------------------------------------------
|
||
|
|
! call acrred2108()
|
||
|
|
!
|
||
|
|
! --------------------------------------------------
|
||
|
|
! call acrred2109()
|
||
|
|
!
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2110()
|
||
|
|
!
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2111()
|
||
|
|
!
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2112()
|
||
|
|
!
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2113()
|
||
|
|
!
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2114()
|
||
|
|
!
|
||
|
|
! -------------------------------------------------
|
||
|
|
! call acrred2115()
|
||
|
|
|
||
|
|
! -------------------------------------------------
|
||
|
|
print *, '=== END OF acrred21 ========================= '
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! ---------------------------------------------acrred2101
|
||
|
|
subroutine acrred2101 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*15 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer :: nloopi,nloopj,isumc,isuma
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2101'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
isumc=0
|
||
|
|
isuma=0
|
||
|
|
do i = 2,n - 1
|
||
|
|
do j = 2,m - 1
|
||
|
|
c(i,j) = c(i + 1,j) + c(i,j + 1) + c(i - 1,j) + c(i,j - 1)
|
||
|
|
isumc=isumc+c(i,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
do j = 2,m - 1
|
||
|
|
do i = 2,n - 1
|
||
|
|
a(i,j) = a(i + 1,j) + a(i,j + 1) + a(i - 1,j) + a(i,j - 1)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
isuma=isuma+a(i,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
if ((nloopi .eq. nl).and.(isuma.eq.isumc)) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! ---------------------------------------------acrred2102
|
||
|
|
subroutine acrred2102 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*15 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer :: nloopi,nloopj,iproda,iprodc
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
|
||
|
|
tname = 'acrred2102'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
iproda=1
|
||
|
|
iprodc=1
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 2,n - 1
|
||
|
|
do j = 2,m - 1
|
||
|
|
c(i,j) = c(i + 1,j)
|
||
|
|
iprodc=iprodc*c(i,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
do j = 2,m - 1
|
||
|
|
do i = 2,n - 1
|
||
|
|
a(i,j) = a(i + 1,j)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
iproda=iproda*a(i,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
if ((nloopi .eq. nl).and.(iproda.eq.iprodc)) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -----------------------------------------acrred2103
|
||
|
|
subroutine acrred2103 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*15 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer imaxc,imaxa
|
||
|
|
intrinsic max
|
||
|
|
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2103'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
imaxc=c(1,1)
|
||
|
|
|
||
|
|
do i = 2,n - 1
|
||
|
|
do j = 2,m - 1
|
||
|
|
c(i,j) = c(i - 1,j) + c(i,j + 1)
|
||
|
|
imaxc=MAX(c(i,j),imaxc)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
imaxa=a(1,1)
|
||
|
|
|
||
|
|
|
||
|
|
do j = 2,m - 1
|
||
|
|
do i = 2,n - 1
|
||
|
|
a(i,j) = a(i - 1,j) + a(i,j + 1)
|
||
|
|
imaxa=MAX(a(i,j),imaxa)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
if (imaxa .eq. imaxc) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! ------------------------------------------acrred2104
|
||
|
|
subroutine acrred2104 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*15 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer iminc,imina
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
|
||
|
|
tname = 'acrred2103'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
iminc=c(1,1)
|
||
|
|
|
||
|
|
do i = 2,n - 1
|
||
|
|
do j = 2,m - 1
|
||
|
|
c(i,j) = c(i - 1,j) + c(i,j + 1)
|
||
|
|
iminc=MIN(c(i,j),iminc)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
imina=a(1,1)
|
||
|
|
|
||
|
|
|
||
|
|
do j = 2,m - 1
|
||
|
|
do i = 2,n - 1
|
||
|
|
a(i,j) = a(i - 1,j) + a(i,j + 1)
|
||
|
|
imina=MIN(a(i,j),imina)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
if (imina .eq. iminc) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! ------------------------------------------acrred2105
|
||
|
|
subroutine acrred2105 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*15 :: tname
|
||
|
|
integer :: coorc(2), coora(2), imaxc,imaxa,nnl
|
||
|
|
|
||
|
|
|
||
|
|
! DVM$ SHADOW A( 0:1,1:1 )
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2105'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
|
||
|
|
nnl=nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
imaxc = c(1,1)
|
||
|
|
lcoor = 2
|
||
|
|
coorc(1) = 1
|
||
|
|
coorc(2) = 1
|
||
|
|
do i = 2,n - 1
|
||
|
|
do j = 2,m - 1
|
||
|
|
c(i,j) = c(i,j - 1) + c(i + 1,j)
|
||
|
|
if (c(i,j) .gt. imaxc) then
|
||
|
|
|
||
|
|
imaxc=c(i,j)
|
||
|
|
coorc(1) = i
|
||
|
|
coorc(2) = j
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(0:1,1:0))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
imaxa = a(1,1)
|
||
|
|
lcoor = 2
|
||
|
|
coora(1) = 1
|
||
|
|
coora(2) = 1
|
||
|
|
!$SPF ANALYSIS(REDUCTION(MAXLOC(imaxa,coora,2)))
|
||
|
|
do i = 2,n - 1
|
||
|
|
do j = 2,m - 1
|
||
|
|
a(i,j) = a(i,j - 1) + a(i + 1,j)
|
||
|
|
if (a(i,j) .gt. imaxa) then
|
||
|
|
imaxa=a(i,j)
|
||
|
|
coora(1) = i
|
||
|
|
coora(2) = j
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
print *,imaxc,imaxa, coorc(1), coorc(2), coora(1), coora(2)
|
||
|
|
if (imaxc .eq. imaxa.and.coora(1) .eq. coorc(1).and.
|
||
|
|
* coorc(2) .eq. coora(2) ) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -------------------------------------------acrred2106
|
||
|
|
subroutine acrred2106 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*7 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (2:2,2:2):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2106'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 3,n - 2
|
||
|
|
do j = 3,m - 2
|
||
|
|
c(i,j) = c(i + 2,j) + c(i,j + 2) + c(i + 2,j) + c(i - 2,j) +
|
||
|
|
& c(i,j - 2)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(2:2,2:2))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 3,m - 2
|
||
|
|
do i = 3,n - 2
|
||
|
|
a(i,j) = a(i + 2,j) + a(i,j + 2) + a(i + 2,j) + a(i - 2,j) +
|
||
|
|
& a(i,j - 2)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -------------------------------------------acrred2107
|
||
|
|
subroutine acrred2107 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*7 :: tname
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (2:2,2:2):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2107'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 3,n - 2
|
||
|
|
do j = 3,m - 2
|
||
|
|
c(i,j) = c(i + 2,j) + c(i,j + 2) + c(i,j - 2)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(0:2,2:2))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 3,m - 2
|
||
|
|
do i = 3,n - 2
|
||
|
|
a(i,j) = a(i + 2,j) + a(i,j + 2) + a(i,j - 2)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -------------------------------------------acrred2108
|
||
|
|
subroutine acrred2108 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*7 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (2:2,2:2):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2108'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 3,n - 2
|
||
|
|
do j = 3,m - 2
|
||
|
|
c(i,j) = c(i - 1,j) + c(i,j - 1) + c(i - 2,j) + c(i + 2,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(2:2,2:0))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 3,m - 2
|
||
|
|
do i = 3,n - 2
|
||
|
|
a(i,j) = a(i - 1,j) + a(i,j - 1) + a(i - 2,j) + a(i + 2,j)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -------------------------------------------acrred2109
|
||
|
|
subroutine acrred2109 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*7 :: tname
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (2:2,0:2):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2109'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 3,n - 2
|
||
|
|
do j = 3,m - 2
|
||
|
|
c(i,j) = c(i,j + 2) + c(i + 1,j) + c(i + 2,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(2:2,0:2))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 3,m - 2
|
||
|
|
do i = 3,n - 2
|
||
|
|
a(i,j) = a(i,j + 2) + a(i + 1,j) + a(i + 2,j)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -------------------------------------------acrred2110
|
||
|
|
subroutine acrred2110 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*7 :: tname
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (3:3,3:3):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2110'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 4,n - 3
|
||
|
|
do j = 4,m - 3
|
||
|
|
c(i,j) = c(i + 1,j) + c(i,j + 2) + c(i + 3,j) + c(i,j - 3) +
|
||
|
|
& c(i - 2,j) + c(i,j - 1)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(3:3,3:3))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 4,m - 3
|
||
|
|
do i = 4,n - 3
|
||
|
|
a(i,j) = a(i + 1,j) + a(i,j + 2) + a(i + 3,j) + a(i,j - 3) +
|
||
|
|
& a(i - 2,j) + a(i,j - 1)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -------------------------------------------acrred2111
|
||
|
|
subroutine acrred2111 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*7 :: tname
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (3:3,0:3):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2111'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 3,n - 2
|
||
|
|
do j = 3,m - 2
|
||
|
|
c(i,j) = c(i,j) + c(i,j + 1)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(0:0,0:1))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 3,m - 2
|
||
|
|
do i = 3,n - 2
|
||
|
|
a(i,j) = a(i,j) + a(i,j + 1)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! --------------------------------------------acrred2112
|
||
|
|
subroutine acrred2112 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
character*7 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (0:3,3:3):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2112'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 3,n - 2
|
||
|
|
do j = 3,m - 2
|
||
|
|
c(i,j) = c(i,j) + c(i + 1,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(0:1,0:0))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 3,m - 2
|
||
|
|
do i = 3,n - 2
|
||
|
|
a(i,j) = a(i,j) + a(i + 1,j)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! --------------------------------------------acrred2113
|
||
|
|
subroutine acrred2113 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*7 :: tname
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (3:3,3:0):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2113'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 4,n - 3
|
||
|
|
do j = 4,m - 3
|
||
|
|
c(i,j) = c(i,j - 3) + c(i + 3,j) + c(i - 3,j)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(3:3,3:0))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 4,m - 3
|
||
|
|
do i = 4,n - 3
|
||
|
|
a(i,j) = a(i,j - 3) + a(i + 3,j) + a(i - 3,j)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! --------------------------------------------acrred2114
|
||
|
|
subroutine acrred2114 ()
|
||
|
|
integer ,parameter:: n = 16,m = 16,nl = 1000
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
character*7 :: tname
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (3:0,3:3):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2114'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 4,n - 3
|
||
|
|
do j = 4,m - 3
|
||
|
|
c(i,j) = c(i - 3,j) + c(i,j + 3)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(3:0,3:3))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 4,m - 3
|
||
|
|
do i = 4,n - 3
|
||
|
|
a(i,j) = a(i - 3,j) + a(i,j + 3)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! --------------------------------------------acrred2115
|
||
|
|
subroutine acrred2115 ()
|
||
|
|
integer ,parameter:: n = 59,m = 59,nl = 1000
|
||
|
|
character*7 :: tname
|
||
|
|
!$SPF ANALYSIS (PROCESS_PRIVATE (c))
|
||
|
|
integer ,allocatable:: a(:,:),c(:,:)
|
||
|
|
integer :: nloopi,nloopj
|
||
|
|
intrinsic min
|
||
|
|
|
||
|
|
! DVM$ SHADOW (11:11,11:11):: A
|
||
|
|
! DVM$ DISTRIBUTE (BLOCK,BLOCK) :: A
|
||
|
|
tname = 'acrred2115'
|
||
|
|
allocate(a(n,m),c(n,m))
|
||
|
|
nnl = nl
|
||
|
|
call serial2(c,n,m,nnl)
|
||
|
|
do i = 12,n - 11
|
||
|
|
do j = 12,m - 11
|
||
|
|
c(i,j) = c(i + 11,j) + c(i,j + 10) + c(i + 9,j) + c(i,j - 11
|
||
|
|
&) + c(i - 10,j) + c(i,j - 9)
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
nloopi = nl
|
||
|
|
nloopj = nl
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J)
|
||
|
|
! DVM$ REGION
|
||
|
|
! DVM$ ACTUAL (NLOOPI,NLOOPJ)
|
||
|
|
do j = 1,m
|
||
|
|
do i = 1,n
|
||
|
|
a(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), acrredOSS (A(11:11,11:11))
|
||
|
|
! DVM$ PARALLEL (J,I) ON A(I,J), REDUCTION (MIN(NLOOPI),MIN(NLOOPJ))
|
||
|
|
do j = 12,m - 11
|
||
|
|
do i = 12,n - 11
|
||
|
|
a(i,j) = a(i + 11,j) + a(i,j + 10) + a(i + 9,j) + a(i,j - 11
|
||
|
|
&) + a(i - 10,j) + a(i,j - 9)
|
||
|
|
if (a(i,j) .ne. c(i,j)) then
|
||
|
|
nloopi = min (nloopi,i)
|
||
|
|
nloopj = min (nloopj,j)
|
||
|
|
endif
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
! DVM$ GET_ACTUAL (NLOOPI)
|
||
|
|
! DVM$ END REGION
|
||
|
|
if (nloopi .eq. nl) then
|
||
|
|
call ansyes(tname)
|
||
|
|
else
|
||
|
|
call ansno(tname)
|
||
|
|
endif
|
||
|
|
deallocate(a,c)
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
! -----------------------------------------------
|
||
|
|
subroutine serial2 (ar, n, m, nl)
|
||
|
|
integer :: ar(n,m)
|
||
|
|
integer :: nl
|
||
|
|
intent(in) m,n,nl
|
||
|
|
intent(out) ar
|
||
|
|
do i = 1,n
|
||
|
|
do j = 1,m
|
||
|
|
ar(i,j) = nl + i + j
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine ansyes (name)
|
||
|
|
character*7 :: name
|
||
|
|
intent(in) name
|
||
|
|
print *, name,' - complete'
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine ansno (name)
|
||
|
|
character*7 :: name
|
||
|
|
intent(in) name
|
||
|
|
print *, name,' - ***error'
|
||
|
|
end
|
||
|
|
|