Ubernoulli

PURPOSE

function b=Ubernoulli(x,sg)

   b=Ubernoulli(x,sg)
   
   Bernoulli function
   b = B(x)=x/(exp(x)-1) if sg==1
   b = B(-x)=x+B(x)      if sg==0
   also works if x is a vector

This function calls:

This function is called by:

Udriftdiffusion A=Udriftdiffusion(x,psi,coeff)
Uscharfettergummel A=Uscharfettergummel(nodes,Nnodes,elements,Nelements,acoeff,bcoeff,v)