FORTRAN 77の現在のファイル名を返す方法はありますか

Question

私はFORTRAN 77と同じコードのいくつかのバージョンで作業しています。すべてのコードでファイル名とバージョン番号を表示しますが、その行を変更するのは面倒です。ファイル名にバージョン番号があるので、コードが独自のファイル名を返す方法があるかどうか疑問に思っていましたか？私の今の行は、このようなものになります。codevers='testfile_v009'とprint *, 'Code Version: ', codevers 唯一の問題は、以前のバージョンのコードをコピーして新しいバージョンとして変更することですが、コード内の行を更新することを忘れることです。

ありがとう。

Answer 1

コメントで示唆されているように、1つのアプローチはコンパイラプリプロセッサを使用することです。たとえば、あなたがtest_ver1.F90（書式自由）またはtest_ver1.F（固定形式）を作る場合

program main 
    print *, "current file = ", __FILE__ 
    print *, "current line = ", __LINE__ 
end program 

、あなたはプリプロセッサを起動する方法

current file = test_ver1.F90 
current line =   3 

を取得します

gfortran test_ver1.F90 
./a.out 

としてコンパイル使用するコンパイラによって異なりますので、マニュアルを参照してください。 （多くのコンパイラでは、ファイル名が.F90と.Fなどの接尾辞を持っている場合、プリプロセッサが呼び出されます、または-cppまたは-fppのようなオプションを使用します。）

---

本のアプリケーションは、コードチェックを定義することですmymacro.incに保存これによりマクロ、例えば

#ifdef __GFORTRAN__ 
#define _assert_(x) if (.not.(x)) then; print*, "In ",__FILE__,", line ",__LINE__; stop "assertion failed: " // "x"; endif 
#else 
#define _assert_(x) if (.not.(x)) then; print*, "In ",__FILE__,", line ",__LINE__; stop "assertion failed: " // #x; endif 
#endif 

、次のプログラム（test_ver2.F90）

#include "mymacro.inc" 

program main 
    integer :: x, y 
    x = 7 ; y = 8 
    _assert_(x == y) 
end program main 

は、健全性チェックに便利です

In test_ver2.F90, line   6 
STOP assertion failed: x == y 

できます。