c_dbcsr_t_contract_r_sp Subroutine

private subroutine c_dbcsr_t_contract_r_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="c_dbcsr_t_contract_r_sp")

Arguments

Type IntentOptional Attributes Name
real(kind=c_float), intent(in), VALUE :: c_alpha
type(c_ptr), intent(in), VALUE :: c_tensor_1
type(c_ptr), intent(in), VALUE :: c_tensor_2
real(kind=c_float), 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