トップ 差分 一覧 ソース 検索 ヘルプ RSS ログイン

BugTrack-その他のメモ/3

R備忘録 /状態空間モデリング/donlp2/その他のメモ

FORTRAN

  • 投稿者: みゅ
  • カテゴリ: FORTRAN
  • 優先度: 普通
  • 状態: 完了
  • 日時: 2009年09月22日 10時15分56秒

内容

  • C言語からFORTRANを呼ぶ

リンク

サンプル

  • C - 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
  • FORTRAN - 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
  • あっさり動いた

コメント