function value = ch_is_format_code ( c )

%*****************************************************************************80
%
%% ch_is_format_code() returns true if a character is a FORTRAN format code.
%
%  Discussion:
%
%    The format codes accepted here are not the only legal format
%    codes in FORTRAN90.  However, they are more than sufficient
%    for my needs!
%
%  Table:
%
%    A  Character
%    B  Binary digits
%    D  Real number, exponential representation
%    E  Real number, exponential representation
%    F  Real number, fixed point
%    G  General format
%    I  Integer
%    L  Logical variable
%    O  Octal digits
%    Z  Hexadecimal digits
%    *  Free format
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    21 November 2003
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    character C, the character to be analyzed.
%
%  Output:
%
%    logical VALUE, is true if C is a FORTRAN format code.
%
      if ( ch_eqi ( c, 'A' ) )
    value = true;
  elseif ( ch_eqi ( c, 'B' ) )
    value = true;
  elseif ( ch_eqi ( c, 'D' ) )
    value = true;
  elseif ( ch_eqi ( c, 'E' ) )
    value = true;
  elseif ( ch_eqi ( c, 'F' ) )
    value = true;
  elseif ( ch_eqi ( c, 'G' ) )
    value = true;
  elseif ( ch_eqi ( c, 'I' ) )
    value = true;
  elseif ( ch_eqi ( c, 'L' ) )
    value = true;
  elseif ( ch_eqi ( c, 'O' ) )
    value = true;
  elseif ( ch_eqi ( c, 'Z' ) )
    value = true;
  elseif ( c == '*' )
    value = true;
  else
    value = false;
  end

  return
end
 
