c_dbcsr_t_contract_index_c_sp Subroutine

private subroutine c_dbcsr_t_contract_index_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_filter_eps, c_nblks_local, c_result_index, result_index_size, tensor3_dim) bind(C, name="c_dbcsr_t_contract_index_c_sp")

Arguments

Type IntentOptional Attributes Name
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) :: c_contract_1(contract_1_size)
integer(kind=c_int), intent(in), VALUE :: contract_1_size
integer(kind=c_int), intent(in) :: c_notcontract_1(notcontract_1_size)
integer(kind=c_int), intent(in), VALUE :: notcontract_1_size
integer(kind=c_int), intent(in) :: c_contract_2(contract_2_size)
integer(kind=c_int), intent(in), VALUE :: contract_2_size
integer(kind=c_int), intent(in) :: c_notcontract_2(notcontract_2_size)
integer(kind=c_int), intent(in), VALUE :: notcontract_2_size
integer(kind=c_int), intent(in) :: c_map_1(map_1_size)
integer(kind=c_int), intent(in), VALUE :: map_1_size
integer(kind=c_int), intent(in) :: 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
real(kind=c_double), intent(in), optional :: c_filter_eps
integer(kind=c_int), intent(out) :: c_nblks_local
integer(kind=c_int), intent(out), DIMENSION(result_index_size, tensor3_dim) :: c_result_index
integer(kind=c_long_long), intent(in), VALUE :: result_index_size
integer(kind=c_int), intent(in), VALUE :: tensor3_dim