BugTrack-¤½¤Î¾¤Î¥á¥â/3
FORTRAN¡
- Åê¹Æ¼Ô¡§ ¤ß¤å
- ¥«¥Æ¥´¥ê¡§ FORTRAN
- Í¥ÀèÅÙ¡§ ÉáÄÌ
- ¾õÂÖ¡§ ´°Î»
- Æü»þ¡§ 2009ǯ09·î22Æü 10»þ15ʬ56ÉÃ
ÆâÍÆ
- £Ã¸À¸ì¤«¤éFORTRAN¤ò¸Æ¤Ö
¥ê¥ó¥¯
- FORTRAN¤ÈC¤¬º®ºß¤·¤¿¥×¥í¥°¥é¥à
- C ¤È Fortran ¤Î¥¤¥ó¥¿¥Õ¥§¡¼¥¹
- FORTRAN¤ÈC¤Î·¿¤ÎÂбþ¤Ê¤É
- Fortran ¤«¤é C++ ¤Î´Ø¿ô¤ò¸Æ¤Ö
- 1.common¤ËÂå¤ï¤ë¡¢Âè»°¤Î¥×¥í¥°¥é¥àñ°Ì
- IMPLICITʸ
¥µ¥ó¥×¥ë¡
- £Ã - test01.c
#include "stdio.h" int inc1_(int *); int i; int main(int argc, char *argv[]) { i = 1; i = inc1_(&i); // ¥ª¥Ö¥¸¥§¥¯¥È¤Ë¤ÏºÇ¸å¤Ë¡Ö_¡×¤¬ÉÕ¤¯¡¿°ú¿ô¤Ï¤¹¤Ù¤Æ»²¾ÈÅϤ· printf("i : %d\n", i); }
- ¥³¥ó¥Ñ¥¤¥ë
$ gcc -c test01.c
- £Æ£Ï£Ò£Ô£Ò£Á£Î - test02.f90
integer function inc1( i ) integer i inc1 = i + 1 return end
- ¥³¥ó¥Ñ¥¤¥ë
$ gcc -c test02.f90
- ¥ê¥ó¥¯
$ gcc test01.o test02.o -o test01
- ¼Â¹Ô
$ ./test01 i : 2
- ¤¢¤Ã¤µ¤êÆ°¤¤¤¿
£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â