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