Merge branch 'kirillgarbar-net5' into net5

Author: gsvgit

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

@@ -412,9 +412,6 @@ module COOMatrix =
 
         let expandSparseNnzPerRow = ClArray.setPositions clContext
 
-        let rowPointersAndTotalSum =
-            ClArray.prefixSumExclude clContext workGroupSize
-
         fun (processor: MailboxProcessor<_>) (rowIndices: ClArray<int>) ->
 
             let nnz = rowIndices.Length
@@ -427,7 +424,10 @@ module COOMatrix =
             let positions, totalSum = posAndTotalSum processor bitmap
 
             let hostTotalSum = [| 0 |]
-            processor.Post(Msg.CreateToHostMsg(totalSum, hostTotalSum))
+
+            let _ =
+                processor.PostAndReply(fun ch -> Msg.CreateToHostMsg(totalSum, hostTotalSum, ch))
+
             let totalSum = hostTotalSum.[0]
 
             let ndRangeCNPRS =
@@ -465,7 +465,7 @@ module COOMatrix =
                 expandSparseNnzPerRow processor workGroupSize nnzPerRowSparse nonZeroRowsIndices totalSum
 
             let rowPointers, _ =
-                rowPointersAndTotalSum processor expandedNnzPerRow
+                posAndTotalSum processor expandedNnzPerRow
 
             rowPointers
 

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

@@ -61,7 +61,7 @@ module CSRMatrix =
 
         let toCSR = COOMatrix.toCSR clContext workGroupSize
 
-        fun (processor: MailboxProcessor<_>) workGroupSize (m1: CSRMatrix<'a>) (m2: CSRMatrix<'a>) ->
+        fun (processor: MailboxProcessor<_>) (m1: CSRMatrix<'a>) (m2: CSRMatrix<'a>) ->
 
             let m1COO = toCOO processor workGroupSize m1
             let m2COO = toCOO processor workGroupSize m2