110437Sdlw /* 2*22816Skre * Copyright (c) 1980 Regents of the University of California. 3*22816Skre * All rights reserved. The Berkeley software License Agreement 4*22816Skre * specifies the terms and conditions for redistribution. 5*22816Skre * 6*22816Skre * @(#)besy0_.c 5.1 06/07/85 710437Sdlw */ 810437Sdlw 910437Sdlw double y0(); 1010437Sdlw 1110437Sdlw float besy0_(x) 1210437Sdlw float *x; 1310437Sdlw { 1410437Sdlw return((float)y0((double)*x)); 1510437Sdlw } 16