110438Sdlw /* 2*22817Skre * Copyright (c) 1980 Regents of the University of California. 3*22817Skre * All rights reserved. The Berkeley software License Agreement 4*22817Skre * specifies the terms and conditions for redistribution. 5*22817Skre * 6*22817Skre * @(#)besy1_.c 5.1 06/07/85 710438Sdlw */ 810438Sdlw 910438Sdlw double y1(); 1010438Sdlw 1110438Sdlw float besy1_(x) 1210438Sdlw float *x; 1310438Sdlw { 1410438Sdlw return((float)y1((double)*x)); 1510438Sdlw } 16