1 /* 2 * "@(#)besy1_.c 1.1" 3 */ 4 5 double y1(); 6 7 float besy1_(x) 8 float *x; 9 { 10 return((float)y1((double)*x)); 11 } 12