function [hl,flag] = evalhl(n,x,m,lambda,scalef,scalec)


% [hl,flag] = evalhl(n,x,m,lambda,scalef,scalec)

  flag = 0;
  
  hl = spalloc(n,n,1);
  
  hl(1,1) = scalef * 0.0 + lambda(1) * scalec(1) * 2.0 ...
            + lambda(2) * scalec(2) * 0.0;

end
