fortran基础知识1----循环

do循环结构使得一个语句或一系列语句，以进行迭代，当一个给定的条件为真。

语法

do循环的一般形式是：

do var = start, stop [,step]    
   ! statement(s)
   …
end do

这里,

循环变量var应该是一个整数
start 是初始值
stop 是最终值
步骤step是递增，如果此被省略，则变量var以单位增加

跳出循环

Fortran中跳出循环的两个命令为exit和cycle，exit表示跳出离命令最近的循环，cycle表示结束此次循环并开始下一次循环。

pause：程序执行到pause 时，会暂停执行，直到用户按下Enter键才会继续执行。

continue这个命令没有实际的用途，它的功能就是继续向下执行程序，相当于python中的pass。

stop用来结束程序执行。

cycle命令可由略过循环的程序模块中，相当于python和C中的continue，直接跳过后面的所有代码，然后开始下一次循环。

exit的功能是可以直接跳出一个正在进行的循环，不论是do 循环还是do while 循环，相当于python和C中的break。

 1 program sime
 2 
 3     implicit none
 4     integer :: tn
 5     
 6     tn=2
 7     print_tn : do
 8         print *, tn
 9         tn = tn+2
10         if (tn>=200) exit print_tn
11     end do print_tn
12     pause
13     
14 end

 1 program odd_num
 2 
 3     implicit none
 4     integer :: num,num_odd
 5     print *, 'Input data number:'
 6     read *,num
 7     
 8     num_odd = 0
 9     
10     do  
11         num = num - 1
12             
13         if (num<0) then
14             exit
15         elseif (mod(num,2)==0) then
16             cycle
17         else
18             num_odd = num_odd + 1
19         endif
20         
21         
22         print *, num
23     enddo
24     
25     print *, 'The number of odd number is',num_odd
26     
27     pause
28     
29 end

如果输入20，输出结果为：