function diophantine_test01 ( )

%*****************************************************************************80
%
%% diophantine_test01() tests diophantine() on a small problem.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    11 March 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'diophantine_test01():\n' );
  fprintf ( 1, '  Solve one Diophantine equation in two variables.\n' );

  a = [ 91; 21 ];
  b = 7;
  diophantine_equation_print ( a, b );

  [ d, v, B ] = diophantine_basis ( a, b );

  diophantine_basis_print ( d, v, B );

  r = diophantine_residual ( a, b, v );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  The residual for the particular solution with c=0 is %d\n', r );

  return
end

