Fortran：do循环

声明：本博文翻译自：https://www.tutorialspoint.com/fortran/fortran_loops.htm

编程语言提供各种控制结构，允许更复杂的执行路径。
循环语句允许我们多次执行一个语句或一组语句。
fortran提供了下面三种类型循环。分别是do loop; do while loop; nested loop
下面进行详解：
1. do loop
do loop的一般形式为：
do var = start, stop [,step]    
   ! statement(s)
   …
end do
这里需要注意：循环变量var必须是整型；start为循环变量初值；stop为循环变量终值；step为循环变量的增量。当省略step时，默认为1。注意：step也可以是负数，此时start > stop.
示例代码2如下：
Program main
  implicit none
  integer :: i

  do i = 1, 10
    write(*,'(1x,g0)') i
  end do
End program main
用ivf，执行结果为：
1
2
3
4
5
6
7
8
9
10
示例代码2：用来计算10!
Program factorial  
  implicit none  
  integer :: nfact = 1   
  integer :: n  

  do n = 1, 10      
     nfact = nfact * n 
     write(*,'(1x,g0,3x,g0)') n, nfact   
  end do 

end program factorial
用ivf，执行结果如下：
1             1
2             2
3             6
4            24
5           120
6           720
7          5040
8         40320
9        362880
10       3628800

2. do while loop
当给定条件为真时，它重复执行一个或一组语句。它在执行循环体之前进行条件测试。
基本语法如下：
do while (logical expr) 
   statements
end do
示例代码如下：
Program factorial  
  implicit none  
  integer :: nfact = 1   
  integer :: n = 1 

  do while (n <= 10)       
     nfact = nfact * n 
     n = n + 1  !.. do while loop多了这一句
     write(*,'(1x,g0,3x,g0)') n, nfact 
  end do 
End program factorial  
执行结果如下：
2             1
3             2
4             6
5            24
6           120
7           720
8          5040
9         40320
10        362880
11       3628800

3. nested loops
此种循环方式叫多重循环。一个简单的示例如下：
iloop: do i = 1, 3
   print*, "i: ", i

   jloop: do j = 1, 3         
      print*, "j: ", j         

      kloop: do k = 1, 3
         print*, "k: ", k

      end do kloop
   end do jloop  
end do iloop
此处给出示例代码：
Program nestedLoop 
  implicit none
  integer:: i, j, k

  iloop: do i = 1, 3      
     jloop: do j = 1, 3         
        kloop: do k = 1, 3              

           print*, "(i, j, k): ", i, j, k               

        end do kloop       
     end do jloop
  end do iloop

End program nestedLoop  
用ivf，执行结果如下：
 (i, j, k):            1           1           1
 (i, j, k):            1           1           2
 (i, j, k):            1           1           3
 (i, j, k):            1           2           1
 (i, j, k):            1           2           2
 (i, j, k):            1           2           3
 (i, j, k):            1           3           1
 (i, j, k):            1           3           2
 (i, j, k):            1           3           3
 (i, j, k):            2           1           1
 (i, j, k):            2           1           2
 (i, j, k):            2           1           3
 (i, j, k):            2           2           1
 (i, j, k):            2           2           2
 (i, j, k):            2           2           3
 (i, j, k):            2           3           1
 (i, j, k):            2           3           2
 (i, j, k):            2           3           3
 (i, j, k):            3           1           1
 (i, j, k):            3           1           2
 (i, j, k):            3           1           3
 (i, j, k):            3           2           1
 (i, j, k):            3           2           2
 (i, j, k):            3           2           3
 (i, j, k):            3           3           1
 (i, j, k):            3           3           2
 (i, j, k):            3           3           3

除了上面介绍的三种循环类型，还有三种循环控制语句。分别是exit；cycle；stop
exit: 跳出离exit最近的外层循环。如果循环有署名，也可以跳出对应的署名循环
示例代码：
Program exittest
  implicit none
  integer:: i, j, k

  iloop: do i = 1, 3      
     jloop: do j = 1, 3         
        kloop: do k = 1, 3    

        print*, "(i, j, k): ", i, j, k               

        if (k==2) then
           exit jloop  !..  k = 2时，跳出jloop
        end if

        end do kloop       
     end do jloop  
  end do iloop 

End program exittest
用ivf，执行结果如下：
(i, j, k): 1  1  1
(i, j, k): 1  1  2
(i, j, k): 2  1  1
(i, j, k): 2  1  2
(i, j, k): 3  1  1
(i, j, k): 3  1  2

cycle: cycle类似于exit，都在循环体内部。一般与if语句搭配使用。当条件满足时，cycle跳过循环，注意不是跳出循环。这一点与exit不同。
示例代码如下：
Program cycle_example     
  implicit none     
  integer :: i     

  do i = 1, 20          

     if (i == 5) then 
        cycle          
     end if         

  print*, i      
  end do  

End program cycle_example
用ivf，执行结果如下：
1
2
3
4
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

stop: stop代表程序的终止。
示例代码：
Program main
  implicit none
  integer :: i 

  do i = 1, 10
    if ( i == 5 ) stop
    print*, i
  end do
End program main
执行结果为：
1
2
3
4