subplotrc

A totally trivial function that I keep on rewriting in line over and over again. Must be somewhere I'm missing or I'm missing something. Here it is in it's "glorious" entirety (-;
---------
function h=subplotrc(varargin)
% function h=subplotrc(varargin) - extension of subplot
% subplotrc(m,n,r,c) put suplot in row r, column c of figure;
% all other forms passed through to subplot without alteration
if(length(varargin)==4 && all(cellfun(@isnumeric,varargin)))
p=sub2ind([varargin{2},varargin{1}],varargin{4},varargin{3});
h=subplot(varargin{1},varargin{2},p);
else
h=subplot(varargin{:})
end
if(nargout == 0)
clear h;
end