coo_csr_t Derived Type

type, public :: coo_csr_t


Inherits

type~~coo_csr_t~~InheritsGraph type~coo_csr_t coo_csr_t mkl_pardiso_handle mkl_pardiso_handle type~coo_csr_t->mkl_pardiso_handle pt type~dbl_pointer_t dbl_pointer_t type~coo_csr_t->type~dbl_pointer_t coo_ptr, csr_ptr

Inherited by

type~~coo_csr_t~~InheritedByGraph type~coo_csr_t coo_csr_t type~krn_t krn_t type~krn_t->type~coo_csr_t imp, exp

Components

Type Visibility Attributes Name Initial
integer, public, len :: nnz

number of non-zeros (major size of the type)
integer, public :: idx = 1

tracing last filled index of global array
integer, public :: coo_col(nnz)

column idx of non zero array in coo
integer, public :: coo_row(nnz)

row idx of non zero array in coo
type(dbl_pointer_t), public :: coo_ptr(nnz)

non zero length array of pointers to physical value in coo
integer, public, pointer :: csr_col(:)

for pardiso final column idx of non zero array in csr
integer, public, pointer :: csr_row(:)

for pardiso final row idx of non zero array in csr
type(dbl_pointer_t), public, pointer :: csr_ptr(:)

for pardiso final non zero length array of pointers to physical value in csr
real(kind=dp), public :: csr_val(nnz)

non zero value array for pardiso
type(mkl_pardiso_handle), public :: pt(64)

internal pointers of pardiso
integer, public :: iparm(64) = 0

parameters for pardiso
integer, public :: perm(nnz)

non zero size after analysis for pardiso
logical, public :: analysed = .false.

is pardiso analysed?

Source Code

    type coo_csr_t(nnz)
        integer, len :: nnz     !! number of non-zeros (major size of the type)
        integer :: idx = 1      !! tracing last filled index of global array
        integer :: coo_col(nnz) !! column idx of non zero array in coo
        integer :: coo_row(nnz) !! row idx of non zero array in coo
        type(dbl_pointer_t) :: coo_ptr(nnz) !! non zero length array of pointers to physical value in coo
        integer, pointer :: csr_col(:)      !! for pardiso final column idx of non zero array in csr
        integer, pointer :: csr_row(:)      !! for pardiso final row idx of non zero array in csr
        type(dbl_pointer_t), pointer :: csr_ptr(:) !! for pardiso final non zero length array of pointers to physical value in csr
        real(dp) ::  csr_val(nnz)           !! non zero value array for pardiso
        type(mkl_pardiso_handle) :: pt(64)  !! internal pointers of pardiso
        integer :: iparm(64) = 0            !! parameters for pardiso
        integer :: perm(nnz)                !! non zero size after analysis for pardiso
        logical :: analysed = .false.       !! is pardiso analysed?
    end type coo_csr_t