/*- * Copyright (c) 1980 The Regents of the University of California. * All rights reserved. * * %sccs.include.proprietary.c% */ #ifndef lint static char sccsid[] = "@(#)dbesjn_.c 5.2 (Berkeley) 04/12/91"; #endif /* not lint */ double jn(); double dbesjn_(n, x) long *n; double *x; { return(jn((int)*n, *x)); }