|
|
1.1 ! root 1: /* ! 2: * "@(#)dbesjn_.c 1.1" ! 3: */ ! 4: ! 5: double jn(); ! 6: ! 7: double dbesjn_(n, x) ! 8: long *n; double *x; ! 9: { ! 10: return(jn((int)*n, *x)); ! 11: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.