dbcsr_tensor_api_c Module



Contents

c_f_string c_dbcsr_t_finalize c_dbcsr_t_pgrid_create_expert c_dbcsr_t_pgrid_create c_dbcsr_t_pgrid_destroy c_dbcsr_t_distribution_new c_dbcsr_t_distribution_destroy c_dbcsr_t_create_new c_dbcsr_t_create_template c_dbcsr_t_create_matrix c_dbcsr_t_destroy c_dbcsr_t_contract_r_dp c_dbcsr_t_contract_index_r_dp c_dbcsr_t_contract_r_sp c_dbcsr_t_contract_index_r_sp c_dbcsr_t_contract_c_dp c_dbcsr_t_contract_index_c_dp c_dbcsr_t_contract_c_sp c_dbcsr_t_contract_index_c_sp c_dbcsr_t_get_2d_block_r_dp c_dbcsr_t_get_3d_block_r_dp c_dbcsr_t_get_4d_block_r_dp c_dbcsr_t_get_2d_block_r_sp c_dbcsr_t_get_3d_block_r_sp c_dbcsr_t_get_4d_block_r_sp c_dbcsr_t_get_2d_block_c_dp c_dbcsr_t_get_3d_block_c_dp c_dbcsr_t_get_4d_block_c_dp c_dbcsr_t_get_2d_block_c_sp c_dbcsr_t_get_3d_block_c_sp c_dbcsr_t_get_4d_block_c_sp c_dbcsr_t_put_2d_block_r_dp c_dbcsr_t_put_3d_block_r_dp c_dbcsr_t_put_4d_block_r_dp c_dbcsr_t_put_2d_block_r_sp c_dbcsr_t_put_3d_block_r_sp c_dbcsr_t_put_4d_block_r_sp c_dbcsr_t_put_2d_block_c_dp c_dbcsr_t_put_3d_block_c_dp c_dbcsr_t_put_4d_block_c_dp c_dbcsr_t_put_2d_block_c_sp c_dbcsr_t_put_3d_block_c_sp c_dbcsr_t_put_4d_block_c_sp c_dbcsr_t_get_2d_block_p_r_dp c_dbcsr_t_get_3d_block_p_r_dp c_dbcsr_t_get_4d_block_p_r_dp c_dbcsr_t_get_2d_block_p_r_sp c_dbcsr_t_get_3d_block_p_r_sp c_dbcsr_t_get_4d_block_p_r_sp c_dbcsr_t_get_2d_block_p_c_dp c_dbcsr_t_get_3d_block_p_c_dp c_dbcsr_t_get_4d_block_p_c_dp c_dbcsr_t_get_2d_block_p_c_sp c_dbcsr_t_get_3d_block_p_c_sp c_dbcsr_t_get_4d_block_p_c_sp c_dbcsr_t_get_stored_coordinates c_dbcsr_t_reserve_blocks_index c_dbcsr_t_reserve_blocks_template c_dbcsr_t_iterator_start c_dbcsr_t_iterator_stop c_dbcsr_t_iterator_next_block c_dbcsr_t_split_blocks c_dbcsr_t_filter_r_dp c_dbcsr_t_filter_r_sp c_dbcsr_t_filter_c_dp c_dbcsr_t_filter_c_sp c_dbcsr_t_set_r_dp c_dbcsr_t_set_r_sp c_dbcsr_t_set_c_dp c_dbcsr_t_set_c_sp c_dbcsr_t_copy_matrix_to_tensor c_dbcsr_t_copy_tensor_to_matrix c_dbcsr_t_blk_sizes c_dbcsr_t_copy c_dbcsr_t_scale_r_dp c_dbcsr_t_scale_r_sp c_dbcsr_t_scale_c_dp c_dbcsr_t_scale_c_sp c_dbcsr_t_clear c_dbcsr_t_get_info c_dbcsr_t_get_mapping_info c_dbcsr_t_dims c_dbcsr_t_get_data_r_dp c_dbcsr_t_get_data_r_sp c_dbcsr_t_get_data_c_dp c_dbcsr_t_get_data_c_sp c_dbcsr_t_batched_contract_init c_dbcsr_t_batched_contract_finalize

