Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | intent(inout) | :: | matrix | |||
complex(kind=real_4), | intent(in), | DIMENSION(:) | :: | diag |
SUBROUTINE dbcsr_set_diag_c (matrix, diag)
TYPE(dbcsr_type), INTENT(INOUT) :: matrix
COMPLEX(kind=real_4), DIMENSION(:), INTENT(IN) :: diag
CALL dbcsr_set_diag_prv(matrix%prv, diag)
END SUBROUTINE dbcsr_set_diag_c