dbcsr_scale_by_vector_d Subroutine

private subroutine dbcsr_scale_by_vector_d(matrix_a, alpha, side)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix_a
real(kind=real_8), intent(in), DIMENSION(:), TARGET:: alpha
character(len=*), intent(in) :: side

Contents


Source Code

      SUBROUTINE dbcsr_scale_by_vector_d (matrix_a, alpha, side)
         TYPE(dbcsr_type), INTENT(INOUT)           :: matrix_a
         REAL(kind=real_8), DIMENSION(:), INTENT(IN), TARGET :: alpha
         CHARACTER(LEN=*), INTENT(IN)              :: side

         CALL dbcsr_scale_by_vector_prv(matrix_a%prv, alpha, side)
      END SUBROUTINE dbcsr_scale_by_vector_d