Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | intent(inout) | :: | matrix | |||
real(kind=real_4), | intent(in) | :: | alpha_scalar |
SUBROUTINE dbcsr_add_on_diag_s (matrix, alpha_scalar)
TYPE(dbcsr_type), INTENT(INOUT) :: matrix
REAL(kind=real_4), INTENT(IN) :: alpha_scalar
CALL dbcsr_add_on_diag_prv(matrix%prv, alpha_scalar)
END SUBROUTINE dbcsr_add_on_diag_s