dbcsr_scale_d Subroutine

private subroutine dbcsr_scale_d(matrix_a, alpha_scalar, last_column)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix_a
real(kind=real_8), intent(in) :: alpha_scalar
integer, intent(in), optional :: last_column

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_scale_d (matrix_a, alpha_scalar, last_column)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix_a
         REAL(kind=real_8), INTENT(IN)                      :: alpha_scalar
         INTEGER, INTENT(IN), OPTIONAL            :: last_column

         CALL dbcsr_scale_prv(matrix_a%prv, alpha_scalar, last_column)
      END SUBROUTINE dbcsr_scale_d