anchor.diff:  
   !OCL CACHE_SECTOR_SIZE(sectorCacheSize0,sectorCacheSize1)
   !OCL CACHE_SUBSECTOR_ASSIGN(X)
  -      allocate(XV(NDOF))
  -      allocate(YV(NDOF))
   
   !$OMP PARALLEL DEFAULT(NONE) &
   !$OMP&PRIVATE(i,XV,YV,jS,jE,j,k,l,in,threadNum,blockNum,blockIndex) &
  
positive.code: 
      real(kind=kreal) :: START_TIME, END_TIME, Tcomm
      integer(kind=kint) :: i, j, k, l, jS, jE, in
      real(kind=kreal),allocatable :: YV(:), XV(:)
  
      integer(kind=kint) :: N, NP, NDOF, NDOF2
      integer(kind=kint), pointer :: indexL(:), itemL(:), indexU(:), itemU(:)
  
negative.code:           end do 
          enddo
        enddo
  !$OMP END PARALLEL
  
  !OCL END_CACHE_SUBSECTOR
  