dbcsr_get_2d_block_notrans_p_d Subroutine

private subroutine dbcsr_get_2d_block_notrans_p_d(matrix, row, col, block, found, row_size, col_size)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix
integer, intent(in) :: row
integer, intent(in) :: col
real(kind=real_8), DIMENSION(:, :), POINTER:: block
logical, intent(out) :: found
integer, intent(out), optional :: row_size
integer, intent(out), optional :: col_size

Contents


Source Code

      SUBROUTINE dbcsr_get_2d_block_notrans_p_d (matrix, row, col, block, found, row_size, col_size)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix
         INTEGER, INTENT(IN)                      :: row, col
         REAL(kind=real_8), DIMENSION(:, :), POINTER        :: block
         LOGICAL, INTENT(OUT)                     :: found
         INTEGER, INTENT(OUT), OPTIONAL           :: row_size, col_size

         LOGICAL                                  :: tr

         CALL dbcsr_get_block_p_prv(matrix%prv, row, col, block, tr, found, row_size, col_size)
         IF (tr) DBCSR_ABORT("Block is transposed!")
      END SUBROUTINE dbcsr_get_2d_block_notrans_p_d