!!!FORTRAN­¡
*Åê¹Æ¼Ô¡§ ¤ß¤å
*¥«¥Æ¥´¥ê¡§ FORTRAN
*Í¥ÀèÅÙ¡§ ÉáÄÌ
*¾õÂÖ¡§ ´°Î»
*Æü»þ¡§ 2009ǯ09·î22Æü 10»þ15ʬ56ÉÃ
//{{bugstate}}
!!ÆâÍÆ
*£Ã¸À¸ì¤«¤éFORTRAN¤ò¸Æ¤Ö
!!¥ê¥ó¥¯
*[FORTRAN¤ÈC¤¬º®ºß¤·¤¿¥×¥í¥°¥é¥à|http://www.oceanwave.jp/index.php?FORTRAN%A4%C8C%A4%AC%BA%AE%BA%DF%A4%B7%A4%BF%A5%D7%A5%ED%A5%B0%A5%E9%A5%E0]
*[C ¤È Fortran ¤Î¥¤¥ó¥¿¥Õ¥§¡¼¥¹|http://docs.sun.com/source/806-4843/Cp11_cfort.html]
**FORTRAN¤ÈC¤Î·¿¤ÎÂбþ¤Ê¤É
*[Fortran ¤«¤é C++ ¤Î´Ø¿ô¤ò¸Æ¤Ö|http://www-jlc.kek.jp/~fujiik/C%2B%2B/fandc%2B%2B.html]
*[1.common¤ËÂå¤ï¤ë¡¢Âè»°¤Î¥×¥í¥°¥é¥àñ°Ì|http://www.geocities.jp/eyeofeconomyandhealth/homepage/module1.html#t]
*[IMPLICITʸ|http://wikiwiki.jp/pico/?Fortran%2Fimplicit]
!!¥µ¥ó¥×¥ë­¡
*£Ã - 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
*¤¢¤Ã¤µ¤êÆ°¤¤¤¿
!!¥³¥á¥ó¥È
//{{comment}}