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