FUNCTION dbcsr_name(matrix) RESULT(name) TYPE(dbcsr_type), INTENT(IN) :: matrix CHARACTER(len=default_string_length) :: name name = matrix%name END FUNCTION dbcsr_name