xref: /csrg-svn/usr.bin/f77/libF77/dbesj0_.c (revision 47940)
1*47940Sbostic /*-
2*47940Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic  * All rights reserved.
422880Skre  *
5*47940Sbostic  * %sccs.include.proprietary.c%
610472Sdlw  */
710472Sdlw 
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)dbesj0_.c	5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic 
1210472Sdlw double j0();
1310472Sdlw 
dbesj0_(x)1410472Sdlw double dbesj0_(x)
1510472Sdlw double *x;
1610472Sdlw {
1710472Sdlw 	return(j0(*x));
1810472Sdlw }
19