110439Sdlw /* 2*22821Skre * Copyright (c) 1980 Regents of the University of California. 3*22821Skre * All rights reserved. The Berkeley software License Agreement 4*22821Skre * specifies the terms and conditions for redistribution. 5*22821Skre * 6*22821Skre * @(#)besyn_.c 5.1 06/07/85 710439Sdlw */ 810439Sdlw 910439Sdlw double yn(); 1010439Sdlw 1110439Sdlw float besyn_(n, x) 1210439Sdlw long *n; float *x; 1310439Sdlw { 1410439Sdlw return((float)yn((int)*n, (double)*x)); 1510439Sdlw } 16