dbesy1_ X
1: /* 2: * "@(#)dbesy1_.c 1.1" 3: */ 4: 5: double y1(); 6: 7: double dbesy1_(x) 8: double *x; 9: { 10: return(y1(*x)); 11: }