function disp_field(F,format_single)

% Вывод на экран элементов магнитного полЯ в заданном формате
%
%        disp_field(F[,format_single])
%
%             F - матрица длЯ вывода
% format_single - задаваемый формат в виде ' %5.1f' (по умолчанию
%                 используетсЯ '%9.2f')
%

% 17.07.2004, Khomutov S.Y.

[m,n]=size(F);  % размер выводимой на экран матрицы

if nargin<2,
    format_single=' %9.2f';    % элемент формата по умолчанию
elseif ~strncmp(format_single,' ',1),   % без лидирующего пробела
    format_single=[' ' format_single];
end

% Формируем строку формата вывода
format_field=[repmat(format_single,1,n) '\n'];

fprintf(format_field,F')