summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci
blob: 4b8b932b6ac3ed942a642a393c5247048fff541e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//  09.09.10

function Setcounter(varargin)
  global GCOUNTER;
  Nargs=length(varargin);
  if Nargs==0
    N=1;
  else
    N=varargin(1);
  end;
  GCOUNTER=N;
endfunction;