|
|
◆ ZCscCsr()
| Sub ZCscCsr |
( |
M As |
Long, |
|
|
N As |
Long, |
|
|
Val() As |
Complex, |
|
|
Colptr() As |
Long, |
|
|
Rowind() As |
Long, |
|
|
Val2() As |
Complex, |
|
|
Rowptr2() As |
Long, |
|
|
Colind2() As |
Long, |
|
|
Optional Info As |
Long, |
|
|
Optional Base As |
Long = -1, |
|
|
Optional Base2 As |
Long = 0 |
|
) |
| |
CSC -> CSR (Complex matrices)
- Purpose
- This routine converts the sparse matrix in CSC format to the sparse matrix in CSR format.
- Parameters
-
| [in] | M | Number of rows of the input matrix. (M >= 0) (if M = 0, returns without computation) |
| [in] | N | Number of columns of the input matrix. (N >= 0) (if N = 0, returns without computation) |
| [in] | Val() | Array Val(LVal - 1) (LVal >= Nnz) (Nnz is the number of nonzero elements of input matrix)
Values of nonzero elements of input matrix. |
| [in] | Colptr() | Array Colptr(LColptr - 1) (LColptr >= N + 1)
Column pointers of input matrix. |
| [in] | Rowind() | Array Rowind(LRowind - 1) (LRowind >= Nnz)
Row indices of input matrix. |
| [out] | Val2() | Array Val2(LVal2 - 1) (LVal2 >= Nnz)
Values of nonzero elements of output matrix. |
| [out] | Rowptr2() | Array Rowptr2(LRowptr2 - 1) (LRowptr2 >= M + 1)
Row pointers of output matrix. |
| [out] | Colind2() | Array Colind2(LColind2 - 1) (LColind2 >= Nnz)
Column indices of output matrix. |
| [out] | Info | (Optional)
= 0: Successful exit.
= i < 0: The (-i)-th argument is invalid. |
| [in] | Base | (Optional)
Indexing of Colptr() and Rowind().
= 0: Zero-based (C style) indexing: Starting index is 0.
= 1: One-based (Fortran style) indexing: Starting index is 1.
(default: Assumes 1 if Colptr(0) = 1, 0 otherwise) |
| [in] | Base2 | (Optional)
Indexing of Rowptr2() and Colind2(). (default = 0)
= 0: Zero-based (C style) indexing: Starting index is 0.
= 1: One-based (Fortran style) indexing: Starting index is 1. |
|