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
8fa0831669
gcc
/
libf2c
/
libF77
/
d_prod.c
8 lines
81 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 02:37:08 +01:00
#
include
"f2c.h"
*: Fix formatting. * libF77/*: Fix formatting. * libI77/*: Likewise. * libU77/*: Likewise. From-SVN: r54145
2002-06-01 14:38:32 +02:00
double
d_prod
(
real
*
x
,
real
*
y
)
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568
1998-02-01 02:37:08 +01:00
{
*: Fix formatting. * libF77/*: Fix formatting. * libI77/*: Likewise. * libU77/*: Likewise. From-SVN: r54145
2002-06-01 14:38:32 +02:00
return
(
(
*
x
)
*
(
*
y
)
)
;
* Previous contents of gcc/f/runtime moved into toplevel "libf2c" directory. From-SVN: r17568
1998-02-01 02:37:08 +01:00
}