/* * "@(#)besy1_.c 1.1" */ double y1(); float besy1_(x) float *x; { return((float)y1((double)*x)); }