|
|
◆ ZCscSsc()
| Sub ZCscSsc |
( |
ByVal Uplo As |
String, |
|
|
N As |
Long, |
|
|
Val() As |
Complex, |
|
|
Colptr() As |
Long, |
|
|
Rowind() As |
Long, |
|
|
Val2() As |
Complex, |
|
|
Colptr2() As |
Long, |
|
|
Rowind2() As |
Long, |
|
|
Optional Info As |
Long, |
|
|
Optional Base As |
Long = -1, |
|
|
Optional Base2 As |
Long = 0 |
|
) |
| |
CSC (symmetric full matrix) -> SSC (CSC sparse matrix packed form) (Complex matrices)
- Purpose
- This function converts the general CSC sparse symmetric matrix containing all elements to the CSC sparse symmetric matrix containing only upper or lower triangular elements.
In current version, the triangular elements (not including diagonal elements) other than specified by uplo in input matrix will be simply ignored, and it is not tested if it is symmetric matrix.
- Parameters
-
| [in] | Uplo | Specifies whether the upper or lower triangular part is stored in the output matrix.
= "U": A is stored in upper triangular part.
= "L": A is stored in lower triangular part. |
| [in] | N | Number of rows and columns of the matrix. (N >= 0) (if N = 0, returns without computation) |
| [in] | Val() | Array Val(LVal - 1) (LVal >= Nnz) (Nnz is the number of nonzero elements in upper/lower triangular part of the 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 (where Nnz is the number of nonzero elements). |
| [out] | Val2() | Array Val2(LVal2 - 1) (LVal2 >= Nnz2) (Nnz2 >= the number of nonzero elements of upper or lower triangular part of input matrix)
Values of nonzero elements of output matrix. |
| [out] | Colptr2() | Array Colptr2(LColptr2 - 1) (LColptr2 >= N + 1)
Column pointers of output matrix. |
| [out] | Rowind2() | Array Rowind2(LRowind2 - 1) (LRowind2 >= Nnz2)
Row 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 Colptr2() and Rowind2(). (default = 0)
= 0: Zero-based (C style) indexing: Starting index is 0.
= 1: One-based (Fortran style) indexing: Starting index is 1. |
|
1.9.7