matlab_class/%40gcmfaces/convert2vector.m

function [a]=convert2array(b,varargin);

if isa(b,'gcmfaces'); do_gcmfaces2vector=1; else; do_gcmfaces2vector=0; end;

if do_gcmfaces2vector;
  bb=convert2array(b);
  a=bb(:);
else;
  c=varargin{1};
  bb=convert2array(c);
  if length(bb(:))~=length(b(:)); error('wrong size of inputs'); end;
  b=reshape(b,size(bb)); 
  a=convert2array(b,c);
end;


1	gforget	1.1	function [a]=convert2array(b,varargin);
2
3			if isa(b,'gcmfaces'); do_gcmfaces2vector=1; else; do_gcmfaces2vector=0; end;
4
5			if do_gcmfaces2vector;
6			bb=convert2array(b);
7			a=bb(:);
8			else;
9			c=varargin{1};
10			bb=convert2array(c);
11			if length(bb(:))~=length(b(:)); error('wrong size of inputs'); end;
12			b=reshape(b,size(bb));
13			a=convert2array(b,c);
14			end;
15
16
17