Überspringe Iterationen in einer do-Schleife (Fortran)

Question

Ich möchte N-Iterationen durchlaufen, aber einige der Iterationen sollten unter bestimmten Bedingungen "übersprungen" werden. Ich weiß, dass ich es tun kann, die goto Anweisung, wie zB:

 do i = 1, N 
      if condition(i) goto 14 
      ! Execute my iteration if condition(i) is false 
    14 continue 
     end do 

Aber ich bin ein wenig Angst dieser goto Aussagen, und ich würde gerne wissen, ob es eine andere Lösung ist (ich bin mit Fortran 90 wäre aber an einer Lösung interessiert, auch wenn sie eine neuere Version benötigt).

Answer 1

Versuchen Sie, diese

do i = 1, N 
      if (condition(i)) cycle 
      ! Execute my iteration if condition(i) is false 
end do 

Wenn Sie Erklärung benötigen, kommentieren, was Sie Klärung bedürfen. Hinweis Ich habe die archaische continue und beschriftete Aussage fallengelassen.

Answer 2

Sie können auch dazu:

do i = 1, N 
     if (.not. condition(i)) then 
     ! Execute my iteration if condition(i) is false 
     endif 
    end do