Lines Matching refs:absx
111 double absx, y;
146 absx = sign ? -x : x;
149 y = absx + gmhalf;
150 if (absx > gmhalf) {
151 dy = y - absx;
155 dy -= absx;
158 z = absx - 0.5;
159 r = S(absx) * exp(-y);
162 /* sinpi(absx) is not 0, integers are already handled */
163 r = -pi / (sinpi(absx) * absx * r);
176 double r, absx;
194 absx = fabs(x);
197 if (absx < 0x1p-54) {
199 return -log(absx);
203 if (absx < 128) {
211 r = (absx-0.5)*(log(absx+gmhalf)-1) + (log(S(absx)) - (gmhalf+0.5));
214 x = sinpi(absx);
216 r = log(pi/(fabs(x)*absx)) - r;