Make old scan obsolete

Author: kirillgarbar

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

@@ -225,6 +225,8 @@ module internal PrefixSumInternal =
     /// </example>
     /// <param name="clContext">ClContext.</param>
     /// <param name="workGroupSize">Should be a power of 2 and greater than 1.</param>
+    [<System.ObsoleteAttribute("This method is deprecated due to bad perfomance. Use method from Scan module instead.",
+                               false)>]
     let standardExcludeInPlace (clContext: ClContext) workGroupSize =
 
         let scan =

src/GraphBLAS-sharp.Backend/Common/Sort/Radix.fs

@@ -156,7 +156,7 @@ module internal Radix =
         let count = count clContext workGroupSize mask
 
         let prefixSum =
-            PrefixSumInternal.standardExcludeInPlace clContext workGroupSize
+            ScanInternal.standardExcludeInPlace clContext workGroupSize
 
         let scatter = scatter clContext workGroupSize mask
 
@@ -259,7 +259,7 @@ module internal Radix =
         let count = count clContext workGroupSize mask
 
         let prefixSum =
-            PrefixSumInternal.standardExcludeInPlace clContext workGroupSize
+            ScanInternal.standardExcludeInPlace clContext workGroupSize
 
         let scatterByKey =
             scatterByKey clContext workGroupSize mask

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

@@ -529,7 +529,7 @@ module Reduce =
                     Scatter.lastOccurrence clContext workGroupSize
 
                 let prefixSum =
-                    PrefixSumInternal.standardExcludeInPlace clContext workGroupSize
+                    ScanInternal.standardExcludeInPlace clContext workGroupSize
 
                 fun (processor: MailboxProcessor<_>) allocationMode (keys: ClArray<int>) (values: ClArray<'a option>) ->
 
@@ -661,7 +661,7 @@ module Reduce =
                     Scatter.lastOccurrence clContext workGroupSize
 
                 let prefixSum =
-                    PrefixSumInternal.standardExcludeInPlace clContext workGroupSize
+                    ScanInternal.standardExcludeInPlace clContext workGroupSize
 
                 fun (processor: MailboxProcessor<_>) allocationMode (resultLength: int) (offsets: ClArray<int>) (keys: ClArray<int>) (values: ClArray<'a>) ->
 
@@ -940,7 +940,7 @@ module Reduce =
                     Scatter.lastOccurrence clContext workGroupSize
 
                 let prefixSum =
-                    PrefixSumInternal.standardExcludeInPlace clContext workGroupSize
+                    ScanInternal.standardExcludeInPlace clContext workGroupSize
 
                 fun (processor: MailboxProcessor<_>) allocationMode (resultLength: int) (offsets: ClArray<int>) (firstKeys: ClArray<int>) (secondKeys: ClArray<int>) (values: ClArray<'a>) ->
 

src/GraphBLAS-sharp.Backend/Operations/SpMSpV.fs

@@ -65,7 +65,7 @@ module SpMSpV =
                     inputArray.[i] <- 0 @>
 
         let sum =
-            PrefixSumInternal.standardExcludeInPlace clContext workGroupSize
+            ScanInternal.standardExcludeInPlace clContext workGroupSize
 
         let prepareOffsets = clContext.Compile prepareOffsets