Functions

private function c_ndims_iterator(c_iterator) bind(C, name="c_ndims_iterator")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_iterator

Return Value integer(kind=c_int)

private function c_dbcsr_t_iterator_blocks_left(c_iterator) bind(C, name="c_dbcsr_t_iterator_blocks_left")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_iterator

Return Value logical(kind=c_bool)

private function c_dbcsr_t_get_num_blocks(c_tensor) result(c_num_blocks) bind(C, name="c_dbcsr_t_get_num_blocks")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_int)

private function c_dbcsr_t_get_num_blocks_total(c_tensor) result(c_num_blocks_total) bind(C, name="c_dbcsr_t_get_num_blocks_total")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_long_long)

private function c_dbcsr_t_nblks_local(c_tensor, idim) bind(C, name="c_dbcsr_t_nblks_local")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: idim

Return Value integer(kind=c_int)

private function c_dbcsr_t_nblks_total(c_tensor, idim) bind(C, name="c_dbcsr_t_nblks_total")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: idim

Return Value integer(kind=c_int)

private function c_dbcsr_t_ndims(c_tensor) bind(C, name="c_dbcsr_t_ndims")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_int)

private function c_dbcsr_t_ndims_matrix_row(c_tensor) bind(C, name="c_dbcsr_t_ndims_matrix_row")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_long_long)

private function c_dbcsr_t_ndims_matrix_column(c_tensor) bind(C, name="c_dbcsr_t_ndims_matrix_column")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_long_long)

private function c_dbcsr_t_get_nze(c_tensor) bind(C, name="c_dbcsr_t_get_nze")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_int)

private function c_dbcsr_t_get_nze_total(c_tensor) bind(C, name="c_dbcsr_t_get_nze_total")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_long_long)

private function c_dbcsr_t_max_nblks_local(c_tensor) result(max_blks) bind(C, name="c_dbcsr_t_max_nblks_local")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

Return Value integer(kind=c_long_long)


Subroutines

private subroutine c_f_string(c_str, str)

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in) :: c_str
character(kind=c_char), intent(out), ALLOCATABLE:: str

private subroutine c_dbcsr_t_finalize(c_tensor) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

private subroutine c_dbcsr_t_pgrid_create_expert(fcomm, c_dims, dims_size, c_pgrid, c_map1_2d, map1_2d_size, c_map2_2d, map2_2d_size, c_tensor_dims, nsplit, dimsplit) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), intent(in) :: fcomm
integer(kind=c_int), intent(out) :: c_dims(dims_size)
integer(kind=c_int), intent(in), value:: dims_size
type(c_ptr), intent(out) :: c_pgrid
integer(kind=c_int), intent(in) :: c_map1_2d(map1_2d_size)
integer(kind=c_int), intent(in), VALUE:: map1_2d_size
integer(kind=c_int), intent(in) :: c_map2_2d(map2_2d_size)
integer(kind=c_int), intent(in), VALUE:: map2_2d_size
integer(kind=c_int), intent(out), optional DIMENSION(dims_size):: c_tensor_dims
integer(kind=c_int), intent(in), optional :: nsplit
integer(kind=c_int), intent(in), optional :: dimsplit

private subroutine c_dbcsr_t_pgrid_create(fcomm, c_dims, dims_size, c_pgrid, c_tensor_dims) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int), intent(in) :: fcomm
integer(kind=c_int), intent(out) :: c_dims(dims_size)
integer(kind=c_int), intent(in), value:: dims_size
type(c_ptr), intent(out) :: c_pgrid
integer(kind=c_int), intent(in), optional :: c_tensor_dims(dims_size)

private subroutine c_dbcsr_t_pgrid_destroy(c_pgrid, c_keep_comm) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(inout) :: c_pgrid
logical(kind=c_bool), intent(in), optional :: c_keep_comm

