alnfac	as177.c	/^double alnfac (j)$/
correc	as177.c	/^double correc (i, n)$/
init	as177.c	/^void init (work)$/
nscor1	as177.c	/^void nscor1 (s, n, n2, work, ifault)$/
nscor2	as177.c	/^void nscor2 (s, n, n2, ifault)$/
