function [a1cmp] = ortr(a1)
%
% [A1CMP] = ORTR(A1) produces an orthogonal complement of a
%       row type matrix via the duality of ORTC.
%

% R. Y. Chiang & M. G. Safonov 7/85
% Copyright (c) 1988 by the MathWorks, Inc.
% All Rights Reserved.
% ----------------------------------------------------------------
%
[app] = ortc(a1');
a1cmp = app';
%
% ----- End of ORTR.M ---- RYC/MGS 7/85 %
