added long/short conversions. DLW

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

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

double j0();

float besj0_(x)
float *x;
{
       return((float)j0((double)*x));
}