dbcsr_t_type Derived Type

type, public :: dbcsr_t_type


Components

Type Visibility Attributes Name Initial
type(dbcsr_tas_type), public, POINTER :: matrix_rep => NULL()
type(nd_to_2d_mapping), public :: nd_index_blk = nd_to_2d_mapping()
type(nd_to_2d_mapping), public :: nd_index = nd_to_2d_mapping()
type(array_list), public :: blk_sizes = array_list()
type(array_list), public :: blk_offsets = array_list()
type(array_list), public :: nd_dist = array_list()
type(dbcsr_t_pgrid_type), public :: pgrid = dbcsr_t_pgrid_type()
type(array_list), public :: blks_local = array_list()
integer, public, DIMENSION(:), ALLOCATABLE :: nblks_local
integer, public, DIMENSION(:), ALLOCATABLE :: nfull_local
logical, public :: valid = .FALSE.
logical, public :: owns_matrix = .FALSE.
character(len=default_string_length), public :: name = ""
integer, public, POINTER :: refcount => NULL()
type(dbcsr_t_contraction_storage), public, ALLOCATABLE :: contraction_storage

Source Code

   TYPE dbcsr_t_type
      TYPE(dbcsr_tas_type), POINTER        :: matrix_rep => NULL()
#if defined(__GNUC__) && defined(__GNUC_MINOR__) && (TO_VERSION(9, 5) > TO_VERSION(__GNUC__, __GNUC_MINOR__))
      TYPE(nd_to_2d_mapping)               :: nd_index_blk
      TYPE(nd_to_2d_mapping)               :: nd_index
      TYPE(array_list)                     :: blk_sizes
      TYPE(array_list)                     :: blk_offsets
      TYPE(array_list)                     :: nd_dist
      TYPE(dbcsr_t_pgrid_type)             :: pgrid
      TYPE(array_list)                     :: blks_local
#else
      TYPE(nd_to_2d_mapping)               :: nd_index_blk = nd_to_2d_mapping()
      TYPE(nd_to_2d_mapping)               :: nd_index = nd_to_2d_mapping()
      TYPE(array_list)                     :: blk_sizes = array_list()
      TYPE(array_list)                     :: blk_offsets = array_list()
      TYPE(array_list)                     :: nd_dist = array_list()
      TYPE(dbcsr_t_pgrid_type)             :: pgrid = dbcsr_t_pgrid_type()
      TYPE(array_list)                     :: blks_local = array_list()
#endif
      INTEGER, DIMENSION(:), ALLOCATABLE   :: nblks_local
      INTEGER, DIMENSION(:), ALLOCATABLE   :: nfull_local
      LOGICAL                              :: valid = .FALSE.
      LOGICAL                              :: owns_matrix = .FALSE.
      CHARACTER(LEN=default_string_length) :: name = ""
      ! lightweight reference counting for communicators:
      INTEGER, POINTER                     :: refcount => NULL()
      TYPE(dbcsr_t_contraction_storage), ALLOCATABLE :: contraction_storage
   END TYPE dbcsr_t_type