xref: /original-bsd/usr.bin/f77/libF77/besyn_.c (revision c577960b)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  *
6  *	@(#)besyn_.c	5.1	06/07/85
7  */
8 
9 double yn();
10 
11 float besyn_(n, x)
12 long *n; float *x;
13 {
14 	return((float)yn((int)*n, (double)*x));
15 }
16