function [S,flag] = evalh(n,x)

% [S,flag] = evalh(n,x)

  flag = 0;
  
  S = spalloc(n,n,0);

end
