matlab_class/%40gcmfaces/reshape.m

function r = reshape(p,varargin)
% RESHAPE Reshape gcmfaces object
%  Calls usual reshape for each face in a loop.
%  The first two dimensions sizes (that differ amongst faces)
%  are left unchanged; the others are set according to the
%  input parameter specification (see help reshape).

r=p;

for iFace=1:r.nFaces;
   iF=num2str(iFace);
   eval(['tmpsiz=size(p.f' iF ');']);
   if nargin>2;
     tmpsiz=[tmpsiz(1:2) varargin{3:end}]; 
   else;
     tmpsiz=[tmpsiz(1:2) varargin{1}(3:end)];
   end;
   eval(['r.f' iF '=reshape(p.f' iF ',tmpsiz);']); 
end;


1	gforget	1.1	function r = reshape(p,varargin)
2			% RESHAPE Reshape gcmfaces object
3			% Calls usual reshape for each face in a loop.
4			% The first two dimensions sizes (that differ amongst faces)
5			% are left unchanged; the others are set according to the
6			% input parameter specification (see help reshape).
7
8			r=p;
9
10			for iFace=1:r.nFaces;
11			iF=num2str(iFace);
12			eval(['tmpsiz=size(p.f' iF ');']);
13			if nargin>2;
14			tmpsiz=[tmpsiz(1:2) varargin{3:end}];
15			else;
16			tmpsiz=[tmpsiz(1:2) varargin{1}(3:end)];
17			end;
18			eval(['r.f' iF '=reshape(p.f' iF ',tmpsiz);']);
19			end;
20
21