refactor: flags in benchmarks

Author: IgorErin

benchmarks/GraphBLAS-sharp.Benchmarks/BenchmarksEWiseAdd.fs

@@ -13,6 +13,7 @@ open GraphBLAS.FSharp.Backend.Matrix.COO
 open GraphBLAS.FSharp.Backend.Matrix.CSR
 open GraphBLAS.FSharp.Objects.Matrix
 open GraphBLAS.FSharp.Benchmarks.MatrixExtensions
+open GraphBLAS.FSharp.Backend.Objects.ClContext
 
 type Config() =
     inherit ManualConfig()
@@ -224,7 +225,7 @@ module M =
 type EWiseAddBenchmarks4Float32COOWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.COO<float32>,float32>(
-        (fun context wgSize -> COOMatrix.elementwise context ArithmeticOperations.float32Sum wgSize),
+        (fun context wgSize -> COOMatrix.elementwise context ArithmeticOperations.float32Sum wgSize CPUInterop),
         float32,
         (fun _ -> Utils.nextSingle (System.Random())),
         Matrix.ToBackendCOO
@@ -236,7 +237,7 @@ type EWiseAddBenchmarks4Float32COOWithoutDataTransfer() =
 type EWiseAddBenchmarks4Float32COOWithDataTransfer() =
 
     inherit EWiseAddBenchmarksWithDataTransfer<ClMatrix.COO<float32>,float32>(
-        (fun context wgSize -> COOMatrix.elementwise context ArithmeticOperations.float32Sum wgSize),
+        (fun context wgSize -> COOMatrix.elementwise context ArithmeticOperations.float32Sum wgSize CPUInterop),
         float32,
         (fun _ -> Utils.nextSingle (System.Random())),
         Matrix.ToBackendCOO<float32>,
@@ -250,7 +251,7 @@ type EWiseAddBenchmarks4Float32COOWithDataTransfer() =
 type EWiseAddBenchmarks4BoolCOOWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.COO<bool>,bool>(
-        (fun context wgSize -> COOMatrix.elementwise context ArithmeticOperations.boolSum wgSize),
+        (fun context wgSize -> COOMatrix.elementwise context ArithmeticOperations.boolSum wgSize CPUInterop),
         (fun _ -> true),
         (fun _ -> true),
         Matrix.ToBackendCOO<bool>
@@ -263,7 +264,7 @@ type EWiseAddBenchmarks4BoolCOOWithoutDataTransfer() =
 type EWiseAddBenchmarks4Float32CSRWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.CSR<float32>,float32>(
-        (fun context wgSize -> CSRMatrix.elementwise context ArithmeticOperations.float32Sum wgSize),
+        (fun context wgSize -> CSRMatrix.elementwise context ArithmeticOperations.float32Sum wgSize CPUInterop),
         float32,
         (fun _ -> Utils.nextSingle (System.Random())),
         Matrix.ToBackendCSR
@@ -276,7 +277,7 @@ type EWiseAddBenchmarks4Float32CSRWithoutDataTransfer() =
 type EWiseAddBenchmarks4BoolCSRWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.CSR<bool>,bool>(
-        (fun context wgSize -> CSRMatrix.elementwise context ArithmeticOperations.boolSum wgSize),
+        (fun context wgSize -> CSRMatrix.elementwise context ArithmeticOperations.boolSum wgSize CPUInterop),
         (fun _ -> true),
         (fun _ -> true),
         Matrix.ToBackendCSR
@@ -290,7 +291,7 @@ type EWiseAddBenchmarks4BoolCSRWithoutDataTransfer() =
 type EWiseAddAtLeastOneBenchmarks4BoolCOOWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.COO<bool>,bool>(
-        (fun context wgSize -> COOMatrix.elementwiseAtLeastOne context ArithmeticOperations.boolSumAtLeastOne wgSize),
+        (fun context wgSize -> COOMatrix.elementwiseAtLeastOne context ArithmeticOperations.boolSumAtLeastOne wgSize CPUInterop),
         (fun _ -> true),
         (fun _ -> true),
         Matrix.ToBackendCOO<bool>
@@ -302,7 +303,7 @@ type EWiseAddAtLeastOneBenchmarks4BoolCOOWithoutDataTransfer() =
 type EWiseAddAtLeastOneBenchmarks4BoolCSRWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.CSR<bool>,bool>(
-        (fun context wgSize -> CSRMatrix.elementwiseAtLeastOne context ArithmeticOperations.boolSumAtLeastOne wgSize),
+        (fun context wgSize -> CSRMatrix.elementwiseAtLeastOne context ArithmeticOperations.boolSumAtLeastOne wgSize CPUInterop),
         (fun _ -> true),
         (fun _ -> true),
         Matrix.ToBackendCSR
@@ -314,7 +315,7 @@ type EWiseAddAtLeastOneBenchmarks4BoolCSRWithoutDataTransfer() =
 type EWiseAddAtLeastOneBenchmarks4Float32COOWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.COO<float32>,float32>(
-        (fun context wgSize -> COOMatrix.elementwiseAtLeastOne context ArithmeticOperations.float32SumAtLeastOne wgSize),
+        (fun context wgSize -> COOMatrix.elementwiseAtLeastOne context ArithmeticOperations.float32SumAtLeastOne wgSize CPUInterop),
         float32,
         (fun _ -> Utils.nextSingle (System.Random())),
         Matrix.ToBackendCOO<float32>
@@ -326,7 +327,7 @@ type EWiseAddAtLeastOneBenchmarks4Float32COOWithoutDataTransfer() =
 type EWiseAddAtLeastOneBenchmarks4Float32CSRWithoutDataTransfer() =
 
     inherit EWiseAddBenchmarksWithoutDataTransfer<ClMatrix.CSR<float32>,float32>(
-        (fun context wgSize -> CSRMatrix.elementwiseAtLeastOne context ArithmeticOperations.float32SumAtLeastOne wgSize),
+        (fun context wgSize -> CSRMatrix.elementwiseAtLeastOne context ArithmeticOperations.float32SumAtLeastOne wgSize CPUInterop),
         float32,
         (fun _ -> Utils.nextSingle (System.Random())),
         Matrix.ToBackendCSR<float32>

benchmarks/GraphBLAS-sharp.Benchmarks/BenchmarksMxm.fs

@@ -8,6 +8,7 @@ open GraphBLAS.FSharp.Objects
 open GraphBLAS.FSharp.Backend.Objects
 open GraphBLAS.FSharp.Backend.Matrix
 open GraphBLAS.FSharp.Benchmarks.MatrixExtensions
+open GraphBLAS.FSharp.Backend.Objects.ClContext
 
 [<AbstractClass>]
 [<IterationCount(100)>]
@@ -74,15 +75,15 @@ type MxmBenchmarks<'elem when 'elem : struct>(
     member this.FunCSR2CSC =
         match funCSR2CSC with
         | None ->
-            let x = Matrix.toCSCInplace this.OclContext this.WorkGroupSize
+            let x = Matrix.toCSCInplace this.OclContext this.WorkGroupSize CPUInterop
             funCSR2CSC <- Some x
             x
         | Some x -> x
 
     member this.FunCSC2CSR =
         match funCSC2CSR with
         | None ->
-            let x = Matrix.toCSRInplace this.OclContext this.WorkGroupSize
+            let x = Matrix.toCSRInplace this.OclContext this.WorkGroupSize CPUInterop
             funCSC2CSR <- Some x
             x
         | Some x -> x