swap - FORTRAN 77 - スワップ

Question

FORTRAN 77 では、c++ でスワップが機能するのと同じように、2 つの配列でスワップを実行できますか?

v1 と v2 などの 2 つの大きな配列があり、v2 が常に最後の反復で v1 が作業配列になるように、各反復の最後に v1 と v2 を交換したいと考えています。F77でこれを行うにはどうすればよいですか?

Answer 1

私がそれを手に入れたら、あなたは次のようなことをしたいと思っています：

do while (i.LE.max_iter .AND. .NOT.converged)
  call sub_iter(v1, v2)
  call swap(v1,v2)
enddo

Fortran 77 では使用できないポインターを使用して配列を切り替えることをお勧めします。

各反復でサブルーチンを二重に呼び出すことはできませんか?

do while (i.LE.max_iter .AND. .NOT.converged)
  call sub_iter(v1, v2)
  call sub_iter(v2, v1)
enddo