anchor.diff:  
          CALL StartTimer("Rotate A")
          CALL TransposeDenseMatrix(TargetV, TargetVT)
  -       CALL ApplyToRows(TargetVT, ABlocks, jdata)
  +       CALL ApplyToRows(TargetVT, ABlocks, jdata, RowLeft, RowRight)
          CALL StopTimer("Rotate A")
   
          CALL StartTimer("Gather")
  
positive.code:     INTEGER :: phase
      TYPE(SwapHelper_t) :: swap_a, swap_v
      TYPE(GatherHelper_t) :: gather_helper
  
      !! Loop Over Processors
      DO iteration = 1, jdata%num_processes*2 - 1
  
negative.code: 
         !! Rotate V
         CALL StartTimer("Rotate V")
         CALL ApplyToColumns(VList, VBlocks, jdata, ColLeft, ColRight)
         CALL StopTimer("Rotate V")
  
         CALL StartTimer("Swap")
  