c_dbcsr_t_get_2d_block_r_dp Subroutine

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 IntentOptional 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