1 /* 2 * "@(#)dbesjn_.c 1.1" 3 */ 4 5 double jn(); 6 7 double dbesjn_(n, x) 8 long *n; double *x; 9 { 10 return(jn((int)*n, *x)); 11 } 12