c_dbcsr_t_put_4d_block_r_sp Subroutine

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