FORTRAN 77 - SWAP

Question

Avec FORTRAN 77 est-il possible d'effectuer un swap sur deux tableaux, dans les mêmes œuvres de swap de façon c ++?

I ont deux grands réseaux, par exemple v1 et v2, et aimeraient échanger v1 et v2 à la fin de chaque itération de telle sorte que v2 est toujours la dernière itération et v1 est le tableau de travail. Comment peut-on faire cela à F77?

Answer 1

Si je l'obtiens, vous voulez faire ce qui suit genre de chose:

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

Je pense que ce n'est pas vraiment possible, car une façon agréable de le faire serait d'utiliser des pointeurs pour basculer entre les réseaux qui ne sont pas disponibles en Fortran 77.

peut-il pas faire juste un double appel à un sous-programme à chaque itération?

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