Wrong matrix size and arguments for to COO fixed

Author: kirillgarbar

src/GraphBLAS-sharp.Backend/Matrix/COOMatrix/COOMatrix.fs

@@ -355,8 +355,8 @@ module COOMatrix =
             queue.Post(Msg.CreateFreeMsg<_>(allValues))
 
             { Context = clContext
-              RowCount = resultRows.Length
-              ColumnCount = resultColumns.Length
+              RowCount = matrixLeft.RowCount
+              ColumnCount = matrixLeft.ColumnCount
               Rows = resultRows
               Columns = resultColumns
               Values = resultValues }

src/GraphBLAS-sharp.Backend/Matrix/Matrix.fs

@@ -18,7 +18,7 @@ module Matrix =
         fun (processor: MailboxProcessor<_>) (matrix: Matrix<'a>) ->
             match matrix with
             | MatrixCOO _ -> matrix
-            | MatrixCSR m -> toCOO processor workGroupSize m |> MatrixCOO
+            | MatrixCSR m -> toCOO workGroupSize processor m |> MatrixCOO
 
     let eWiseAdd (clContext: ClContext) (opAdd: Expr<'a -> 'a -> 'a>) workGroupSize =
         let COOeWiseAdd =