Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | intent(inout) | :: | matrix | |||
real(kind=real_8), | intent(in) | :: | alpha |
SUBROUTINE dbcsr_add_on_diag_ds(matrix, alpha)
TYPE(dbcsr_type), INTENT(INOUT) :: matrix
REAL(kind=real_8), INTENT(IN) :: alpha
IF (dbcsr_get_data_type(matrix) == dbcsr_type_real_4) THEN
CALL dbcsr_add_on_diag_s(matrix, REAL(alpha, kind=real_4))
ELSE
CALL dbcsr_add_on_diag_d(matrix, alpha)
END IF
END SUBROUTINE dbcsr_add_on_diag_ds