dbesjn_ X
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: }