source: prdatasets/pr_callername.m

%PR_CALLERNAME
%
% Needed here as it doen not exist in some old versions of PRTools
%
%   NAME = PR_CALLERNAME
%
% Returns the name of the calling function 

function name = pr_callername

[ss,i] = dbstack;
if length(ss) < 3
        name = [];
else
        name = ss(3).name;
end