! *** generated by SAPFOR with version 2373 and build date: Nov 22 2024 12:15:43
! *** Enabled options ***:
! *** shadow optimization
! *** save SPF directives
! *** MPI program regime (shared memory parallelization)
! *** ignore I/O checker for arrays (DVM I/O limitations)
! *** maximum shadow width is 100 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*10 ::  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
!DVM$ REGION 
!DVM$ PARALLEL (i,j), PRIVATE (i,j),TIE (c(i,j)),ACROSS (c(1:1,1:1)),RED
!DVM$&UCTION (sum (isumc))
      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  
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j))
      do  j = 1,m
         do  i = 1,n
            a(i,j) = nl + i + j
         enddo  
      enddo  
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j),c(i,j)),ACROSS (a(1:1,1:
!DVM$&1)),REDUCTION (min (nloopi),min (nloopj),sum (isuma))
      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  
!DVM$ END REGION
      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*10 ::  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)
!DVM$ REGION 
!DVM$ PARALLEL (i,j), PRIVATE (i,j),TIE (c(i,j)),ACROSS (c(0:1,0:0)),RED
!DVM$&UCTION (product (iprodc))
      do  i = 2,n - 1
         do  j = 2,m - 1
            c(i,j) = c(i + 1,j)
            iprodc = iprodc * c(i,j)
         enddo  
      enddo  
!DVM$ END REGION
      nloopi = nl
      nloopj = nl
!DVM$ REGION 
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j))
      do  j = 1,m
         do  i = 1,n
            a(i,j) = nl + i + j
         enddo  
      enddo  
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j),c(i,j)),ACROSS (a(0:1,0:
!DVM$&0)),REDUCTION (min (nloopi),min (nloopj),product (iproda))
      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  
!DVM$ END REGION
      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*10 ::  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)
!DVM$ GET_ACTUAL (c)
      imaxc = c(1,1)
!DVM$ REGION 
!DVM$ PARALLEL (i,j), PRIVATE (i,j),TIE (c(i,j)),ACROSS (c(1:0,0:1)),RED
!DVM$&UCTION (max (imaxc))
      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  
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j))
      do  j = 1,m
         do  i = 1,n
            a(i,j) = nl + i + j
         enddo  
      enddo  
!DVM$ END REGION
!DVM$ GET_ACTUAL (a)
      imaxa = a(1,1)
!DVM$ REGION 
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j)),ACROSS (a(1:0,0:1)),RED
!DVM$&UCTION (max (imaxa))
      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  
!DVM$ END REGION
      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*10 ::  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)
!DVM$ GET_ACTUAL (c)
      iminc = c(1,1)
!DVM$ REGION 
!DVM$ PARALLEL (i,j), PRIVATE (i,j),TIE (c(i,j)),ACROSS (c(1:0,0:1)),RED
!DVM$&UCTION (min (iminc))
      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  
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j))
      do  j = 1,m
         do  i = 1,n
            a(i,j) = nl + i + j
         enddo  
      enddo  
!DVM$ END REGION
!DVM$ GET_ACTUAL (a)
      imina = a(1,1)
!DVM$ REGION 
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j)),ACROSS (a(1:0,0:1)),RED
!DVM$&UCTION (min (imina))
      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  
!DVM$ END REGION
      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*7 ::  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)  
!DVM$ REGION 
!DVM$ PARALLEL (j,i), PRIVATE (i,j),TIE (a(i,j))
      do  j = 1,m
         do  i = 1,n
            a(i,j) = nl + i + j
         enddo  
      enddo  
!DVM$ END REGION

! 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))  
!DVM$ GET_ACTUAL (a)
      imaxa = a(1,1)
      lcoor = 2
      coora(1) = 1
!DVM$ ACTUAL (coora(1))
      coora(2) = 1
!DVM$ ACTUAL (coora(2))
!DVM$ REGION 
!DVM$ PARALLEL (i,j), PRIVATE (i,j),TIE (a(i,j)),ACROSS (a(0:1,1:0)),RED
!DVM$&UCTION (maxloc (imaxa,coora,2))
!$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$ END REGION

! DVM$ GET_ACTUAL (NLOOPI)  
! DVM$ END REGION
!DVM$ GET_ACTUAL (coora)
      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