dbcsr_scale_c Subroutine

private subroutine dbcsr_scale_c(matrix_a, alpha_scalar, last_column)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(inout) :: matrix_a
complex(kind=real_4), intent(in) :: alpha_scalar
integer, intent(in), optional :: last_column

Source Code

      SUBROUTINE dbcsr_scale_c (matrix_a, alpha_scalar, last_column)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix_a
         COMPLEX(kind=real_4), 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_c