      PROGRAM JAC2D
      PARAMETER (L = 8000,ITMAX = 100)

!DVM$ ALIGN A(IEX1,IEX2) WITH DVMH_TEMP0(IEX1,IEX2)
!DVM$ ALIGN B(IEX1,IEX2) WITH DVMH_TEMP0(IEX1,IEX2)
!DVM$ DYNAMIC A,B
      REAL ::  A(L,L),EPS,MAXEPS,B(L,L)
      DOUBLE PRECISION ::  STARTT,ENDT,DVTIME
!DVM$ TEMPLATE,COMMON:: DVMH_TEMP0(1:8000,1:8000)
!DVM$ DISTRIBUTE (BLOCK,BLOCK) :: DVMH_TEMP0
!DVM$ DYNAMIC DVMH_TEMP0
      B(1,1) = 2.0
!DVM$ ACTUAL (B)
!DVM$ REGION 
!DVM$ PARALLEL (J,I) ON A(I,J), PRIVATE (J,I)
      DO  J = 1,L + EPS
         DO  I = 1,L
            A(I,J) = I * J
         ENDDO  
      ENDDO  
!DVM$ END REGION
!DVM$ GET_ACTUAL (A)
!DVM$ REMOTE_ACCESS (A(1,1))
      B(1,1) = 3.0 + A(1,1)
!DVM$ ACTUAL (B)
      A(1,1) = 10
!DVM$ ACTUAL (A)
      EPS = 15
!DVM$ REGION 
!DVM$ PARALLEL (J,I) ON B(I,J), PRIVATE (J,I)
      DO  J = 1,L
         DO  I = 1,L
            B(I,J) = 0. + A(I,J) + EPS
         ENDDO  
      ENDDO  
!DVM$ END REGION
      MAXEPS = EPS
      END