c_dbcsr_t_contract_c_dp Subroutine

private subroutine c_dbcsr_t_contract_c_dp(c_alpha, c_tensor_1, c_tensor_2, c_beta, c_tensor_3, c_contract_1, contract_1_size, c_notcontract_1, notcontract_1_size, c_contract_2, contract_2_size, c_notcontract_2, notcontract_2_size, c_map_1, map_1_size, c_map_2, map_2_size, c_bounds_1, c_bounds_2, c_bounds_3, c_optimize_dist, c_pgrid_opt_1, c_pgrid_opt_2, c_pgrid_opt_3, c_filter_eps, c_flop, c_move_data, c_retain_sparsity, c_unit_nr, c_log_verbose) bind(C, name="c_dbcsr_t_contract_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=c_double_complex),	intent(in),		VALUE	::	c_alpha
type(c_ptr),	intent(in),		VALUE	::	c_tensor_1
type(c_ptr),	intent(in),		VALUE	::	c_tensor_2
complex(kind=c_double_complex),	intent(in),		VALUE	::	c_beta
type(c_ptr),	intent(in),		VALUE	::	c_tensor_3
integer(kind=c_int),	intent(in),		TARGET	::	c_contract_1(contract_1_size)
integer(kind=c_int),	intent(in),		VALUE	::	contract_1_size
integer(kind=c_int),	intent(in),		TARGET	::	c_notcontract_1(notcontract_1_size)
integer(kind=c_int),	intent(in),		VALUE	::	notcontract_1_size
integer(kind=c_int),	intent(in),		TARGET	::	c_contract_2(contract_2_size)
integer(kind=c_int),	intent(in),		VALUE	::	contract_2_size
integer(kind=c_int),	intent(in),		TARGET	::	c_notcontract_2(notcontract_2_size)
integer(kind=c_int),	intent(in),		VALUE	::	notcontract_2_size
integer(kind=c_int),	intent(in),		TARGET	::	c_map_1(map_1_size)
integer(kind=c_int),	intent(in),		VALUE	::	map_1_size
integer(kind=c_int),	intent(in),		TARGET	::	c_map_2(map_2_size)
integer(kind=c_int),	intent(in),		VALUE	::	map_2_size
integer(kind=c_int),	intent(in),	optional,	DIMENSION(2, contract_1_size)	::	c_bounds_1
integer(kind=c_int),	intent(in),	optional,	DIMENSION(2, notcontract_1_size)	::	c_bounds_2
integer(kind=c_int),	intent(in),	optional,	DIMENSION(2, notcontract_2_size)	::	c_bounds_3
logical(kind=c_bool),	intent(in),	optional		::	c_optimize_dist
type(c_ptr),	intent(out),	optional		::	c_pgrid_opt_1
type(c_ptr),	intent(out),	optional		::	c_pgrid_opt_2
type(c_ptr),	intent(out),	optional		::	c_pgrid_opt_3
real(kind=c_double),	intent(in),	optional		::	c_filter_eps
integer(kind=c_long_long),	intent(inout),	optional		::	c_flop
logical(kind=c_bool),	intent(in),	optional		::	c_move_data
logical(kind=c_bool),	intent(in),	optional		::	c_retain_sparsity
integer(kind=c_int),	intent(in),	optional		::	c_unit_nr
logical(kind=c_bool),	intent(in),	optional		::	c_log_verbose

Contents