dbcsr_set_d Subroutine

private subroutine dbcsr_set_d(matrix, alpha)

Arguments

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

Source Code

      SUBROUTINE dbcsr_set_d (matrix, alpha)
         TYPE(dbcsr_type), INTENT(INOUT)       :: matrix
         REAL(kind=real_8), INTENT(IN)                      :: alpha

         CALL dbcsr_set_prv(matrix%prv, alpha)
      END SUBROUTINE dbcsr_set_d