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