dbcsr_set_s Subroutine

private subroutine dbcsr_set_s(matrix, alpha)

Arguments

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

Source Code

      SUBROUTINE dbcsr_set_s (matrix, alpha)
         TYPE(dbcsr_type), INTENT(INOUT)       :: matrix
         REAL(kind=real_4), INTENT(IN)                      :: alpha

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