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!