¥È¥Ã¥× º¹Ê¬ °ìÍ÷ ¥½¡¼¥¹ ¸¡º÷ ¥Ø¥ë¥× RSS ¥í¥°¥¤¥ó

BugTrack-¤½¤Î¾¤Î¥á¥â/3

£ÒÈ÷˺Ͽ /¾õÂÖ¶õ´Ö¥â¥Ç¥ê¥ó¥°/donlp2/¤½¤Î¾¤Î¥á¥â

FORTRAN­¡

  • Åê¹Æ¼Ô¡§ ¤ß¤å
  • ¥«¥Æ¥´¥ê¡§ FORTRAN
  • Í¥ÀèÅÙ¡§ ÉáÄÌ
  • ¾õÂÖ¡§ ´°Î»
  • Æü»þ¡§ 2009ǯ09·î22Æü 10»þ15ʬ56ÉÃ

ÆâÍÆ

  • £Ã¸À¸ì¤«¤éFORTRAN¤ò¸Æ¤Ö

¥ê¥ó¥¯

¥µ¥ó¥×¥ë­¡

  • £Ã - 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
  • ¤¢¤Ã¤µ¤êÆ°¤¤¤¿

¥³¥á¥ó¥È