dbcsr_t_write_block Subroutine

public subroutine dbcsr_t_write_block(name, blk_size, blk_index, proc, unit_nr, blk_values_2, blk_values_3, blk_values_4, write_int)

Write a tensor block

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name

tensor name

integer, intent(in), DIMENSION(:) :: blk_size

block size

integer, intent(in), DIMENSION(:) :: blk_index

block index

integer, intent(in) :: proc

which process am I

integer, intent(in) :: unit_nr

unit number

real(kind=real_8), intent(in), optional, DIMENSION(blk_size(1), blk_size(2)) :: blk_values_2

block values for 2 dimensions

real(kind=real_8), intent(in), optional, DIMENSION(blk_size(1), blk_size(2), blk_size(3)) :: blk_values_3

block values for 2 dimensions

real(kind=real_8), intent(in), optional, DIMENSION(blk_size(1), blk_size(2), blk_size(3), blk_size(4)) :: blk_values_4

block values for 2 dimensions

logical, intent(in), optional :: write_int

write_int convert values to integers