Fortran学习笔记：02 流控制语句

Fortran学习笔记目录

书接上回：Fortran学习笔记：01 基本格式与变量声明

流控制语句

IF语句

IF (逻辑表达式) THEN
	...
ELSE
	...
END IF

SELECT-CASE语句

类似于C类语言中的switch-case语句

select case(变量)
case(数值1)
	...
case(数值2)
	...
case(数值n)
	...
case default
	...
end select

例：

program main
    implicit none
    integer :: i=1
    select case(i)
    case(1)
	write(*,*) "1111"
    case(2)
	write(*,*) "2222"
    case(3)
	write(*,*) "3333"
    case default
	write(*,*) "0"
    end select
end

GOTO语句

跳转至任意行，可读性差，不建议使用

DO语句

program main
    implicit none
    integer :: counter
    do counter=1,10,1
        write(*,*) counter
    end do
end

counter由1到10，增量为1

DO-WHILE语句

program main
    implicit none
    integer :: counter=1
    do while(counter<=10)
        write(*,*) counter
        counter=counter+1
    end do
end

循环控制

Fortran语言中的CYCLE语句可以跳过接下来的语句，跳转至循环开头，类似于C类语言中，continue语句的功能。

EXIT可以直接跳出当前循环，类似于C类语言中的break语句