private subroutine c_dbcsr_t_distribution_new(c_dist, c_pgrid, c_nd_dist_1, c_nd_dist_1_size, c_nd_dist_2, c_nd_dist_2_size, c_nd_dist_3, c_nd_dist_3_size, c_nd_dist_4, c_nd_dist_4_size) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(out) :: c_dist
type(c_ptr), intent(in), value:: c_pgrid
integer(kind=c_int), intent(in), optional TARGET:: c_nd_dist_1(c_nd_dist_1_size)
integer(kind=c_int), intent(in), value:: c_nd_dist_1_size
integer(kind=c_int), intent(in), optional TARGET:: c_nd_dist_2(c_nd_dist_2_size)
integer(kind=c_int), intent(in), value:: c_nd_dist_2_size
integer(kind=c_int), intent(in), optional TARGET:: c_nd_dist_3(c_nd_dist_3_size)
integer(kind=c_int), intent(in), value:: c_nd_dist_3_size
integer(kind=c_int), intent(in), optional TARGET:: c_nd_dist_4(c_nd_dist_4_size)
integer(kind=c_int), intent(in), value:: c_nd_dist_4_size

private subroutine c_dbcsr_t_distribution_destroy(c_dist) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(inout) :: c_dist

private subroutine c_dbcsr_t_create_new(c_tensor, c_name, c_dist, c_map1_2d, map1_2d_size, c_map2_2d, map2_2d_size, c_data_type, c_blk_size_1, c_blk_size_1_size, c_blk_size_2, c_blk_size_2_size, c_blk_size_3, c_blk_size_3_size, c_blk_size_4, c_blk_size_4_size) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(out) :: c_tensor
type(c_ptr), intent(in), value:: c_name
type(c_ptr), intent(in), value:: c_dist
integer(kind=c_int), intent(in), TARGET:: c_map1_2d(map1_2d_size)
integer(kind=c_int), intent(in), value:: map1_2d_size
integer(kind=c_int), intent(in), TARGET:: c_map2_2d(map2_2d_size)
integer(kind=c_int), intent(in), value:: map2_2d_size
integer(kind=c_int), intent(in), optional :: c_data_type
integer(kind=c_int), intent(in), optional TARGET:: c_blk_size_1(c_blk_size_1_size)
integer(kind=c_int), intent(in), value:: c_blk_size_1_size
integer(kind=c_int), intent(in), optional TARGET:: c_blk_size_2(c_blk_size_2_size)
integer(kind=c_int), intent(in), value:: c_blk_size_2_size
integer(kind=c_int), intent(in), optional TARGET:: c_blk_size_3(c_blk_size_3_size)
integer(kind=c_int), intent(in), value:: c_blk_size_3_size
integer(kind=c_int), intent(in), optional TARGET:: c_blk_size_4(c_blk_size_4_size)
integer(kind=c_int), intent(in), value:: c_blk_size_4_size

private subroutine c_dbcsr_t_create_template(c_tensor_in, c_tensor, c_name, c_dist, c_map1_2d, map1_2d_size, c_map2_2d, map2_2d_size, data_type) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor_in
type(c_ptr), intent(out) :: c_tensor
type(c_ptr), intent(in), VALUE:: c_name
type(c_ptr), intent(in), VALUE:: c_dist
integer(kind=c_int), intent(in), optional TARGET:: c_map1_2d(map1_2d_size)
integer(kind=c_int), intent(in), value:: map1_2d_size
integer(kind=c_int), intent(in), optional TARGET:: c_map2_2d(map2_2d_size)
integer(kind=c_int), intent(in), value:: map2_2d_size
integer(kind=c_int), intent(in), optional :: data_type

private subroutine c_dbcsr_t_create_matrix(c_matrix_in, c_tensor, c_order, c_name) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_matrix_in
type(c_ptr), intent(out) :: c_tensor
integer(kind=c_int), intent(in), optional DIMENSION(2):: c_order
type(c_ptr), intent(in), optional :: c_name

private subroutine c_dbcsr_t_destroy(c_tensor) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(inout) :: c_tensor

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

Arguments

