function c = r8mat_mtm ( n1, n2, n3, a, b )

%*****************************************************************************80
%
%% r8mat_mtm() computes the matrix product C = A' * B.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 September 2012
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the order of the matrices.
%
%    real A(N2,N1), B(N2,N3), the matrices to multiply.
%
%  Output:
%
%    real C(N1,N3), the product matrix C = A' * B.
%
  c(1:n1,1:n3) = a(1:n2,1:n1)' * b(1:n2,1:n3);

  return
end
