dbcsr_tensor_unittest Program

DBCSR tensor unit test


Variables

Type Attributes Name Initial
integer :: numnodes
integer :: mynode
integer :: io_unit
integer :: ndims
integer :: nblks_alloc
integer :: nblks_1
integer :: nblks_2
integer :: nblks_3
integer :: nblks_4
integer :: nblks_5
integer :: nblks_alloc_1
integer :: nblks_alloc_2
integer :: nblks_alloc_3
integer :: nblks_alloc_4
integer :: nblks_alloc_5
integer, DIMENSION(:), ALLOCATABLE :: size_1
integer, DIMENSION(:), ALLOCATABLE :: size_2
integer, DIMENSION(:), ALLOCATABLE :: size_3
integer, DIMENSION(:), ALLOCATABLE :: size_4
integer, DIMENSION(:), ALLOCATABLE :: size_5
integer, DIMENSION(:), ALLOCATABLE :: dist1_1
integer, DIMENSION(:), ALLOCATABLE :: dist1_2
integer, DIMENSION(:), ALLOCATABLE :: dist1_3
integer, DIMENSION(:), ALLOCATABLE :: dist2_1
integer, DIMENSION(:), ALLOCATABLE :: dist2_2
integer, DIMENSION(:), ALLOCATABLE :: dist3_1
integer, DIMENSION(:), ALLOCATABLE :: dist3_2
integer, DIMENSION(:), ALLOCATABLE :: dist3_3
integer, DIMENSION(:), ALLOCATABLE :: dist4_1
integer, DIMENSION(:), ALLOCATABLE :: dist4_2
integer, DIMENSION(:), ALLOCATABLE :: dist4_3
integer, DIMENSION(:), ALLOCATABLE :: dist4_4
integer, DIMENSION(:), ALLOCATABLE :: dist5_1
integer, DIMENSION(:), ALLOCATABLE :: dist5_2
integer, DIMENSION(:), ALLOCATABLE :: dist5_3
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_1
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_2
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_3
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_4
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_1_1
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_2_1
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_3_1
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_3_2
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_4_2
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_1_3
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_2_3
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_4_3
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_1_4
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_2_4
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_4_4
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_5_4
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_3_5
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_4_5
integer, DIMENSION(:), ALLOCATABLE :: blk_ind_5_5
integer, DIMENSION(:), ALLOCATABLE :: map11
integer, DIMENSION(:), ALLOCATABLE :: map31
integer, DIMENSION(:), ALLOCATABLE :: map12
integer, DIMENSION(:), ALLOCATABLE :: map32
integer, DIMENSION(:), ALLOCATABLE :: map21
integer, DIMENSION(:), ALLOCATABLE :: map22
logical, parameter :: verbose = .FALSE.
type(dbcsr_t_distribution_type) :: dist1
type(dbcsr_t_distribution_type) :: dist2
type(dbcsr_t_distribution_type) :: dist3
type(dbcsr_t_type) :: tensor_A
type(dbcsr_t_type) :: tensor_B
type(dbcsr_t_type) :: tensor_C
logical, parameter :: test_format = .TRUE.
logical, parameter :: test_contraction = .TRUE.
integer, DIMENSION(4) :: pdims_4d
integer, DIMENSION(3) :: pdims_3d
integer, DIMENSION(2) :: pdims_2d
type(dbcsr_t_pgrid_type) :: pgrid_2d
type(dbcsr_t_pgrid_type) :: pgrid_3d
type(dbcsr_t_pgrid_type) :: pgrid_4d
integer, DIMENSION(:), ALLOCATABLE :: bounds_t
integer, DIMENSION(:, :), ALLOCATABLE :: bounds
integer, DIMENSION(:, :), ALLOCATABLE :: bounds_1
integer, DIMENSION(:, :), ALLOCATABLE :: bounds_2
type(mp_comm_type) :: mp_comm