TypeIntentOptionalAttributesName
real(kind=c_double), 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_double), 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

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

Arguments

TypeIntentOptionalAttributesName
real(kind=c_double), 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_double), 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

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

Arguments

TypeIntentOptionalAttributesName
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

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

Arguments

TypeIntentOptionalAttributesName
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) :: 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

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

Arguments

TypeIntentOptionalAttributesName
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

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

Arguments

TypeIntentOptionalAttributesName
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) :: 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

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

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

private subroutine c_dbcsr_t_get_2d_block_r_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_double), intent(out), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_3d_block_r_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_double), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_4d_block_r_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_double), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_2d_block_r_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_float), intent(out), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_3d_block_r_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_float), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_4d_block_r_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_float), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_2d_block_c_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_double_complex), intent(out), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_3d_block_c_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_double_complex), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_4d_block_c_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_double_complex), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_2d_block_c_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_float_complex), intent(out), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_3d_block_c_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_float_complex), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_get_4d_block_c_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_float_complex), intent(out), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(out) :: c_found

private subroutine c_dbcsr_t_put_2d_block_r_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_double), intent(in), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
real(kind=c_double), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_3d_block_r_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_double), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
real(kind=c_double), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_4d_block_r_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_double), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
real(kind=c_double), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_2d_block_r_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_float), intent(in), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
real(kind=c_float), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_3d_block_r_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_float), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
real(kind=c_float), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_4d_block_r_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
real(kind=c_float), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
real(kind=c_float), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_2d_block_c_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_double_complex), intent(in), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
complex(kind=c_double_complex), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_3d_block_c_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_double_complex), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
complex(kind=c_double_complex), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_4d_block_c_dp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_double_complex), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
complex(kind=c_double_complex), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_2d_block_c_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_float_complex), intent(in), DIMENSION(c_sizes(1), c_sizes(2)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
complex(kind=c_float_complex), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_3d_block_c_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_float_complex), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
complex(kind=c_float_complex), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_put_4d_block_c_sp(c_tensor, tensor_dim, c_ind, c_sizes, c_block, c_summation, c_scale) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_sizes
complex(kind=c_float_complex), intent(in), DIMENSION(c_sizes(1), c_sizes(2), c_sizes(3), c_sizes(4)):: c_block
logical(kind=c_bool), intent(in), optional :: c_summation
complex(kind=c_float_complex), intent(in), optional :: c_scale

private subroutine c_dbcsr_t_get_2d_block_p_r_dp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(2)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_3d_block_p_r_dp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(3)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_4d_block_p_r_dp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(4)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_2d_block_p_r_sp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(2)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_3d_block_p_r_sp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(3)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_4d_block_p_r_sp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(4)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_2d_block_p_c_dp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(2)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_3d_block_p_c_dp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(3)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_4d_block_p_c_dp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(4)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_2d_block_p_c_sp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(2)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_3d_block_p_c_sp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(3)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_4d_block_p_c_sp(c_tensor, c_ind, c_block, c_found) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in) :: c_ind(4)
type(c_ptr), intent(inout) :: c_block
logical(kind=c_bool), intent(inout) :: c_found

private subroutine c_dbcsr_t_get_stored_coordinates(c_tensor, tensor_dim, c_ind_nd, c_processor) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind_nd
integer(kind=c_int), intent(out) :: c_processor

private subroutine c_dbcsr_t_reserve_blocks_index(c_tensor, nblocks, c_blk_ind_1, c_blk_ind_2, c_blk_ind_3, c_blk_ind_4) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), value:: nblocks
integer(kind=c_int), intent(in), optional :: c_blk_ind_1(nblocks)
integer(kind=c_int), intent(in), optional :: c_blk_ind_2(nblocks)
integer(kind=c_int), intent(in), optional :: c_blk_ind_3(nblocks)
integer(kind=c_int), intent(in), optional :: c_blk_ind_4(nblocks)

private subroutine c_dbcsr_t_reserve_blocks_template(c_tensor_in, c_tensor_out) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor_in
type(c_ptr), intent(in), VALUE:: c_tensor_out

