110473Sdlw /* 2*22881Skre * Copyright (c) 1980 Regents of the University of California. 3*22881Skre * All rights reserved. The Berkeley software License Agreement 4*22881Skre * specifies the terms and conditions for redistribution. 5*22881Skre * 6*22881Skre * @(#)dbesj1_.c 5.1 06/07/85 710473Sdlw */ 810473Sdlw 910473Sdlw double j1(); 1010473Sdlw 1110473Sdlw double dbesj1_(x) 1210473Sdlw double *x; 1310473Sdlw { 1410473Sdlw return(j1(*x)); 1510473Sdlw } 16