大阪市中央区 システムソフトウェア開発会社

営業時間:平日09:15〜18:15
MENU

FortranからTcl/Tkを呼び出す。

著者:高木信尚
公開日:2019/01/14
最終更新日:2019/01/14
カテゴリー:技術情報
タグ:

Fortran初心者の高木です。おはようございます。

まだ始めたばかりのFortranはわからないことだらけです。
何をやるにも手探りの状態です。
うまくいったと思っても、実際には間違っていたり、もっとよい方法があったりすると思います。
初心者は大体こんなもんなのでしょうけど。

Fortranを勉強していて難しいと感じるのは、やはり処理系による差異です。
ネット検索して得られる情報も、特定の処理系に依存していることが多いので、何が処理系依存で何がそうでないのかの見極めに手間取ります。

やろうとすることによっては処理系に依存せざるを得ないこともあります。
今回挑戦しようとしているFortranからTcl/Tkを呼び出すのもそのひとつです。

FortranからTcl/Tkを呼び出すといっても、パイプで標準入出力をつないで別プロセスとして呼び出すといった方法ではなく、Cのライブラリ(すなわちTcl API)を使ってTcl/Tkの機能を利用することにします。
最初から凝ったことはできませんので、内容は簡単なものにしたいと思います。
「exit」と書かれたボタンを1つだけ貼り付けて、それをクリックすれば終了するというごくシンプルなものです。
純粋なTcl/Tkで書けば1行で済んでしまいます。

次に、これをCを使って実現してみることにします。

1行とはいいませんが、まだ大したことはありません。
ところが、Fortranでこれをやろうとすると途端に難度が上がります。

まず、Fortranから直接CのTcl APIを呼ぶことはできませんので、ラッパーを用意する必要がありません。
ラッパーはCで書きますが、これがどうしても処理系に依存してしまいます。
今回はgfortranを使うので、関数名の末尾に下線を付けることでFortranからCの関数を呼び出せるようになります。
また、Fortranでは、関数やプロシージャの引数は必ず参照渡しになりますので、Cではポインタとして受け取ることになります。
それ以外のコーリングコンベンションはとくに意識しなくてもよさそうです。

それを踏まえて書いてみました。
まずはCで書いたラッパーからです。

結構大変でした。
Fortran側は本来であればimplicit noneを使うべきなのですが、Cで定義した関数やプロシージャがIMPLICITだと怒られてコンパイルできません。
何かうまい回避策があるのかもしれませんが、私にはわかりませんでした。
本格的にラッパーを作るのであれば、Cで書いたラッパーを呼び出すFortranのモジュールを作って、アプリケーションからはそのモジュールを利用するのが現実的なのかもしれません。

    前の記事 :
    上に戻る