private subroutine c_dbcsr_t_iterator_start(c_iterator, c_tensor) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(out) :: c_iterator
type(c_ptr), intent(in), VALUE:: c_tensor

private subroutine c_dbcsr_t_iterator_stop(c_iterator) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(inout) :: c_iterator

private subroutine c_dbcsr_t_iterator_next_block(c_iterator, iterator_size, c_ind_nd, c_blk, c_blk_p, c_blk_size, c_blk_offset) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_iterator
integer(kind=c_int), intent(in), VALUE:: iterator_size
integer(kind=c_int), intent(out), DIMENSION(iterator_size), TARGET:: c_ind_nd
integer(kind=c_int), intent(out) :: c_blk
integer(kind=c_int), intent(out), optional :: c_blk_p
integer(kind=c_int), intent(out), optional DIMENSION(iterator_size):: c_blk_size
integer(kind=c_int), intent(out), optional DIMENSION(iterator_size):: c_blk_offset

private subroutine c_dbcsr_t_split_blocks(c_tensor_in, tensor_dim, c_tensor_out, c_block_sizes, c_nodata) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor_in
integer(kind=c_int), intent(in), VALUE:: tensor_dim
type(c_ptr), intent(out) :: c_tensor_out
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_block_sizes
logical(kind=c_bool), optional :: c_nodata

private subroutine c_dbcsr_t_filter_r_dp(c_tensor, c_eps, c_method, c_use_absolute) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
real(kind=c_double), intent(in), VALUE:: c_eps
integer(kind=c_int), intent(in), optional :: c_method
logical(kind=c_bool), intent(in), optional :: c_use_absolute

private subroutine c_dbcsr_t_filter_r_sp(c_tensor, c_eps, c_method, c_use_absolute) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
real(kind=c_float), intent(in), VALUE:: c_eps
integer(kind=c_int), intent(in), optional :: c_method
logical(kind=c_bool), intent(in), optional :: c_use_absolute

private subroutine c_dbcsr_t_filter_c_dp(c_tensor, c_eps, c_method, c_use_absolute) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
complex(kind=c_double_complex), intent(in), VALUE:: c_eps
integer(kind=c_int), intent(in), optional :: c_method
logical(kind=c_bool), intent(in), optional :: c_use_absolute

private subroutine c_dbcsr_t_filter_c_sp(c_tensor, c_eps, c_method, c_use_absolute) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
complex(kind=c_float_complex), intent(in), VALUE:: c_eps
integer(kind=c_int), intent(in), optional :: c_method
logical(kind=c_bool), intent(in), optional :: c_use_absolute

private subroutine c_dbcsr_t_set_r_dp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
real(kind=c_double), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_set_r_sp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
real(kind=c_float), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_set_c_dp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
complex(kind=c_double_complex), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_set_c_sp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
complex(kind=c_float_complex), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_copy_matrix_to_tensor(c_matrix_in, c_tensor_out, c_summation) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_matrix_in
type(c_ptr), intent(in), VALUE:: c_tensor_out
logical(kind=c_bool), intent(in), optional :: c_summation

private subroutine c_dbcsr_t_copy_tensor_to_matrix(c_tensor_in, c_matrix_out, c_summation) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor_in
type(c_ptr), intent(in), VALUE:: c_matrix_out
logical(kind=c_bool), intent(in), optional :: c_summation

private subroutine c_dbcsr_t_blk_sizes(c_tensor, tensor_dim, c_ind, c_blk_size) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(in), DIMENSION(tensor_dim):: c_ind
integer(kind=c_int), intent(out), DIMENSION(tensor_dim):: c_blk_size

private subroutine c_dbcsr_t_copy(c_tensor_in, tensor_dim, c_tensor_out, c_order, c_summation, c_bounds, c_move_data, c_unit_nr) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor_in
integer(kind=c_int), intent(in), VALUE:: tensor_dim
type(c_ptr), intent(in), VALUE:: c_tensor_out
integer(kind=c_int), intent(in), optional DIMENSION(tensor_dim):: c_order
logical(kind=c_bool), intent(in), optional :: c_summation
integer(kind=c_int), intent(in), optional DIMENSION(2, tensor_dim):: c_bounds
logical(kind=c_bool), intent(in), optional :: c_move_data
integer(kind=c_int), intent(in), optional :: c_unit_nr

