SUBROUTINE dbcsr_triu(matrix) TYPE(dbcsr_type), INTENT(INOUT) :: matrix CALL dbcsr_triu_prv(matrix%prv) END SUBROUTINE dbcsr_triu