function [v] = project(a,m)
% PROJECT - Returns vector 'v' which is acceptable in LGRN.
% function [v] = project(a,m)

% WRITTEN BY       : Kenth Engų, 1997 Oct.
% LAST MODIFIED BY : Kenth Engų, 1999.04.07

global DMARGCHK

n = a(1).shape;
len = length(a);

if DMARGCHK,
  if isempty(n),
    error('Update variable has no shape.');
  end;
  if ~(all(size(m)==[n,len])),
    error('Input vector has not correct size!');
  end;
end;

v = m;
return;

