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

Note

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

Arguments

Type	Intent	Optional	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