110475Sdlw /* 2*22883Skre * Copyright (c) 1980 Regents of the University of California. 3*22883Skre * All rights reserved. The Berkeley software License Agreement 4*22883Skre * specifies the terms and conditions for redistribution. 5*22883Skre * 6*22883Skre * @(#)dbesy0_.c 5.1 06/07/85 710475Sdlw */ 810475Sdlw 910475Sdlw double y0(); 1010475Sdlw 1110475Sdlw double dbesy0_(x) 1210475Sdlw double *x; 1310475Sdlw { 1410475Sdlw return(y0(*x)); 1510475Sdlw } 16