besyn_ X
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: }