i_abs.c
[
plain text
]
#
include
"f2c.h"
integer
i_abs
(integer * x) {
if
(*x >= 0)
return
(*x);
return
(-*x); }