anchor.diff:  
          !! Rotation Along Row
          CALL StartTimer("Row")
  -       WRITE(*,*) "ROW"
          CALL TransposeSparseMatrix(TargetV, TargetVT)
          CALL ApplyToRows(TargetVT, ABlocks, jdata, threshold)
          CALL StopTimer("Row")
   
          !! Rotation Along Columns
          CALL StartTimer("Column")
  -       WRITE(*,*) "COL"
          CALL ApplyToColumns(TargetV, ABlocks, jdata, threshold)
          CALL ApplyToColumns(TargetV, VBlocks, jdata, threshold)
          CALL StopTimer("Column")
  
positive.code:        row_sizes(2) = ABlocks(ind+1,2)%rows
         col_sizes(1) = ABlocks(ind,1)%columns
         col_sizes(2) = ABlocks(ind+1,2)%columns
         WRITE(*,*) ":::::", row_sizes, ":", col_sizes, "_", TargetV%rows, TargetV%columns
  
         CALL ComposeSparseMatrix(ABlocks(ind:ind+1,1:2), 2, 2, AMat)
         CALL Gemm(TargetV, AMat, TempMat, threshold_in=threshold)
  
negative.code:        & TestSendRecvInnerRequest, TestSendRecvDataRequest
    USE SparseMatrixModule, ONLY : SparseMatrix_t, ComposeSparseMatrix, &
         & ConstructFromTripletList, CopySparseMatrix, DestructSparseMatrix, &
         & MatrixToTripletList, SplitSparseMatrix, TransposeSparseMatrix
    USE SparseMatrixAlgebraModule, ONLY : Gemm, IncrementSparseMatrix, &
         & SparseMatrixNorm
    USE TimerModule, ONLY : StartTimer, StopTimer
  