date and time created 83/01/21 11:17:49 by dlw

[unix-history] / usr / src / usr.bin / f77 / libF77 / dbesjn_.c

/*
*      "@(#)dbesjn_.c  1.1"
*/

double jn();

double dbesjn_(n, x)
long *n; double *x;
{
       return(jn((int)*n, *x));
}