isequal.m

function res = isequal(grid,grid2)
%function res = isequal(grid,grid2)
% function comparing two grids field by field
%
% parameters:
%  grid2: the grid we want to compare with
%
% Return values:
%  res: boolean indicating whether the two grids are equal

% Bernard Haasdonk 15.2.2011

fields = {'nelements','nvertices','nneigh','A','Ainv','VI','X','Y','CX',...
          'CY','NBI','INB','EL','DC','NX','NY','ECX','ECY','SX','SY','ESX',...
          'DS','hmin','alpha','JIT'};

res = 1;
for i = 1:length(fields)
  res = res && isequal(getfield(grid,fields{i}),getfield(grid2,fields{i}));
end