function close_file()
% Schliesst das Dokument, das mit open_file geoeffnet wurde. Dokumentiert das
% Ergbnis mit einer Meldung in der MatLab-Konsole

global file_id;

success = fclose(file_id);      % Datei schliessen

% Ausgabe in die MatLab-Konsole
if success == 0
    disp('Die Datei wurde geschlossen.')
else
    disp('Die Datei konnte nicht geschlossen werden. Vorgang abgebebrochen.')
end