dbcsr_t_contract_test Subroutine

public subroutine dbcsr_t_contract_test(alpha, tensor_1, tensor_2, beta, tensor_3, contract_1, notcontract_1, contract_2, notcontract_2, map_1, map_2, unit_nr, bounds_1, bounds_2, bounds_3, log_verbose, write_int)

test tensor contraction


for testing/debugging, simply replace a call to dbcsr_t_contract with a call to this routine


Type IntentOptional Attributes Name
type(dbcsr_scalar_type), intent(in) :: alpha
type(dbcsr_t_type), intent(inout) :: tensor_1
type(dbcsr_t_type), intent(inout) :: tensor_2
type(dbcsr_scalar_type), intent(in) :: beta
type(dbcsr_t_type), intent(inout) :: tensor_3
integer, intent(in), DIMENSION(:) :: contract_1
integer, intent(in), DIMENSION(:) :: notcontract_1
integer, intent(in), DIMENSION(:) :: contract_2
integer, intent(in), DIMENSION(:) :: notcontract_2
integer, intent(in), DIMENSION(:) :: map_1
integer, intent(in), DIMENSION(:) :: map_2
integer, intent(in) :: unit_nr
integer, optional, DIMENSION(2, SIZE(contract_1)) :: bounds_1
integer, optional, DIMENSION(2, SIZE(notcontract_1)) :: bounds_2
integer, optional, DIMENSION(2, SIZE(notcontract_2)) :: bounds_3
logical, intent(in), optional :: log_verbose
logical, intent(in), optional :: write_int