Fortran if...then语句结构

if ... then 语句由一个逻辑表达式后跟一个或多个语句和终止 end if 语句。

语法

if… then 语句的基本语法:

if (logical expression) then      
   statement  
end if

但是可以给一个名称,if 块,那么语法命名 if 语句如下:

[name:] if (logical expression) then      
   ! various statements           
   . . .  
end if [name]

如果逻辑表达式的计算结果为true,那么块代码内的 if ... then 语句会被执行。如果在结束后的逻辑表达式计算为false,那么第一个代码块之后的 if 语句会被执行。

流程图:

Flow Diagram

示例 1

program ifProg
implicit none
   ! local variable declaration
   integer :: a = 10
 
   ! check the logical condition using if statement
   if (a < 20 ) then
   
   !if condition is true then print the following 
   print*, "a is less than 20"
   end if
       
   print*, "value of a is ", a
 end program ifProg

当上述代码被编译和执行时,它产生了以下结果:

a is less than 20
value of a is 10

示例 2

这个例子说明了命名的 if 块:

program markGradeA  
implicit none  
   real :: marks
   ! assign marks   
   marks = 90.4
   ! use an if statement to give grade
  
   gr: if (marks > 90.0) then  
   print *, " Grade A"
   end if gr
end program markGradeA   

当上述代码被编译和执行时,它产生了以下结果:

Grade A

猿狮妹
2022-08-09
Fortran if then 在线教程
热门教程
1 Fortran教程 Fortran语言来自公式翻译系统,是一种通用的,命令式编程语言。它可用于数字和科学计算。Fortran语言最初是由IBM公司在20世纪50年代的科学和工程应用开发。 FORTRAN统治这个规划计算面积很长一段时间,因其高性能计算能力而很受欢迎。
2 Fortran do循环结构 do循环结构使得一个语句或一系列语句,以进行迭代,当一个给定的条件为真。 语法 do循环的一般形式是: do var = start , stop [, step ] ! statement ( s ) end do 这里, 循环变量var应该是一个整数
3 Fortran exit语句 Exit语句终止循环或select case语句,并将执行立即循环或select 下面的语句。 流程图 例子 program nestedLoop implicit noneinteger :: i , j , k iloop : do i = 1 , 3 jloop : do j = 1 , 3 kloop : do k = 1 , 3 print *,
4 Fortran逻辑运算符 试试下面的例子就明白所有在Fortran语言可用的逻辑运算符: program logicalOp ! this program checks logical operators implicit none ! variable declaration logical :: a , b ! assigning values a = . true . b = . false . if
5 Fortran嵌套if结构 可以使用一个 if 或else if 在另一个if或else if语句中。 语法 嵌套if语句的语法如下: if ( logical_expression 1 ) then ! Executes when the boolean expression 1 is true if ( logical_expression 2 ) then ! Executes when
6 Fortran if...then语句结构 一个 if ... then 语句由一个逻辑表达式后跟一个或多个语句和终止结束if语句。 语法 if then 语句的基本语法: if ( logical expression ) then statement end if 但是可以给一个名称,if 块,那么语法
7 Fortran select case结构 select case 语句允许一个变量,列表进行相等测试。每个值被称为一个情况,在该变量上检查每个选择的情况 select case 。 语法 select case结构的语法如下: [ name :] select case ( expression ) ca
8 Fortran if...then...else 结构 if then 语句可以后跟一个可选的 else 语句,它执行时,逻辑表达式为假。 语法 if then else 的基本语法: if ( logical expression ) then statement ( s ) else other_statement ( s ) end if 但是,如果给定 if 块
9 Fortran基本语法 Fortran程序是由程序单元,如一个主程序,模块和外部子程序或程序的集合。 每个程序包括一个主程序和可以或可以不包含其它程序单元。主程序的语法如下: program program_name implicit
10 Fortran向量和矩阵乘法函数 下表描述了向量和矩阵乘法函数: 函数 描述 dot_product(vector_a, vector_b) 函数返回两个输入向量,它必须具有相同长度的标量积。 matmul (matrix_a, matrix_b) 它返回两个矩阵的矩阵乘积,它必须
  • Copyright © 2021 猿狮院, All rights reserved.