structures - if fortran

Fortran do bucle con goto interno

Question

Tengo un fragmento de Fortran77 que se ve así:

    DO 1301 N=NMLK-2,2,-1                                                     
       Some code...
       IF(NB1(N).EQ.50) GOTO 1300                                                            
       Some code...
       IF(BS(N).EQ.0.0) GOTO 1301                                                
       some code...                                                               
       GOTO 1301                                                                 
  1300 NW(M)=NB1(N)                                                              
       Some code...                                                               
  1301 CONTINUE

Cuando esto llega a la declaración GOTO 1301, ¿esto salta a la siguiente iteración del ciclo o sale del ciclo? Por lo que yo entiendo, la palabra clave return no hace nada, así que supongo que esto simplemente saldrá del ciclo y continuará la ejecución del código desde la etiqueta 1301, ¿es correcto?

Estoy traduciendo esto a C # y me pregunto si esto es equivalente:

for (N = NMLK; N >= 2; N--)
{
    Some code...
    if (NB1[N] == 50)
        goto l1300;
    Some code...
    if (BS[N] == 0)
        return;
    Some code...
    return;
l1300:
    NW[M] = NB1[N];
    Some code...
}

o si debería tener "continuar" en lugar de "devolver"?

Answer 1

Sí, la declaración GOTO 1301 hace que el programa salte a la siguiente iteración.

La DO label , label CONTINUE es una forma obsoleta de escribir un bloque DO ENDDO más contemporáneo. En este caso, el ciclo iterará sobre las variables especificadas en la línea DO, y la label CONTINUE línea label CONTINUE sirve como un marcador de posición " ENDDO ".