function [T,Data]=ik_read_fun(file)
% чтение данных из файлов типа ik*.*
%
%       [T,Data]=ik_read_fun(file);
%
%    T - сериальная дата
% Data - массив данных

% 28.04.2018 - S.Khomutov, Paratunka, Russia
% 22.01.2019 - пропуски в данных "---" трактуются как NaN

format_data='%22c';

%

% format='%22c %f %f %f %f %f %f\n'
fid=fopen(file,'rt');

% Определяем формат данных (кол-во столбцов)
str=fgetl(fid);
tmp=str2num(str(23:length(str)));
Ncol=length(tmp);
frewind(fid);    % возврат на начало

for k=1:Ncol
    format_data=[format_data ' %f'];
end
format_data=[format_data '\n'];
% считываем данные в структуру C
C=textscan(fid,format_data,'TreatAsEmpty','---');
fclose(fid);
T=datenum(C{1},'yyyy.mm.dd   HH:MM:SS');

% заполняем массив данных
Data=ones(length(T),Ncol)*NaN;
for k=1:Ncol, Data(:,k)=C{k+1}; end
