dbcsr_get_diag_s Subroutine

private subroutine dbcsr_get_diag_s(matrix, diag)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(in) :: matrix
real(kind=real_4), intent(out), DIMENSION(:) :: diag

Source Code

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

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