function [hp,goth,flag] = evalhlp(n,x,m,lambda,sf,sc,p,goth,flag)

% [hp,goth,flag] = evalhlp(n,x,m,lambda,sf,sc,p,goth,flag)

  flag = 0;

  goth = 0;
  
  hp = zeros(n,1);
  
  hp(1) = p(1) * (sf * 0.0 + lambda(1) * sc(1) * 2.0 ...
                  + lambda(2) * sc(2) * 0.0);
  
end
