File tree Expand file tree Collapse file tree
src/GraphBLAS-sharp.Backend/Matrix
tests/GraphBLAS-sharp.Tests Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -5,8 +5,11 @@ open Microsoft.FSharp.Quotations
55
66module Matrix =
77 let copy ( clContext : ClContext ) =
8- let copy = GraphBLAS.FSharp.Backend.ClArray.copy clContext
9- let copyData = GraphBLAS.FSharp.Backend.ClArray.copy clContext
8+ let copy =
9+ GraphBLAS.FSharp.Backend.ClArray.copy clContext
10+
11+ let copyData =
12+ GraphBLAS.FSharp.Backend.ClArray.copy clContext
1013
1114 fun ( processor : MailboxProcessor < _ >) workGroupSize ( matrix : Matrix < 'a >) ->
1215 match matrix with
@@ -17,8 +20,8 @@ module Matrix =
1720 ColumnCount = m.ColumnCount
1821 Rows = copy processor workGroupSize m.Rows
1922 Columns = copy processor workGroupSize m.Columns
20- Values = copyData processor workGroupSize m.Values
21- }
23+ Values = copyData processor workGroupSize m.Values }
24+
2225 MatrixCOO res
2326 | MatrixCSR m ->
2427 let res =
@@ -27,8 +30,8 @@ module Matrix =
2730 ColumnCount = m.ColumnCount
2831 RowPointers = copy processor workGroupSize m.RowPointers
2932 Columns = copy processor workGroupSize m.Columns
30- Values = copyData processor workGroupSize m.Values
31- }
33+ Values = copyData processor workGroupSize m.Values }
34+
3235 MatrixCSR res
3336
3437 let toCSR ( clContext : ClContext ) workGroupSize =
Original file line number Diff line number Diff line change @@ -429,11 +429,10 @@ module Utils =
429429 type OperationCase =
430430 { ClContext: ClContext
431431 MatrixCase: MatrixFromat }
432-
432+
433433 let testCases =
434434 [ avaliableContexts " " |> Seq.map box
435- listOfUnionCases< MatrixFromat>
436- |> Seq.map box ]
435+ listOfUnionCases< MatrixFromat> |> Seq.map box ]
437436 |> List.map List.ofSeq
438437 |> cartesian
439438 |> List.map
You can’t perform that action at this time.
0 commit comments