dbcsr_reserve_block2d_s Subroutine

private subroutine dbcsr_reserve_block2d_s(matrix, row, col, block, transposed, existed)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix
integer, intent(in) :: row
integer, intent(in) :: col
real(kind=real_4), DIMENSION(:, :), POINTER:: block
logical, intent(in), optional :: transposed
logical, intent(out), optional :: existed

Contents


Source Code

      SUBROUTINE dbcsr_reserve_block2d_s (matrix, row, col, block, transposed, existed)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix
         INTEGER, INTENT(IN)                      :: row, col
         REAL(kind=real_4), DIMENSION(:, :), POINTER        :: block
         LOGICAL, INTENT(IN), OPTIONAL            :: transposed
         LOGICAL, INTENT(OUT), OPTIONAL           :: existed

         CALL dbcsr_reserve_block2d_prv(matrix%prv, row, col, block, &
                                        transposed, existed)
      END SUBROUTINE dbcsr_reserve_block2d_s