summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci
blob: d8883e6c7376ea900d0f16cc8391267123cce7a5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// 09.10.03

function Out=Assignadd(varargin)
  global ASSIGNLIST;
  Nargs=length(varargin);
  L=ASSIGNLIST;
  Is=length(L);
  for I=1:Nargs
    L(I+Is)=varargin(I);
  end;
  ASSIGNLIST=L;
  Out=L;
endfunction;