/*
 * Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
 * See https://llvm.org/LICENSE.txt for license information.
 * SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
 *
 */

/* clang-format off */

/*	besy03f.c - Implements LIB3F besy0 subprogram.  */

#include "ent3f.h"

#ifdef WIN32
#define y0 _y0
#endif

extern double y0(double);

float ENT3F(BESY0, besy0)(float *x) { return (float)y0(*x); }