function [aa] = unstkc(a,m,n)
%
% UNSTKC unstack a long column vector into mxn matrix, column by column.
%

% R. Y. Chiang & M. G. Safonov 5/85
% Copyright (c) 1988 by the MathWorks, Inc.
% All Rights Reserved.

aa = ones(m,n);
aa(:) = a;
%
% ------- End of UNSTKC.M ---- RYC/MGS 5/85 %