Put a 2D block in a DBCSR matrix
Type  Intent  Optional  Attributes  Name  

type(dbcsr_type),  intent(inout)  ::  matrix  DBCSR matrix 

integer,  intent(in)  ::  row  the row the column 

integer,  intent(in)  ::  col  the row the column 

real(kind=real_4),  intent(in),  DIMENSION(:, :), CONTIGUOUS, TARGET  ::  block  the block to put 

integer,  intent(inout),  optional  DIMENSION(2)  ::  lb_row_col  
logical,  intent(in),  optional  ::  transposed  the block is transposed if block exists, then sum the new block to the old one instead of replacing it 

logical,  intent(in),  optional  ::  summation  the block is transposed if block exists, then sum the new block to the old one instead of replacing it 

integer(kind=int_8),  intent(inout),  optional  ::  flop  
real(kind=real_4),  intent(in),  optional  ::  scale  scale the block being added 
SUBROUTINE dbcsr_put_block2d_s (matrix, row, col, block, lb_row_col, transposed, &
summation, flop, scale)
!! Put a 2D block in a DBCSR matrix
TYPE(dbcsr_type), INTENT(INOUT) :: matrix
!! DBCSR matrix
INTEGER, INTENT(IN) :: row, col
!! the row
!! the column
REAL(kind=real_4), DIMENSION(:, :), INTENT(IN), &
CONTIGUOUS, TARGET :: block
!! the block to put
INTEGER, DIMENSION(2), OPTIONAL, INTENT(INOUT) :: lb_row_col
LOGICAL, INTENT(IN), OPTIONAL :: transposed, summation
!! the block is transposed
!! if block exists, then sum the new block to the old one instead of replacing it
INTEGER(KIND=int_8), INTENT(INOUT), OPTIONAL :: flop
REAL(kind=real_4), INTENT(IN), OPTIONAL :: scale
!! scale the block being added
REAL(kind=real_4), DIMENSION(:), POINTER :: block_1d
NULLIFY (block_1d)
block_1d(1:SIZE(block)) => block
CALL dbcsr_put_block(matrix, row, col, block_1d, lb_row_col, transposed, summation, flop, scale)
END SUBROUTINE dbcsr_put_block2d_s