dbcsr_scale_z Subroutine

private subroutine dbcsr_scale_z(matrix_a, alpha_scalar, last_column)

Arguments

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

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_scale_z (matrix_a, alpha_scalar, last_column)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix_a
         COMPLEX(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_z