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!

[gammatester]

Zitat von cltom:

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?

Nein. Vereinfachtes Beispiel: Wir starten mit K=8 und für J=4 ist (immer) A=0. Dann haben wir folgende J-Werte

Code:

J=8,7,6,5,4  K=7
J=7,6,5,4    K=6
J=6,5,4      K=5
J=5,4        K=4
J=4          K=3
J=3,2,1

Dann ist die 50-er Schleife abgearbeitet.

[BoolString]

Manchmal sieht man mehr, wenn man den Code vorliegen hat. Falls es dir möglich/erlaubt ist, kannst du ja vielleicht den Abschnitt mal zeigen...

Jan

[cltom]

Hmm, das macht Sinn. Vielen Dank!

Um das zu übersetzen ohne goto muss man da wohl eine neue Schleife drum herum packen, oder?

[cltom]

klar, hier mal der ganze teil, ist ja nicht so viel:

Code:

   10 DO 50 J=K,1,-1
         R = ZERO
         DO 20 I=1,K
   20       IF (I .NE. J) R = R+ABS(MAT(J,I))
         IF (R .EQ. ZERO) THEN
            SCAL(K) = J
            IF (J .NE. K) THEN
               DO 30 I=1,K
   30             CALL SWAP(MAT(I,J),MAT(I,K))
               DO 40 I=L,N
   40             CALL SWAP(MAT(J,I),MAT(K,I))
            ENDIF
            K = K-1
            GOTO 10
         ENDIF
   50    CONTINUE

[cltom]

hätte es jetzt mal so versucht:

Delphi-Quellcode:

while cont do
  begin
    for j := k downto 1 do
      begin
        if r=0 then
          begin
            *snip*
            k:=k-1;
            cont := true; //kann man wohl auch weglassen
          end
        else
          cont := false;
      end; 
  end;

da sollte doch das gleiche rauskommen, oder? danke

[gammatester]

Zitat von cltom:

hätte es jetzt mal so versucht:

Delphi-Quellcode:

while cont do
  begin
    for j := k downto 1 do
      begin
        if r=0 then
          begin
            *snip*
            k:=k-1;
            cont := true; //kann man wohl auch weglassen
          end
        else
          cont := false;
      end; 
  end;

da sollte doch das gleiche rauskommen, oder? danke

Ich denke schon. Willst Du den Fortrancode nach Pascal übersetzen? Goto ist ja nicht grundsätzlich böse. Aber auch so kannst Du das ganze im Prinzip in eine Schleife packen:

Delphi-Quellcode:

  j := k;
  while j>=1 do begin
    {berechne r}
    if r=0 then begin
      k := k-1;
      j := k;
      continue;
    end;
    j := j-1;
  end;

[cltom]

Ja, das ist ein relativ altes Fortran-Projekt, das ich portieren werde.

Ich würde gerne diese gotos vermeiden, vor allem weil ich sie (augenscheinlich) nicht verstehe bzw. Fehler damit befürchte.

Danke aber für Deinen Vorschlag, das wär natürlich deutlich kompakter. Hier bin ich aber noch am Abwägen, was besser ist: die Struktur des alten Programms weitgehend belassen, sodass der Vergleich beim Fehlersuchen leichter fällt. Oder möglichst alles modernisieren, damit es später bequemer wird.

Zur Zeit hätt ich das Ding gern nur mal funktionierend übersetzt, weite Teile sind auch gut gemacht, sodass man nicht alles neu erfinden müsste (mal abgesehen davon, dass nix objektorientiert ist und es mit den globalen Variablendeklarationen natürlich ein Jubiläum gibt).