This website requires JavaScript.
Explore
Help
Sign In
d
/
freebsd-skq
Watch
1
Star
0
Fork
0
You've already forked freebsd-skq
Code
Issues
Pull Requests
Packages
Projects
Releases
Wiki
Activity
9c51d70f9b
freebsd-skq
/
contrib
/
libf2c
/
libF77
/
r_abs.c
10 lines
94 B
C
Raw
Normal View
History
Unescape
Escape
Virgin import of EGCS 1.1.2's libf2c
1999-09-18 10:51:31 +00:00
#
include
"f2c.h"
Gcc 3.3.1-pre 2003-07-11 libf2c bits.
2003-07-11 03:42:19 +00:00
double
r_abs
(
real
*
x
)
Virgin import of EGCS 1.1.2's libf2c
1999-09-18 10:51:31 +00:00
{
Gcc 3.3.1-pre 2003-07-11 libf2c bits.
2003-07-11 03:42:19 +00:00
if
(
*
x
>
=
0
)
return
(
*
x
)
;
return
(
-
*
x
)
;
Virgin import of EGCS 1.1.2's libf2c
1999-09-18 10:51:31 +00:00
}
Reference in New Issue
Copy Permalink