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