function pgm_display ( filename )

%*****************************************************************************80
%
%% pgm_display() displays a PGM image file.
%
%  Discussion:
%
%    PGM is a "Portable Gray Map".
%
%    It has both an ASCII and binary format.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    23 December 2018
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    string FILENAME, the name of the file.
%
  I = imread ( filename );

  colormap ( gray(256) );

  image ( I );

  title ( filename, 'FontSize', 16 );

  set ( gca, 'Xtick', [], 'Ytick', [] );

  daspect ( [ 1, 1, 1] );

  return
end
