dbcsr_add_on_diag_ds Subroutine

private subroutine dbcsr_add_on_diag_ds(matrix, alpha)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(inout) :: matrix
real(kind=real_8), intent(in) :: alpha

Contents

Source Code

dbcsr_add_on_diag_ds

Source Code

   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