BSD 4_2 release

[unix-history] / usr / src / usr.lib / libF77 / r_sin.c

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

double r_sin(x)
float *x;
{
double sin();
return( sin(*x) );
}