refactor: rename Context.CreateArrayWithFlag

Author: IgorErin

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

@@ -19,7 +19,7 @@ module ClArray =
 
         fun (processor: MailboxProcessor<_>) allocationMode (length: int) ->
             let outputArray =
-                clContext.CreateClArrayWithFlag(allocationMode, length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, length)
 
             let kernel = program.GetKernel()
 
@@ -47,7 +47,7 @@ module ClArray =
             let value = clContext.CreateClCell(value)
 
             let outputArray =
-                clContext.CreateClArrayWithFlag(allocationMode, length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, length)
 
             let kernel = program.GetKernel()
 
@@ -82,7 +82,7 @@ module ClArray =
                 Range1D.CreateValid(inputArray.Length, workGroupSize)
 
             let outputArray =
-                clContext.CreateClArrayWithFlag(allocationMode, inputArray.Length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, inputArray.Length)
 
             let kernel = program.GetKernel()
 
@@ -110,7 +110,7 @@ module ClArray =
             let outputArrayLength = inputArray.Length * count
 
             let outputArray =
-                clContext.CreateClArrayWithFlag(allocationMode, outputArrayLength)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, outputArrayLength)
 
             let ndRange =
                 Range1D.CreateValid(outputArray.Length, workGroupSize)
@@ -227,7 +227,7 @@ module ClArray =
                 Range1D.CreateValid(inputLength, workGroupSize)
 
             let bitmap =
-                clContext.CreateClArrayWithFlag(allocationMode, inputLength)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, inputLength)
 
             let kernel = kernel.GetKernel()
 
@@ -272,7 +272,7 @@ module ClArray =
                 a.[0]
 
             let outputArray =
-                clContext.CreateClArrayWithFlag(DeviceOnly, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode(DeviceOnly, resultLength)
 
             scatter processor positions inputArray outputArray
 
@@ -322,7 +322,7 @@ module ClArray =
         fun (processor: MailboxProcessor<_>) allocationMode (inputArray: ClArray<'a>) ->
 
             let result =
-                clContext.CreateClArrayWithFlag(allocationMode, inputArray.Length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, inputArray.Length)
 
             let ndRange =
                 Range1D.CreateValid(inputArray.Length, workGroupSize)

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

@@ -17,12 +17,12 @@ module Reduce =
                 (inputArray.Length - 1) / workGroupSize + 1
 
             let firstVerticesArray =
-                clContext.CreateClArrayWithFlag(DeviceOnly, firstLength)
+                clContext.CreateClArrayWithSpecificAllocationMode(DeviceOnly, firstLength)
 
             let secondLength = (firstLength - 1) / workGroupSize + 1
 
             let secondVerticesArray =
-                clContext.CreateClArrayWithFlag(DeviceOnly, secondLength)
+                clContext.CreateClArrayWithSpecificAllocationMode(DeviceOnly, secondLength)
 
             let mutable verticesArrays = firstVerticesArray, secondVerticesArray
             let swap (a, b) = (b, a)

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

@@ -58,10 +58,10 @@ module COOMatrix =
                 Range1D.CreateValid(length, workGroupSize)
 
             let rawPositionsGpu =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, length)
 
             let allValues =
-                clContext.CreateClArrayWithFlag<'c>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<'c>(DeviceOnly, length)
 
             let kernel = kernel.GetKernel()
 
@@ -215,19 +215,19 @@ module COOMatrix =
             let sumOfSides = firstSide + secondSide
 
             let allRows =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, sumOfSides)
 
             let allColumns =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, sumOfSides)
 
             let leftMergedValues =
-                clContext.CreateClArrayWithFlag<'a>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<'a>(DeviceOnly, sumOfSides)
 
             let rightMergedValues =
-                clContext.CreateClArrayWithFlag<'b>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<'b>(DeviceOnly, sumOfSides)
 
             let isLeft =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, sumOfSides)
 
             let ndRange =
                 Range1D.CreateValid(sumOfSides, workGroupSize)

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

@@ -45,10 +45,10 @@ module internal Elementwise =
                 Range1D.CreateValid(length, workGroupSize)
 
             let rowPositions =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, length)
 
             let allValues =
