function [] = setshape(a,sh)
% SETSHAPE - Sets the shape information in LGON.
% function [] = setshape(a,sh)

% WRITTEN BY       : Kenth Engų, 1997.10.09
% LAST MODIFIED BY : Kenth Engų, 1999.04.12

global DMARGCHK

name = inputname(1);
if DMARGCHK,
  if isempty(name),
    error('First argument to set must be a named variable');
  end;
  if ~(isinteger(sh)), error('Shape should be an integer!'); end;
  if sh<1, error('Shape should be positive!'); end;
end;

a.shape = sh;
a.data  = [];
assignin('caller',name,a);
return;
