function my_status=hdzf_hour_out_khb(date_str,hour_str,h,d,z,f);
% Вывод данных длЯ часового блока в формате  IMFV1.28 (ASCII)
%
% Вызов:     my_status=hdzf_hour_out_khb(date_str,hour_str,h,d,z,f);
%
% h,z,f - в нТл
% d - в град.

mon_str=['JAN';'FEB';'MAR';'APR';'MAY';'JUN';...
         'JUL';'AUG';'SEP';'OCT';'NOV';'DEC'];
year_num=str2num(date_str(7:10));
mon_num=str2num(date_str(4:5));
day_num=str2num(date_str(1:2));

% имЯ файла в формате MONddyy.hh
%file=[mon_str(mon_num,:) date_str(1:2) date_str(9:10) '.' hour_str];
%fid=fopen(['data_imn\' file],'w');
% имЯ файла в формате MONddyy.khb
file=[mon_str(mon_num,:) date_str(1:2) date_str(9:10) '.khb'];
if exist(['data_imn\' file],'file'),
    File_Attr=dir(['data_imn\' file]);
    if File_Attr.bytes>=47616,
        delete(['data_imn\' file]);
    end
end
fid=fopen(['data_imn\' file],'a');
if fid==-1, my_status=-1, return, end  % не могу открыть файл

% запись заголовка часового блока
day_str=int2str(day_of_year(day_num, mon_num, year_num));
switch length(day_str)
    case 1, day_str=['00' day_str];
    case 2, day_str=['0' day_str];
end
head=['KHB ' mon_str(mon_num,:) date_str(1:2) date_str(9:10) ' ' day_str...
      ' ' hour_str ' HDZF R EDI 04241346 000000 RRRRRRRRRRRRRRRR'];
fprintf(fid,'%s\r\n',head);

% Запись данных
tmp=round([h*10 d*60*100 z*10 f*10]);
k=isnan(tmp); tmp(k)=999999;
fprintf(fid,'%7.0f %7.0f %7.0f %6.0f  %7.0f %7.0f %7.0f %6.0f\r\n',tmp');
fclose(fid);
if fid==-1, my_status=-2, return, end  % не могу закрыть файл
my_status=0;
