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