Function: weber
Section: transcendental
C-Name: weber0
Prototype: GD0,L,p
Help: weber(x,{flag=0}): One of Weber's f function of x. flag is optional,
 and can be 0: default, function f(x)=exp(-i*Pi/24)*eta((x+1)/2)/eta(x) such
 that (j=(f^24-16)^3/f^24), 1: function f1(x)=eta(x/2)/eta(x) such that
 (j=(f1^24+16)^3/f2^24), 2: function f2(x)=sqrt(2)*eta(2*x)/eta(x) such that
 (j=(f2^24+16)^3/f2^24)

