@@ -32,9 +32,8 @@ for (bname,gname,elty) in ((:cusparseScsrgeam2_bufferSizeExt, :cusparseScsrgeam2
32
32
return out[]
33
33
end
34
34
35
- local C
36
- with_workspace (bufferSize) do buffer
37
- function get_nnzC ()
35
+ C = with_workspace (bufferSize) do buffer
36
+ function get_nnzC (buffer)
38
37
nnzTotalDevHostPtr = Ref {Cint} (1 )
39
38
cusparseXcsrgeam2Nnz (handle (), m, n,
40
39
descrA, nnz (A), A. rowPtr, A. colVal,
@@ -44,7 +43,7 @@ for (bname,gname,elty) in ((:cusparseScsrgeam2_bufferSizeExt, :cusparseScsrgeam2
44
43
return nnzTotalDevHostPtr[]
45
44
end
46
45
47
- nnzC = get_nnzC ()
46
+ nnzC = get_nnzC (buffer )
48
47
colValC = CuArray {Int32,1} (undef, Int (nnzC))
49
48
nzValC = CuArray {$elty,1} (undef, Int (nnzC))
50
49
@@ -53,7 +52,7 @@ for (bname,gname,elty) in ((:cusparseScsrgeam2_bufferSizeExt, :cusparseScsrgeam2
53
52
beta, descrB, nnz (B), nonzeros (B), B. rowPtr, B. colVal,
54
53
descrC, nzValC, rowPtrC, colValC,
55
54
buffer)
56
- C = CuSparseMatrixCSR (rowPtrC, colValC, nzValC, (m, n))
55
+ return CuSparseMatrixCSR (rowPtrC, colValC, nzValC, (m, n))
57
56
end
58
57
C
59
58
end
0 commit comments