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

% 14.08.2005 - пропуски вместо Inf кодируютсЯ как NaN

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');
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=['NVS ' mon_str(mon_num,:) date_str(1:2) date_str(9:10) ' ' day_str...
      ' ' hour_str ' XYZF R EDI 03520832 000000 RRRRRRRRRRRRRRRR'];
fprintf(fid,'%s\r\n',head);

% Запись данных
tmp=round([x y z 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;