-                clContext.CreateClArrayWithFlag<'c>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<'c>(DeviceOnly, length)
 
             let kernel = kernel.GetKernel()
 
@@ -232,22 +232,22 @@ module internal Elementwise =
             let resLength = firstLength + secondLength
 
             let allRows =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, resLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, resLength)
 
             let allColumns =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, resLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, resLength)
 
             let leftMergedValues =
-                clContext.CreateClArrayWithFlag<'a>(DeviceOnly, resLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<'a>(DeviceOnly, resLength)
 
             let rightMergedValues =
-                clContext.CreateClArrayWithFlag<'b>(DeviceOnly, resLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<'b>(DeviceOnly, resLength)
 
             let isEndOfRow =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, resLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, resLength)
 
             let isLeft =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, resLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, resLength)
 
             let ndRange =
                 Range1D.CreateValid((matrixLeftRowPointers.Length - 1) * workGroupSize, workGroupSize)

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

@@ -110,10 +110,10 @@ module internal SpGEMM =
         fun (queue: MailboxProcessor<_>) (matrixLeft: ClMatrix.CSR<'a>) (matrixRight: ClMatrix.CSC<'b>) (mask: ClMask2D) ->
 
             let values =
-                context.CreateClArrayWithFlag<'c>(DeviceOnly, mask.NNZ)
+                context.CreateClArrayWithSpecificAllocationMode<'c>(DeviceOnly, mask.NNZ)
 
             let bitmap =
-                context.CreateClArrayWithFlag<int>(DeviceOnly, mask.NNZ)
+                context.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, mask.NNZ)
 
             let kernel = program.GetKernel()
 

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

@@ -35,14 +35,14 @@ module Common =
                 res.[0]
 
             let resultRows =
