function out = openp(filename)
%OPENP   Open the matching M-file of a *.P file if one
%   exists.  Helper function for OPEN.
%
%   See OPEN.

%   Chris Portal 1-23-98
%   Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.8 $  $Date: 2000/06/01 01:25:40 $

if nargout, out = []; end
edit(filename)
