ErrMsg(ErrorString)

function ErrMsg(ErrorString)

% function ErrMsg(ErrorString)
%
% Error Message in graphical user interface
%
% 05.05.04 M.Penzkofer

figure('NumberTitle','off','Name','Input Error', ...
   'Units','normalized','Position',[0.30 0.45 0.40 0.10]);
uicontrol('Style','Text','String',ErrorString, ...
 'Units','normalized','Position',[0.05 0.55 0.90 0.40])
uicontrol('Style','Pushbutton','String','OK', ...
 'Callback','close',...
 'Units','normalized','Position',[0.75 0.05 0.20 0.40])