|
|
1.1 ! root 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: * @(#)besyn_.c 5.1 6/7/85 ! 7: */ ! 8: ! 9: double yn(); ! 10: ! 11: float besyn_(n, x) ! 12: long *n; float *x; ! 13: { ! 14: return((float)yn((int)*n, (double)*x)); ! 15: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.