function j = learnlm(p,d)
%LEARNLM Levenberg-Marquardt learning rule.
%	
%	This function is obselete.
%	Use NNT2FF and TRAIN to update and train your network.

nntobsf('learnlm','Use NNT2FF and TRAIN to update and train your network.')

%	LEARNLM(P,D)
%	  P  - RxQ matrix of input (column) vectors.
%	  D  - SxQ matrix of delta (column) vectors.
%	Returns:
%	  Partial jacobian matrix.
%	
%	See also NNLEARN, BACKPROP, INITFF, SIMFF, TRAINLM.

% Mark Beale, 12-15-93
% Copyright (c) 1992-1998 by The MathWorks, Inc.
% $Revision: 1.7 $  $Date: 1998/06/11 17:22:32 $

if nargin < 2, error('Wrong number of arguments.'),end

[R,Q]=size(p);
[S,Q]=size(d);
j = nncpy(d',R) .* nncpyi(p',S);
