anchor.diff:         & TestSendRecvInnerRequest, TestSendRecvDataRequest
     USE SparseMatrixModule, ONLY : SparseMatrix_t, ComposeSparseMatrix, &
          & ConstructFromTripletList, CopySparseMatrix, DestructSparseMatrix, &
  -       & MatrixToTripletList, SplitSparseMatrix, TransposeSparseMatrix, PrintSparseMatrix
  +       & MatrixToTripletList, SplitSparseMatrix, TransposeSparseMatrix
     USE SparseMatrixAlgebraModule, ONLY : Gemm, IncrementSparseMatrix, &
          & SparseMatrixNorm
     USE TimerModule, ONLY : StartTimer, StopTimer
  
positive.code: 
         !! 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")
  
negative.code:        row_sizes(2) = ABlocks(ind+1,2)%rows
         col_sizes(1) = ABlocks(ind,1)%columns
         col_sizes(2) = ABlocks(ind+1,2)%columns
  
         CALL ComposeSparseMatrix(ABlocks(ind:ind+1,1:2), 2, 2, AMat)
         CALL Gemm(TargetV, AMat, TempMat, threshold_in=threshold)
  