anchor.diff:        ! <<< added for turning
   
         START_TIME= HECMW_WTIME()
  -      if (async_matvec_flg) then
  -        call hecmw_update_3_R_async (hecMESH, X, NP, ireq)
  -      else
  -        call hecmw_update_3_R (hecMESH, X, NP)
  -      endif
  +      ! if (async_matvec_flg) then
  +      !   call hecmw_update_3_R_async (hecMESH, X, NP, ireq)
  +      ! else
  +      call hecmw_update_3_R (hecMESH, X, NP)
  +      ! endif
         END_TIME= HECMW_WTIME()
         if (present(COMMtime)) COMMtime = COMMtime + END_TIME - START_TIME
   
  
positive.code:   !C
    subroutine hecmw_matvec_33_unset_async
      implicit none
      if (allocated(index_o)) deallocate(index_o)
      if (allocated(item_o)) deallocate(item_o)
      if (allocated(A_o)) deallocate(A_o)
      async_matvec_flg = .false.
    end subroutine hecmw_matvec_33_unset_async
  
    !C
  
negative.code:           jE= indexU(i  )
            do j= jS, jE
              in  = itemU(j)
              ! if (async_matvec_flg .and. in > N) cycle
              X1= X(3*in-2)
              X2= X(3*in-1)
              X3= X(3*in  )
  