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 } 12