added long/short conversions. DLW

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

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

double d_cos(x)
double *x;
{
double cos();
return( cos(*x) );
}