-                clContext.CreateClArrayWithFlag<int>(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(allocationMode, resultLength)
 
 
             let resultColumns =
-                clContext.CreateClArrayWithFlag<int>(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(allocationMode, resultLength)
 
             let resultValues =
-                clContext.CreateClArrayWithFlag(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, resultLength)
 
             indicesScatter processor positions allRows resultRows
 

src/GraphBLAS-sharp.Backend/Objects/ClContextExtensions.fs

@@ -8,7 +8,7 @@ module ClContext =
         | HostInterop
 
     type ClContext with
-        member this.CreateClArrayWithFlag(mode, size: int) =
+        member this.CreateClArrayWithSpecificAllocationMode(mode, size: int) =
             match mode with
             | DeviceOnly ->
                 this.CreateClArray(
@@ -25,7 +25,7 @@ module ClContext =
                     allocationMode = AllocationMode.Default
                 )
 
-        member this.CreateClArrayWithFlag(mode, array: 'a []) =
+        member this.CreateClArrayWithSpecificAllocationMode(mode, array: 'a []) =
             match mode with
             | DeviceOnly ->
                 this.CreateClArray(

src/GraphBLAS-sharp.Backend/Vector/DenseVector/DenseVector.fs

@@ -50,7 +50,7 @@ module DenseVector =
 
         fun (processor: MailboxProcessor<_>) allocationMode (leftVector: ClArray<'a option>) (rightVector: ClArray<'b option>) ->
             let resultVector =
-                clContext.CreateClArrayWithFlag(allocationMode, leftVector.Length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, leftVector.Length)
 
             elementWiseTo processor leftVector rightVector resultVector
 
@@ -100,7 +100,7 @@ module DenseVector =
 
         fun (processor: MailboxProcessor<_>) allocationMode (leftVector: ClArray<'a option>) (maskVector: ClArray<'b option>) (value: ClCell<'a>) ->
             let resultVector =
-                clContext.CreateClArrayWithFlag(allocationMode, leftVector.Length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, leftVector.Length)
 
             fillSubVectorTo processor leftVector maskVector value resultVector
 
@@ -125,7 +125,7 @@ module DenseVector =
 
         fun (processor: MailboxProcessor<_>) allocationMode (vector: ClArray<'a option>) ->
             let positions =
-                clContext.CreateClArrayWithFlag(allocationMode, vector.Length)
+                clContext.CreateClArrayWithSpecificAllocationMode(allocationMode, vector.Length)
 
             let ndRange =
                 Range1D.CreateValid(vector.Length, workGroupSize)
@@ -183,10 +183,10 @@ module DenseVector =
                 res.[0]
 
             let resultValues =
-                clContext.CreateClArrayWithFlag<'a>(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<'a>(allocationMode, resultLength)
 
             let resultIndices =
-                clContext.CreateClArrayWithFlag<int>(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(allocationMode, resultLength)
 
             let ndRange =
                 Range1D.CreateValid(vector.Length, workGroupSize)

src/GraphBLAS-sharp.Backend/Vector/SpMV.fs

@@ -106,7 +106,7 @@ module SpMV =
                 Range1D.CreateValid(matrix.RowCount, workGroupSize)
 
             let intermediateArray =
-                clContext.CreateClArrayWithFlag<'c option>(DeviceOnly, matrixLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<'c option>(DeviceOnly, matrixLength)
 
             let multiplyValues = multiplyValues.GetKernel()
 
@@ -152,7 +152,7 @@ module SpMV =
         fun (queue: MailboxProcessor<_>) allocationMode (matrix: ClMatrix.CSR<'a>) (vector: ClArray<'b option>) ->
 
             let result =
-                clContext.CreateClArrayWithFlag<'b option>(allocationMode, matrix.RowCount)
+                clContext.CreateClArrayWithSpecificAllocationMode<'b option>(allocationMode, matrix.RowCount)
 
             runTo queue matrix vector result
 

src/GraphBLAS-sharp.Backend/Vector/SparseVector/SparseVector.fs

@@ -40,10 +40,10 @@ module SparseVector =
                 res.[0]
 
             let resultValues =
-                clContext.CreateClArrayWithFlag<'a>(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<'a>(allocationMode, resultLength)
 
             let resultIndices =
-                clContext.CreateClArrayWithFlag<int>(allocationMode, resultLength)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(allocationMode, resultLength)
 
             valuesScatter processor positions allValues resultValues
 
@@ -61,13 +61,13 @@ module SparseVector =
         fun (processor: MailboxProcessor<_>) (vectorLenght: int) (leftValues: ClArray<'a>) (leftIndices: ClArray<int>) (rightValues: ClArray<'b>) (rightIndices: ClArray<int>) ->
 
             let resultBitmap =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, vectorLenght)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, vectorLenght)
 
             let resultIndices =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, vectorLenght)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, vectorLenght)
 
             let resultValues =
-                clContext.CreateClArrayWithFlag<'c>(DeviceOnly, vectorLenght)
+                clContext.CreateClArrayWithSpecificAllocationMode<'c>(DeviceOnly, vectorLenght)
 
             let ndRange =
                 Range1D.CreateValid(vectorLenght, workGroupSize)
@@ -144,16 +144,16 @@ module SparseVector =
                 firstIndices.Length + secondIndices.Length
 
             let allIndices =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, sumOfSides)
 
             let firstResultValues =
-                clContext.CreateClArrayWithFlag<'a>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<'a>(DeviceOnly, sumOfSides)
 
             let secondResultValues =
-                clContext.CreateClArrayWithFlag<'b>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<'b>(DeviceOnly, sumOfSides)
 
             let isLeftBitmap =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, sumOfSides)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, sumOfSides)
 
             let ndRange =
                 Range1D.CreateValid(sumOfSides, workGroupSize)
@@ -196,10 +196,10 @@ module SparseVector =
             let length = allIndices.Length
 
             let allValues =
-                clContext.CreateClArrayWithFlag<'c>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<'c>(DeviceOnly, length)
 
             let positions =
-                clContext.CreateClArrayWithFlag<int>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<int>(DeviceOnly, length)
 
             let ndRange =
                 Range1D.CreateValid(length, workGroupSize)
@@ -269,10 +269,10 @@ module SparseVector =
             let length = allIndices.Length
 
             let allValues =
-                clContext.CreateClArrayWithFlag<'a>(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode<'a>(DeviceOnly, length)
 
             let positions =
-                clContext.CreateClArrayWithFlag(DeviceOnly, length)
+                clContext.CreateClArrayWithSpecificAllocationMode(DeviceOnly, length)
 
             let ndRange =
                 Range1D.CreateValid(length, workGroupSize)