1: /* 2: * Copyright (c) 1980 Regents of the University of California. 3: * All rights reserved. The Berkeley software License Agreement 4: * specifies the terms and conditions for redistribution. 5: * 6: * @(#)dbesjn_.c 5.1 6/7/85 7: */ 8: 9: double jn(); 10: 11: double dbesjn_(n, x) 12: long *n; double *x; 13: { 14: return(jn((int)*n, *x)); 15: }