This website requires JavaScript.
Explore
Help
Sign In
OpenE2K
/
gcc
Watch
2
Star
0
Fork
You've already forked gcc
0
Code
Issues
Pull Requests
Projects
Releases
Wiki
Activity
c5dc831c5e
gcc
/
libf2c
/
libF77
/
i_dim.c
8 lines
97 B
C
Raw
Blame
History
#
include
"f2c.h"
integer
i_dim
(
integer
*
a
,
integer
*
b
)
{
return
(
*
a
>
*
b
?
*
a
-
*
b
:
0
)
;
}
Reference in New Issue
View Git Blame
Copy Permalink