function parallelogram_contains_point_3d_test ( )

%*****************************************************************************80
%
%% parallelogram_contains_point_3d_test() tests parallelogram_contains_point_3d().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 December 2010
%
%  Author:
%
%    John Burkardt
%
  ntest = 5;
%
%  In, Out, Out, Out, Out
%
  ptest(1:3,1:ntest) = [ ...
    1.0,  1.0,  0.5; ...
    3.0,  3.0,  0.0; ...
    0.5,  0.5, -0.1; ...
    0.1,  0.1,  0.5; ...
    1.5,  1.6,  0.5 ]';

  p1(1:3,1) = [ 0.0; 0.0; 0.0 ];
  p2(1:3,1) = [ 2.0; 2.0; 0.0 ];
  p3(1:3,1) = [ 1.0; 1.0; 1.0 ];

  fprintf ( 1, '\n' );
  fprintf ( 1, 'parallelogram_contains_point_3d_test():\n' );
  fprintf ( 1, '  parallelogram_contains_point_3d() determines if a point\n' );
  fprintf ( 1, '  is within a parallelogram in 3D.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '           P           Inside?\n' );
  fprintf ( 1, '\n' );

  for j = 1 : ntest

    p(1:3,1) = ptest(1:3,j);

    inside = parallelogram_contains_point_3d ( p1, p2, p3, p );

    fprintf ( 1, '  %12f  %12f  %12f  %d\n', p(1:3,1), inside );

  end

  return
end