private subroutine c_dbcsr_t_scale_r_dp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
real(kind=c_double), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_scale_r_sp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
real(kind=c_float), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_scale_c_dp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
complex(kind=c_double_complex), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_scale_c_sp(c_tensor, c_alpha) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
complex(kind=c_float_complex), intent(in), VALUE:: c_alpha

private subroutine c_dbcsr_t_clear(c_tensor) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

private subroutine c_dbcsr_t_get_info(c_tensor, tensor_dim, c_nblks_total, c_nfull_total, c_nblks_local, c_nfull_local, c_pdims, c_my_ploc, nblks_local_1, nblks_local_2, nblks_local_3, nblks_local_4, nblks_total_1, nblks_total_2, nblks_total_3, nblks_total_4, c_blks_local_1, c_blks_local_2, c_blks_local_3, c_blks_local_4, c_proc_dist_1, c_proc_dist_2, c_proc_dist_3, c_proc_dist_4, c_blk_size_1, c_blk_size_2, c_blk_size_3, c_blk_size_4, c_blk_offset_1, c_blk_offset_2, c_blk_offset_3, c_blk_offset_4, c_distribution, c_name, c_data_type) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(out), optional DIMENSION(tensor_dim):: c_nblks_total
integer(kind=c_int), intent(out), optional DIMENSION(tensor_dim):: c_nfull_total
integer(kind=c_int), intent(out), optional DIMENSION(tensor_dim):: c_nblks_local
integer(kind=c_int), intent(out), optional DIMENSION(tensor_dim):: c_nfull_local
integer(kind=c_int), intent(out), optional DIMENSION(tensor_dim):: c_pdims
integer(kind=c_int), intent(out), optional DIMENSION(tensor_dim):: c_my_ploc
integer(kind=c_int), intent(in), VALUE:: nblks_local_1
integer(kind=c_int), intent(in), VALUE:: nblks_local_2
integer(kind=c_int), intent(in), VALUE:: nblks_local_3
integer(kind=c_int), intent(in), VALUE:: nblks_local_4
integer(kind=c_int), intent(in), VALUE:: nblks_total_1
integer(kind=c_int), intent(in), VALUE:: nblks_total_2
integer(kind=c_int), intent(in), VALUE:: nblks_total_3
integer(kind=c_int), intent(in), VALUE:: nblks_total_4
integer(kind=c_int), intent(out), optional DIMENSION(nblks_local_1):: c_blks_local_1
integer(kind=c_int), intent(out), optional DIMENSION(nblks_local_2):: c_blks_local_2
integer(kind=c_int), intent(out), optional DIMENSION(nblks_local_3):: c_blks_local_3
integer(kind=c_int), intent(out), optional DIMENSION(nblks_local_4):: c_blks_local_4
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_1):: c_proc_dist_1
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_2):: c_proc_dist_2
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_3):: c_proc_dist_3
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_4):: c_proc_dist_4
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_1):: c_blk_size_1
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_2):: c_blk_size_2
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_3):: c_blk_size_3
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_4):: c_blk_size_4
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_1):: c_blk_offset_1
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_2):: c_blk_offset_2
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_3):: c_blk_offset_3
integer(kind=c_int), intent(out), optional DIMENSION(nblks_total_4):: c_blk_offset_4
type(c_ptr), intent(out), optional :: c_distribution
type(c_ptr), intent(out), optional :: c_name
integer(kind=c_int), intent(out), optional :: c_data_type

private subroutine c_dbcsr_t_get_mapping_info(c_tensor, nd_size, nd_row_size, nd_col_size, ndim_nd, ndim1_2d, ndim2_2d, c_dims_2d_i8, c_dims_2d, c_dims_nd, c_dims1_2d, c_dims2_2d, c_map1_2d, c_map2_2d, c_map_nd, base, c_col_major) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

