代码大全

loop

exit when INDEX LAST;

DO_SOMETHING ( INDEX );

INDEX = INDEX + 1;

end loop

17.6 goto

Fortran Basic
goto
goto
goto goto
goto

17.6.1 if then else

goto if then else if
then else Fortran Ihac

if then e1se

C if (A < B ) then

C else

C endif

NOT goto if else

Fortran if then else

C if A B then

IF .NOT A. LT. B GOTO 1100

CODE TO PERFORM IF THE ORIGINAL CONDITION IN COMMENTS IS TRUE

...

GOTO 1200

C else

1 100 CONTINUE

CODE TO PERFORM IF THE ORIGINAL CONDITION IN COMMENTS IS FALSE

...

1200 CONTINUE

C endif

if else endif

Basic