summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci
blob: 82e9ac4831c33448d8d20645efed35afe51ded05 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//
// 08.05.31

function Ndm=Dataindex(P)
  //  %inf;%inf  -> end
  Ndm=[];
  if P==[] return; end
  N1=1;
  Flg=0;
  for J=1:size(P,1)
    if P(J,1)==%inf
      Ndm=[Ndm;N1,J-1];
      N1=J+1;
      if P(N1,1)==%inf
        Flg=1;
        break;
      end
    end
  end
  if Flg==0
    Ndm=[Ndm;N1,size(P,1)];
  end
endfunction