Pristine Ack-5.5
[Ack-5.5.git] / lang / fortran / lib / libF77 / d_tan.c
1 #include "f2c.h"
2
3 double d_tan(x)
4 doublereal *x;
5 {
6 double tan();
7 return( tan(*x) );
8 }