dbcsr_tensor_api_c

private subroutine c_f_string(c_str, str)

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in)			::	c_str
character(kind=c_char, len=:),	intent(out),		ALLOCATABLE	::	str

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

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_pgrid_create_expert")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_pgrid_create")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_pgrid_destroy")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_distribution_new")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_distribution_destroy")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_create_new")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_create_template")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_create_matrix")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_destroy")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_contract_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_contract_index_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_contract_r_sp")

Arguments

Type	Intent	Optional	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

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

Arguments

Type	Intent	Optional	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)			::	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="c_dbcsr_t_contract_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_contract_index_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_contract_c_sp")

Arguments

Type	Intent	Optional	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),		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="c_dbcsr_t_contract_index_c_sp")

Arguments

Type	Intent	Optional	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

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

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_r_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_r_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_2d_block_r_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_r_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_r_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_2d_block_c_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_c_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_c_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_2d_block_c_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_c_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_c_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_put_2d_block_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_3d_block_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_4d_block_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_2d_block_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_3d_block_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_4d_block_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_2d_block_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_3d_block_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_4d_block_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_2d_block_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_3d_block_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_put_4d_block_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_get_2d_block_p_r_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_p_r_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_p_r_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_2d_block_p_r_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_p_r_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_p_r_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_2d_block_p_c_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_p_c_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_p_c_dp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_2d_block_p_c_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_3d_block_p_c_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_4d_block_p_c_sp")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_stored_coordinates")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_reserve_blocks_index")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_reserve_blocks_template")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_iterator_start")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_iterator_stop")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_iterator_next_block")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_split_blocks")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_filter_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_filter_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_filter_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_filter_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_set_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_set_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_set_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_set_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_copy_matrix_to_tensor")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_copy_tensor_to_matrix")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_blk_sizes")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_copy")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_scale_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_scale_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_scale_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_scale_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_clear")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_get_info")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_get_mapping_info")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_dims")

Arguments

Type	Intent	Attributes		Name
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="c_dbcsr_t_get_data_r_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_get_data_r_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_get_data_c_dp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_get_data_c_sp")

Arguments

Type	Intent	Optional	Attributes		Name
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="c_dbcsr_t_batched_contract_init")

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in),		VALUE	::	c_tensor

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

Arguments

Type	Intent	Optional	Attributes		Name
type(c_ptr),	intent(in),		VALUE	::	c_tensor
integer(kind=c_int),		optional		::	c_unit_nr

dbcsr_tensor_api_c Module

Contents

Functions

Subroutines

Uses

Functions

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

Arguments

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

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

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

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

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

Return Value integer(kind=c_int)

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

Arguments

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

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

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

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

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

Return Value integer(kind=c_long_long)

Subroutines

private subroutine c_f_string(c_str, str)

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

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

Arguments

Arguments

Arguments

Arguments

Arguments

Arguments

Arguments

Arguments

Arguments

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

Arguments

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

Arguments

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

Arguments

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