%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