dbcsr_get_diag_d Subroutine

private subroutine dbcsr_get_diag_d(matrix, diag)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(in) :: matrix
real(kind=real_8), intent(out), DIMENSION(:):: diag

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_get_diag_d (matrix, diag)
         TYPE(dbcsr_type), INTENT(IN)                       :: matrix
         REAL(kind=real_8), DIMENSION(:), INTENT(OUT)                 :: diag

         CALL dbcsr_get_diag_prv(matrix%prv, diag)
      END SUBROUTINE dbcsr_get_diag_d