Pass accurasy to PR

Author: kirillgarbar

benchmarks/GraphBLAS-sharp.Benchmarks/Algorithms/PageRank.fs

@@ -26,6 +26,8 @@ type Benchmarks(
     let mutable matrixPrepared = Unchecked.defaultof<ClMatrix<float32>>
     let mutable matrixHost = Unchecked.defaultof<_>
 
+    let accuracy = 0.00000001f
+
     member val Result = Unchecked.defaultof<ClVector<float32>> with get,set
 
     [<ParamsSource("AvailableContexts")>]
@@ -65,7 +67,7 @@ type Benchmarks(
         | Some x -> x
 
     member this.PageRank() =
-        this.Result <- this.FunToBenchmark this.Processor matrixPrepared
+        this.Result <- this.FunToBenchmark this.Processor matrixPrepared accuracy
 
     member this.ClearInputMatrix() =
         matrix.Dispose this.Processor

src/GraphBLAS-sharp.Backend/Algorithms/PageRank.fs

@@ -1,4 +1,4 @@
-namespace GraphBLAS.FSharp.Backend.Algorithms
+namespace GraphBLAS.FSharp.Backend.Algorithms
 
 open GraphBLAS.FSharp
 open GraphBLAS.FSharp.Backend
@@ -13,7 +13,6 @@ open GraphBLAS.FSharp.Objects.ClCellExtensions
 
 module internal PageRank =
     let alpha = 0.85f
-    let accuracy = 0.00000001f
 
     let countOutDegree (clContext: ClContext) workGroupSize =
 
@@ -159,7 +158,7 @@ module internal PageRank =
         let create =
             GraphBLAS.FSharp.Vector.create clContext workGroupSize
 
-        fun (queue: MailboxProcessor<Msg>) (matrix: ClMatrix<float32>) ->
+        fun (queue: MailboxProcessor<Msg>) (matrix: ClMatrix<float32>) accuracy ->
 
             let vertexCount = matrix.RowCount