function pariominoes_print_test ( )

%*****************************************************************************80
%
%% pariominoes_print_test tests pariominoes_print.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    09 May 2020
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pariominoes_print_test\n' );
  fprintf ( 1, '  MATLAB/Octave version %s\n', version ( ) );
  fprintf ( 1, '  pariominoes_print() prints an array of pariominoes.\n' );
%
%  Define several pariominos.
%
  p1 = [ ...
    +1, -1, +1, -1 ];
  [ mp1, np1 ] = size ( p1 );

  p2 = [ ...
    +1, -1,  0; ...
     0, +1,  0; ...
     0, -1, +1 ]; 
  [ mp2, np2 ] = size ( p2 );

  p3 = [ ...
    +1,  0,  0;
    -1, +1, -1 ];
  [ mp3, np3 ] = size ( p3 );
%
%  Pack the pariominoes into a single array.
%
  mp = 3;
  np = 5;
  p_num = 3;

  p = zeros ( 3, 5, p_num );
 
  p(1:mp1,1:np1,1) = p1(1:mp1,1:np1);
  p(1:mp2,1:np2,2) = p2(1:mp2,1:np2);
  p(1:mp3,1:np3,3) = p3(1:mp3,1:np3);
%
%  Print the array of pariominoes.
%
  label = '  Array of pariominoes to be analyzed:';
  pariominoes_print ( mp, np, p_num, p, label );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'pariominoes_print_test\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
 
  return
end

