function [T,Data]=go32_read_fun(file,go32_fmt);
% Считывание данных из файла, записанного в стиле GO32
%
% [T,Data]=go32_read_fun(file[,go32_fmt]);
%
% file      - имя файла
% go32_fmt  - строка, описывающая формат. Если не задана, формат
%           определяется по первой записи в файле
% T         - сериальная дата
% Data      - матрица с данными
%
% Формат данных в файле, записанного в стиле GO32
% 2014.07.01    00:00:00	 24.1	 54.0	728.8	 25.50	337.5	996.1
% 2014.07.01    00:10:00	 24.4	 53.0	728.8	  0.90	 45.0	995.9
% ********************** - это жесткий формат
% далее - столбцы разного формата, раделенные табулятором

% 19.09.2014 - С.Ю.Хомутов, Паратунка, Камчатка

if ~exist(file,'file'),
    error(['Не могу найти файл ... ' file])
end

if nargin<2,    % формат не задан, определяем сами
    fid=fopen(file,'rt');
    str=fgetl(fid);
    N_tab=strfind(str,char(9)); % кол-во табуляторов = кол-ву столбцов с данными
    str_fmt=repmat(' %f',1,length(N_tab));
    go32_fmt=['%4d.%2d.%2d %d:%d:%d' str_fmt];
    fseek(fid,0,-1);    % возвращаемся в начало файла
end

% Считываем данные в структуру С
C=textscan(fid,go32_fmt);
fclose(fid);    % закрываем файл

T=datenum(double(cell2mat(C(1:6)))); % сериальная дата
Data=cell2mat(C(7:length(C)));
