dbcsr_add_on_diag_c Subroutine

private subroutine dbcsr_add_on_diag_c(matrix, alpha_scalar)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix
complex(kind=real_4), intent(in) :: alpha_scalar

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_add_on_diag_c (matrix, alpha_scalar)
         TYPE(dbcsr_type), INTENT(INOUT)                    :: matrix
         COMPLEX(kind=real_4), INTENT(IN)                                :: alpha_scalar

         CALL dbcsr_add_on_diag_prv(matrix%prv, alpha_scalar)
      END SUBROUTINE dbcsr_add_on_diag_c