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