diff options
| author | obrien <obrien@FreeBSD.org> | 1999-09-18 10:51:31 +0000 |
|---|---|---|
| committer | obrien <obrien@FreeBSD.org> | 1999-09-18 10:51:31 +0000 |
| commit | 98e51635e2084da6cfe0d3b1782cb95b80fd2caa (patch) | |
| tree | 0938eb35cebcf917f447463078144fc4832576c6 /contrib/libf2c/libF77/h_abs.c | |
| parent | 0bedf4fb30066e5e1d4342a1d3914dae7d37cba7 (diff) | |
| download | FreeBSD-src-98e51635e2084da6cfe0d3b1782cb95b80fd2caa.zip FreeBSD-src-98e51635e2084da6cfe0d3b1782cb95b80fd2caa.tar.gz | |
Virgin import of EGCS 1.1.2's libf2c
Diffstat (limited to 'contrib/libf2c/libF77/h_abs.c')
| -rw-r--r-- | contrib/libf2c/libF77/h_abs.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/h_abs.c b/contrib/libf2c/libF77/h_abs.c new file mode 100644 index 0000000..73b8215 --- /dev/null +++ b/contrib/libf2c/libF77/h_abs.c @@ -0,0 +1,12 @@ +#include "f2c.h" + +#ifdef KR_headers +shortint h_abs(x) shortint *x; +#else +shortint h_abs(shortint *x) +#endif +{ +if(*x >= 0) + return(*x); +return(- *x); +} |
