* Makefile.am (nat_source_files): Remove
[official-gcc.git] / libf2c / libF77 / d_abs.c
bloba43a5c7f0a88a371672588e6a7a90f38452f1b78
1 #include "f2c.h"
3 double
4 d_abs (doublereal * x)
6 if (*x >= 0)
7 return (*x);
8 return (-*x);