date and time created 83/01/21 11:10:41 by dlw

[unix-history] / usr / src / usr.bin / f77 / libF77 / besy1_.c

/*
*      "@(#)besy1_.c   1.1"
*/

double y1();

float besy1_(x)
float *x;
{
       return((float)y1((double)*x));
}