%% TEST12 tests ZMACH.
%
%  Modified:
%
%    16 May 2006
%
%  Author:
%
%    John Burkardt
%
  clear

  fprintf ( 1, '\n');
  fprintf ( 1, 'TEST12\n' );
  fprintf ( 1, '  ZMACH computes several machine-dependent\n' );
  fprintf ( 1, '  complex arithmetic parameters.\n' );

  fprintf ( 1, '\n' );
  fprintf ( 1, '  ZMACH(1)  = machine epsilon = %f\n', zmach ( 1 ) );
  fprintf ( 1, '  ZMACH(2)  = a tiny value    = %f\n', zmach ( 2 ) );
  fprintf ( 1, '  ZMACH(3)  = a huge value    = %f\n', zmach ( 3 ) );