matlab_class/%40gcmfaces/m_ll2xy.m

function [xx,yy] = m_ll2xy(x,y,varargin)

xx=x; yy=y;

for iFace=1:x.nFaces;
   iF=num2str(iFace); 
   eval(['[tmpx,tmpy]=m_ll2xy(x.f' iF ',y.f' iF ',varargin{:});']);
   eval(['xx.f' iF '=tmpx; yy.f' iF '=tmpy;']); 
end;


1	function [xx,yy] = m_ll2xy(x,y,varargin)
2
3	xx=x; yy=y;
4
5	for iFace=1:x.nFaces;
6	iF=num2str(iFace);
7	eval(['[tmpx,tmpy]=m_ll2xy(x.f' iF ',y.f' iF ',varargin{:});']);
8	eval(['xx.f' iF '=tmpx; yy.f' iF '=tmpy;']);
9	end;
10
11