c_dbcsr_t_contract_c_sp Subroutine

private subroutine c_dbcsr_t_contract_c_sp(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="0")

Arguments

TypeIntentOptionalAttributesName
complex(kind=c_float_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_float_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

None