CscDzusadd CscZusadd CsrDzusadd CsrZusadd ZCscTrans ZCsrTrans ZCsxDiag ZCsxSort ZDenseNnz

ZCsrTrans() Sub ZCsrTrans ( M As  Long, N As  Long, Val() As  Complex, Rowptr() As  Long, Colind() 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, Optional Conjg As  Long = 0  ) Transpose of sparse matrix (Complex matrices) (CSR) Purpose This routine computes the (conjugate) transpose of 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] Rowptr() Array Rowptr(LRowptr - 1) (LRowptr >= M + 1) Row pointers of input matrix. [in] Colind() Array Colind(LColind - 1) (LColind >= Nnz) Column indices of input matrix. [out] Val2() Array Val2(LVal2 - 1) (LVal2 >= Nnz) 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 >= Nnz) Row indices of output matrix. [out] Info (Optional) = 0: Successful exit. = i < 0: The (-i)-th argument is invalid. [in] Base (Optional) Indexing of Rowptr() and Colind(). = 0: Zero-based (C style) indexing: Starting index is 0. = 1: One-based (Fortran style) indexing: Starting index is 1. (default: Assumes 1 if Rowptr(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. [in] Conjg (Optional) Specify if output elements Val2 are to be complex conjugate of input elements Val. = 0: Not complex conjugate. = 1: Complex conjugate. (default: Assumes 0)