anchor.diff:            jE= indexU(i  )
             do j= jS, jE
               in  = itemU(j)
  -            if (in > N) cycle
  +            !COMM_HIDING! if (in > N) cycle
               X1= X(3*in-2)
               X2= X(3*in-1)
               X3= X(3*in  )
  
positive.code:       ! <<< added for turning
  
        START_TIME= HECMW_WTIME()
        call hecmw_update_3_R_async (hecMESH, X, NP, ireq)
        END_TIME= HECMW_WTIME()
        if (present(COMMtime)) COMMtime = COMMtime + END_TIME - START_TIME
  
  
negative.code:     integer(kind=kint) :: N, NP
      integer(kind=kint), pointer :: indexL(:), itemL(:), indexU(:), itemU(:)
      real(kind=kreal), pointer :: AL(:), AU(:), D(:)
      !COMM_HIDING! integer(kind=kint) :: ireq
  
      ! added for turning >>>
      integer, parameter :: numOfBlockPerThread = 100
  