PrefixSum -> ClArray

Author: IgorErin

src/GraphBLAS-sharp.Backend/Common/ClArray.fs

@@ -15,7 +15,6 @@
     <Compile Include="Common/Utils.fs" />
     <Compile Include="Common/Sum.fs" />
     <Compile Include="Common\ClArray.fs" />
-    <Compile Include="Common\PrefixSum.fs" />
     <Compile Include="Common/BitonicSort.fs" />
     <Compile Include="Common/Scatter.fs" />
     <Compile Include="Common/StandardOperations.fs" />
@@ -33,7 +32,6 @@
     <Compile Include="Matrix/CSRMatrix/CSRMatrix.fs" />
     <Compile Include="Matrix/CSRMatrix/SpMV.fs" />
     <Compile Include="Matrix/Matrix.fs" />
-    <Folder Include="Vector" />
     <!--Compile Include="Backend/CSRMatrix/GetTuples.fs" /-->
     <!--Compile Include="Backend/CSRMatrix/SpMSpV.fs" /-->
     <!--Compile Include="Backend/CSRMatrix/Transpose.fs" /-->

src/GraphBLAS-sharp.Backend/Common/PrefixSum.fs

@@ -3,6 +3,7 @@ namespace GraphBLAS.FSharp.Backend
 open Brahma.FSharp
 open GraphBLAS.FSharp.Backend
 open GraphBLAS.FSharp.Backend.Common
+open GraphBLAS.FSharp.Backend.Predefined
 open Microsoft.FSharp.Quotations
 
 module COOMatrix =
@@ -14,8 +15,7 @@ module COOMatrix =
 
         let valuesScatter = Scatter.runInplace clContext workGroupSize
 
-        let sum =
-            GraphBLAS.FSharp.Backend.ClArray.prefixSumExcludeInplace clContext workGroupSize
+        let sum = PrefixSum.standardExcludeInplace clContext workGroupSize
 
         let resultLength = Array.zeroCreate 1
 
@@ -430,7 +430,7 @@ module COOMatrix =
         let create = ClArray.create clContext workGroupSize
 
         let scan =
-            PrefixSum.runBackwardsIncludeInplace <@ min @> clContext workGroupSize
+            ClArray.prefixSumBackwardsIncludeInplace <@ min @> clContext workGroupSize
 
         fun (processor: MailboxProcessor<_>) (rowIndices: ClArray<int>) rowCount ->
 

src/GraphBLAS-sharp.Backend/GraphBLAS-sharp.Backend.fsproj

@@ -1,8 +1,8 @@
 namespace GraphBLAS.FSharp.Backend
 
 open Brahma.FSharp
-open GraphBLAS.FSharp.Backend
 open GraphBLAS.FSharp.Backend.Common
+open GraphBLAS.FSharp.Backend
 open GraphBLAS.FSharp.Backend.Elementwise
 open Microsoft.FSharp.Quotations
 
@@ -25,7 +25,7 @@ module CSRMatrix =
         let create = ClArray.create clContext workGroupSize
 
         let scan =
-            PrefixSum.runIncludeInplace <@ max @> clContext workGroupSize
+            ClArray.prefixSumIncludeInplace <@ max @> clContext workGroupSize
 
         fun (processor: MailboxProcessor<_>) (rowPointers: ClArray<int>) nnz rowCount ->
 

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

@@ -5,6 +5,7 @@ open System.Diagnostics.CodeAnalysis
 open Brahma.FSharp
 open GraphBLAS.FSharp.Backend
 open GraphBLAS.FSharp.Backend.Common
+open GraphBLAS.FSharp.Backend.Predefined
 open Microsoft.FSharp.Quotations
 
 module internal Elementwise =
@@ -154,8 +155,7 @@ module internal Elementwise =
 
     let setPositions<'a when 'a: struct> (clContext: ClContext) workGroupSize =
 
-        let sum =
-            GraphBLAS.FSharp.Backend.ClArray.prefixSumExcludeInplace clContext workGroupSize
+        let sum = PrefixSum.standardExcludeInplace clContext workGroupSize
 
         let indicesScatter = Scatter.runInplace clContext workGroupSize
 

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

@@ -2,9 +2,9 @@ namespace GraphBLAS.FSharp.Backend
 
 open GraphBLAS.FSharp.Backend.Common
 open Brahma.FSharp
+open GraphBLAS.FSharp.Backend.Predefined
 open GraphBLAS.FSharp.Backend
 open Microsoft.FSharp.Quotations
-open GraphBLAS.FSharp.Backend.Predefined
 
 module internal SpGEMM =
     let private calculate