[转载]FORTRAN 中的goto/exit/cycle用法

Note: I do not know authors.

1,goto
goto 在Fortran77中就流传下来了，它提供一个任意跳跃到所赋值行代码的位置，如果是在一个do 循环中如
do 30 i=1,N
   if(……)  goto 30
30 continue 
上语句的意思就是如果符合if里的条件，则会进行下一次循环。

2，pause
pause的功能就能跟它的字面意思相同，程序执行到pause 时，会暂停执行，直到用户按下Enter键才会继续执行。
 
3. continue
continue这个命令没有实际的用途，它的功能就是 继续向下执行程序
 
4，stop
它可用来结束程序执行。

5，cycle 
cycle命令可由略过循环的程序模块中，在cycle命令后面的所有程序代码，直接跳回循环的开头来进行下一次循环。
如
do floor=1,dest
  if(floor==4) cycle 
write(*,*) floor
end do
执行结果如下
1  
2
3
5
6
 
6 exit
exit的功能是可以直接跳出一个正在进行的循环，不论是do 循环还是do while 循环。