Ultrix-3.1/src/libm/tags

Copyright	ranm.s	/^\/   Copyright (c) Digital Equipment Corporation 19/
DPOLYD	erf.c	/^#define DPOLYD(y, p, q)	for (n = d = 0, i = sizeof/
acos	asin.c	/^acos(x)$/
add	ranm.s	/^       add     (sp)+,r2$/
asin	asin.c	/^asin(x)$/
asin_acos	asin.c	/^asin_acos(x, acosflag)$/
at	ranm.s	/^\/\/ put the result at (r4)$/
atan	atan.c	/^atan(x)$/
atan2	atan.c	/^atan2(y, x)$/
bit	ranm.s	/^\/\/ the following code multiplies two 31-bit (posit/
cabs	hypot.c	/^cabs(arg)$/
ceil	floor.c	/^ceil(x)$/
cos	sin.c	/^cos(x)$/
cosh	sinh.c	/^cosh(x)$/
erf	erf.c	/^erf(x)$/
erfc	erf.c	/^erfc(x)$/
exp	exp.c	/^exp(x)$/
fabs	fabs.c	/^fabs(x)$/
floor	floor.c	/^floor(x) $/
fmod	fmod.c	/^fmod(x, y)$/
gamma	gamma.c	/^gamma(x)$/
hypot	hypot.c	/^hypot(a, b)$/
j0	j0.c	/^j0(x)$/
j0_asympt	j0.c	/^j0_asympt(x, n, j0flag)$/
j1	j1.c	/^j1(x)$/
j1_asympt	j1.c	/^j1_asympt(x, n, j1flag)$/
jn	jn.c	/^jn(n, x)$/
jn_error	jn.c	/^jn_error(n, x, jnflag)$/
log	log.c	/^log(x)$/
log10	log.c	/^log10(x)$/
log_error	log.c	/^log_error(x, f_name, name_len)$/
matherr	matherr.c	/^matherr(x)$/
mov	ranm.s	/^       mov     r4,r5 $/
mul	ranm.s	/^       mov     (r4),r0         \/ac $/
pos_gamma	gamma.c	/^pos_gamma(x, excp)$/
pow	pow.c	/^pow(x, y)$/
sin	sin.c	/^sin(x)$/
sin_cos	sin.c	/^sin_cos(x, cosflag)$/
sinh	sinh.c	/^sinh(x)$/
sinh_exc	sinh.c	/^sinh_exc(x, y, sinhflag)$/
sqrt	sqrt.c	/^sqrt(x)$/
tan	tan.c	/^tan(x)$/
tanh	tanh.c	/^tanh(x)$/
tst	ranm.s	/^       mov     (r4),r2         \/ad $/
x	ranm.s	/^\/\/       negative numbers.  mul x,y gives the 32-b/
y	ranm.s	/^\/\/       -(w-x)y\/ (w-x)(w-y)-w**2 0<x,y\/ y<0<x\/ x</
y0	j0.c	/^y0(x)$/
y1	j1.c	/^y1(x)$/
yn	jn.c	/^yn(n, x)$/