0001 function display(elemmatrix)
0002
0003
0004
0005
0006 disp(sprintf('\n%s = \n',inputname(1)));
0007
0008 if ~isnan(elemmatrix.nrows),
0009 for i=1:elemmatrix.nrows,
0010
0011 disp(sprintf(' row: %i',i));
0012 disp(sprintf(' local_row_index local_col_index global_row_index global_col_index value\n'));
0013
0014 for j=1:elemmatrix.nrows,
0015 disp(sprintf(' %8i %16i %16i %16i %16g\n', i, j, elemmatrix.row_indices(i),elemmatrix.row_indices(j),elemmatrix.terms(i,j)));
0016 end
0017 end
0018 else
0019 disp('elemmatrix object is empty');
0020 end