nd_size = ndims_mapping(map), nd_row_size = ndims_mapping_row(map), nd_col_size = ndims_mapping_column(map)

integer(kind=c_int), intent(in), VALUE:: nd_size
integer(kind=c_int), intent(in), VALUE:: nd_row_size
integer(kind=c_int), intent(in), VALUE:: nd_col_size
integer(kind=c_int), intent(out), optional :: ndim_nd
integer(kind=c_int), intent(out), optional :: ndim1_2d
integer(kind=c_int), intent(out), optional :: ndim2_2d
integer(kind=c_long_long), intent(out), optional DIMENSION(2):: c_dims_2d_i8
integer(kind=c_int), intent(out), optional DIMENSION(2):: c_dims_2d
integer(kind=c_int), intent(out), optional DIMENSION(nd_size):: c_dims_nd
integer(kind=c_int), intent(out), optional DIMENSION(nd_row_size):: c_dims1_2d
integer(kind=c_int), intent(out), optional DIMENSION(nd_col_size):: c_dims2_2d
integer(kind=c_int), intent(out), optional DIMENSION(nd_row_size):: c_map1_2d
integer(kind=c_int), intent(out), optional DIMENSION(nd_col_size):: c_map2_2d
integer(kind=c_int), intent(out), optional DIMENSION(nd_size):: c_map_nd
integer(kind=c_int), intent(out), optional :: base
logical(kind=c_bool), intent(out), optional :: c_col_major

private subroutine c_dbcsr_t_dims(c_tensor, tensor_dim, c_dims) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), intent(in), VALUE:: tensor_dim
integer(kind=c_int), intent(out), DIMENSION(tensor_dim):: c_dims

private subroutine c_dbcsr_t_get_data_r_dp(c_tensor, c_data, c_data_size, c_select_data_type, c_lb, c_ub) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
type(c_ptr), intent(inout) :: c_data
integer(kind=c_long_long), intent(inout) :: c_data_size
real(kind=c_double), intent(in), VALUE:: c_select_data_type
integer(kind=c_int), intent(in), optional :: c_lb
integer(kind=c_int), intent(in), optional :: c_ub

private subroutine c_dbcsr_t_get_data_r_sp(c_tensor, c_data, c_data_size, c_select_data_type, c_lb, c_ub) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
type(c_ptr), intent(inout) :: c_data
integer(kind=c_long_long), intent(inout) :: c_data_size
real(kind=c_float), intent(in), VALUE:: c_select_data_type
integer(kind=c_int), intent(in), optional :: c_lb
integer(kind=c_int), intent(in), optional :: c_ub

private subroutine c_dbcsr_t_get_data_c_dp(c_tensor, c_data, c_data_size, c_select_data_type, c_lb, c_ub) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
type(c_ptr), intent(inout) :: c_data
integer(kind=c_long_long), intent(inout) :: c_data_size
complex(kind=c_double_complex), intent(in), VALUE:: c_select_data_type
integer(kind=c_int), intent(in), optional :: c_lb
integer(kind=c_int), intent(in), optional :: c_ub

private subroutine c_dbcsr_t_get_data_c_sp(c_tensor, c_data, c_data_size, c_select_data_type, c_lb, c_ub) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
type(c_ptr), intent(inout) :: c_data
integer(kind=c_long_long), intent(inout) :: c_data_size
complex(kind=c_float_complex), intent(in), VALUE:: c_select_data_type
integer(kind=c_int), intent(in), optional :: c_lb
integer(kind=c_int), intent(in), optional :: c_ub

private subroutine c_dbcsr_t_batched_contract_init(c_tensor) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor

private subroutine c_dbcsr_t_batched_contract_finalize(c_tensor, c_unit_nr) bind(C, name="0")

Arguments

TypeIntentOptionalAttributesName
type(c_ptr), intent(in), VALUE:: c_tensor
integer(kind=c_int), optional :: c_unit_nr