heqa.SGB <-
function(x,d,u,bound,shape1,...){
   a  <- x[1]
   
   h <- vector()
   h[1] <- a-shape1
   return(h)
}