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

% WRITTEN BY       : Kenth Engų, 1999 Mar.
% LAST MODIFIED BY : Kenth Engų, 1999.04.04

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;

