


PZMRESP shadow function for the pzmodel/resp.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: PZMRESP shadow function for the pzmodel/resp.
A parameter called 'pzmodel' is extracted and passed with the
remaining parameter list to pzmodel/resp.
CALL: resp_pzm = pzmresp(pl)
VERSION: $Id: pzmresp.m,v 1.3 2007/12/12 18:45:09 ingo Exp $
HISTORY: 19-04-2007 M Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function a = pzmresp(pl, varargin) 0002 % PZMRESP shadow function for the pzmodel/resp. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: PZMRESP shadow function for the pzmodel/resp. 0007 % A parameter called 'pzmodel' is extracted and passed with the 0008 % remaining parameter list to pzmodel/resp. 0009 % 0010 % CALL: resp_pzm = pzmresp(pl) 0011 % 0012 % VERSION: $Id: pzmresp.m,v 1.3 2007/12/12 18:45:09 ingo Exp $ 0013 % 0014 % HISTORY: 19-04-2007 M Hewitson 0015 % Creation 0016 % 0017 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0018 0019 VERSION = '$Id: pzmresp.m,v 1.3 2007/12/12 18:45:09 ingo Exp $'; 0020 0021 %%%%% Check if this is a call for parameters %%%%% 0022 if nargin == 2 0023 if isa(pl, 'plist') && ischar(varargin{1}) 0024 in = char(varargin{1}); 0025 if strcmp(in, 'Params') 0026 a = plist; 0027 return 0028 elseif strcmp(in, 'Version') 0029 a = VERSION; 0030 return 0031 end 0032 end 0033 end 0034 0035 pzm = find(pl, 'pzmodel'); 0036 if isempty(pzm) || ~isa(pzm, 'pzmodel') 0037 error('### no pzmodel found in parameter list.') 0038 end 0039 0040 if nargout == 0 0041 resp(pzm, pl); 0042 else 0043 a = resp(pzm, pl); 0044 end 0045 0046 % END