pointers - Fortran77で変数のアドレスを出力する

Question

Fortran 77で変数のアドレスを出力するにはどうすればよいですか？例：

      subroutine foo

      integer d3
c Now I want to print "Address of d3: " followed by its address.

もちろん、Cの同等物は

int d3;
printf("Address of d3: %p\n", &d3);

ありがとう！

Answer 1

技術的には Fortran 77 ではありませんが、ほとんどの Fortran コンパイラには、変数のアドレスを取得するための LOC 関数が用意されています。

参照: http://gcc.gnu.org/onlinedocs/gfortran/LOC.html