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