dbcsr_get_diag_z Subroutine

private subroutine dbcsr_get_diag_z(matrix, diag)

Arguments

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

Source Code

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

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