source: branches/GNU/src/gcc/libf2c/libF77/r_abs.c@ 1391

Last change on this file since 1391 was 1391, checked in by bird, 22 years ago

GCC v3.3.3 sources.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 94 bytes
Line 
1#include "f2c.h"
2
3double
4r_abs (real * x)
5{
6 if (*x >= 0)
7 return (*x);
8 return (-*x);
9}
Note: See TracBrowser for help on using the repository browser.