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="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) :: 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

Contents

None