function [tha,fa,head]=gsm19_read_fun(file,Word_EOH)
% Считывание текстового файла с данными о измерении модуля F
% с помощью GSM-19W
%
%       [tha,fa,head]=gsm19_read_fun(file,Word_EOH);
%
% file      - имя файла с путем
% Word_EOH  - слово в конце заголовка, по умолчанию "datum"
% tha       - момент измерений в часах
%  fa       - модуль поля
%
% перед строками с данными д.б. строка, содержащая Word_EOH

% 03.04.2012 - С.Ю.Хомутов, Новосибирск
% 13.04.2012 - аргумент textscan() со строки заменен на канал открытого
%               файла
%            - конец заголовка определяется наличием слова "time"
% 11.05.2012 - из fopen() убран аргумент 't', т.к. иногда сбивается формат
% 05.04.2013 - слово - конец заголовка передается как аргумент ф-ции
% 23.06.2016 - адаптировано как универсальная ф-ция для чтения данных gsm19

if nargin<2,
    Word_EOH='time';
end
if ~exist(file,'file'),
    error(sprintf('!!! Не могу найти файл %s !!!\n',file));
end

fabs_fmt='%2d%2d%f %f %d';    % формат записи в файле
fid=fopen(file,'r');
head=[];
while 1,        % считываем заголовок файла до первой строки с цифрой
    str=fgetl(fid);
    if str==-1,             % конец файла
        error(['!!! Неизвестный формат файла ... ' file])
    end
    if findstr(str,Word_EOH), break, end   % конец заголовка
    if ~isempty(str),
        head=[head;{deblank(str)}];
    end
end

C=textscan(fid,fabs_fmt);  % массив cell
fclose(fid);

tha=dms_deg(double(cell2mat(C(1))),double(cell2mat(C(2))),cell2mat(C(3)));
fa=cell2mat(C(4));      % модуль поля
