[unix-history] / usr / src / usr.bin / f77 / libF77 / besjn_.c

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * This module is believed to contain source code proprietary to AT&T.
 * Use and redistribution is subject to the Berkeley Software License
 * Agreement and your Software Agreement with AT&T (Western Electric).
 */

#ifndef lint
static char sccsid[] = "@(#)besjn_.c	5.2 (Berkeley) 4/12/91";
#endif /* not lint */

double jn();

float besjn_(n, x)
long *n; float *x;
{
	return((float)jn((int)*n, (double)*x));
}
Commit	Line	Data
82492b51 KB	1	/*-
	2	* Copyright (c) 1980 The Regents of the University of California.
	3	* All rights reserved.
3b70fc7b	4	*
ad787160 C	5	* This module is believed to contain source code proprietary to AT&T.
	6	* Use and redistribution is subject to the Berkeley Software License
	7	* Agreement and your Software Agreement with AT&T (Western Electric).
4ffe7bdf DW	8	*/
4ffe7bdf DW	9
82492b51	10	#ifndef lint
ad787160	11	static char sccsid[] = "@(#)besjn_.c 5.2 (Berkeley) 4/12/91";
82492b51 KB	12	#endif /* not lint */
82492b51 KB	13
4ffe7bdf DW	14	double jn();
	15
	16	float besjn_(n, x)
	17	long n; float x;
	18	{
	19	return((float)jn((int)n, (double)x));
	20	}