Fortran Goto

[cltom]

ah, ok, das hast wohl recht. und ich fürchte, dass es auch Sinn macht, weil in dem ausgeschnippelten Teil die Variablen für die Schleife verändert werden (k wird verringert).

Edit: nein, eigentlich macht es keinen Sinn:

Delphi-Quellcode:

   10 DO 50 J=K,1,-1
         IF (A .EQ. 0) THEN
*snip*
            ENDIF
            K = K-1
            GOTO 10
         ENDIF
   50    CONTINUE

Die Schleife wird ohnehin mit k-1 fortgesetzt, daher ist doch das goto überflüssig, oder?


Eine zweite Frage noch dazu: in Fortran ist es offenbar erlaubt, eine Schleifenvariable zwei mal zu verwenden, also:

Delphi-Quellcode:

do 100 i=1,n
  do 200 i=a,b

Welchen Wert hat i nach der Schleife von a bis b? wieder den Wert, den es davor hatte?

danke!