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