This website requires JavaScript.
Explore
Help
Sign In
mirror
/
gcc
Watch
2
Star
0
Fork
0
You've already forked gcc
mirror of
git://gcc.gnu.org/git/gcc.git
synced
2024-12-24 13:49:23 +08:00
Code
Issues
Packages
Projects
Releases
Wiki
Activity
d3beaf0a30
gcc
/
libf2c
/
libF77
/
r_dim.c
8 lines
90 B
C
Raw
Normal View
History
Unescape
Escape
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568
1998-02-01 09:37:08 +08:00
#
include
"f2c.h"
*: Fix formatting. * libF77/*: Fix formatting. * libI77/*: Likewise. * libU77/*: Likewise. From-SVN: r54145
2002-06-01 20:38:32 +08:00
double
r_dim
(
real
*
a
,
real
*
b
)
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568
1998-02-01 09:37:08 +08:00
{
*: Fix formatting. * libF77/*: Fix formatting. * libI77/*: Likewise. * libU77/*: Likewise. From-SVN: r54145
2002-06-01 20:38:32 +08:00
return
(
*
a
>
*
b
?
*
a
-
*
b
:
0
)
;
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568
1998-02-01 09:37:08 +08:00
}
Reference in New Issue
Copy Permalink