function [s,ipndp,kom,jn]=nact(d)

% vytvori cellarray ze souboru a oindexuje podkapitoly, 
% komentare a zacatky prikladu
%
% d ...... soubor k nacteni (v uvozovkach)
% s ...... je cellarray davky
% ipndp .. jsou pozice podkapitol
% kom .... jsou pozice komentaru
% jn ..... jn=0 ... zacatek podkapitoly pro tvor.m
%
% Pr: [s,ipndp,kom]=nact('matsem6.m')
%

  
fid=fopen(d,'r');
a=0;
i=1;

while i>0    %nacteni souboru do cellarray
a=fgetl(fid);
s(i,1)={a};
if not(ischar(a))
i=a;
else
i=i+1;
end
end

pndp=strncmp(s,'%=',2); %pozice podnadpisu
ipndp=find(pndp);
n=length(ipndp);
inpndp=ipndp(1:n-1);

pndpc=s(inpndp+1);  %cellarray podnadpisu

kom=strncmp(s,'%%',2);  %pozice komentaru
%zpr=strncmp(s,'%P',2);  %pozice zacatku prikladu nepotrebne
%kpr=strncmp(s,'clc',3);   %pozice koncu prikladu nepotrebne
jn=0;
    
fclose(fid);





