dbcsr_get_diag_c Subroutine

private subroutine dbcsr_get_diag_c(matrix, diag)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(in) :: matrix
complex(kind=real_4), intent(out), DIMENSION(:):: diag

Contents

Source Code


Source Code

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

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