function y=P5minus(x);
% Extracts the negative chiral component
x=x(:);
ndim=max(size(x));
x=reshape(x,ndim/4,4);
%
y(:,1)=x(:,1);
y(:,2)=x(:,2);
y(:,3)=zeros(ndim/4,1);
y(:,4)=zeros(ndim/4,1);
%
x=reshape(x,ndim,1);
y=reshape(y,ndim,1);
% Copyright (C) 2006-2007 Artan Borici.
% This program is a free software licensed under the terms of the GNU General Public License