function vcoarse=ftoc(vfine)
% FTOC  fine to coarse intergrid transfer by full weighting
%
% function vcoarse=ftoc(vfine)
%
nf=length(vfine);
nc=.5*(nf-1)+1;
vcoarse=.5*vfine(1:2:nf);
vcoarse(2:nc-1)=vcoarse(2:nc-1)+.25*(vfine(2:2:nf-2)+vfine(4:2:nf));