function [nday,X0,Y0,Z0]=ibfv111_read(file);
% Чтение базисных значений длЯ каждых суток из
% стандартного файла Internagnet в формате IBFV1.11
% 
%   [nday,X0,Y0,Z0]=ibfv111_read(file);
%
% file - файл с базисными значениЯми
% nday - порЯдковый день в году
% X0,Y0,Z0 - базисные значениЯ на каждые сутки

nday=[]; X0=[]; Y0=[]; Z0=[];

fid=fopen(file,'r');
if fid==-1, error(['!!! Не могу открыть файл ' file ' !!!']), end
tmp=fread(fid); % считываем все в бинарном виде
fclose(fid);

str=char(tmp'); % переводим в символьный вид, включаЯ <CR> и <LF>
k=findstr(str,'*'); % ищем символ '*' - разделитель секций
if isempty(k),
    disp('!!! Не могу найти символ "*" в файле базисных значений !!!')
    return
end

tmp=str2num(str(k(1)+1:k(2)-1)); % приводим к числовому формату
nday=tmp(:,1);
X0=tmp(:,2)/10; Y0=tmp(:,3)/10; Z0=tmp(:,4)/10;
