Fortran IF语句

来源：互联网发布：vscode markdown 导出编辑：程序博客网时间：2024/06/08 18:01

简单的IF语句。

program  main      integer a      a=101      if (a>100) then            write(*,*) "slow down"      end if      end

如果if中的执行语句只有一条时，可以写成下面这样

program  main      integer a      a=101      if (a>100)   write(*,*) "slow down"      end

这样省略了 then 和 end if

F90 使用逻辑符号来表示如 == ，/=, < , > 等来表示。

F77 要使用缩写来做逻辑判断。
.EQ.
.NQ.
.GT.
.LT.
GE.
.LE.

如果有多个逻辑关系，需要联系可能要用到
.and. 相当于 C语言的 &&

.or. 相当于C语言的 ||

.not. 相当于 ! 表示非

还有两个同或和异或不太常用

可读性和执行效率

在使用浮点数来做逻辑运算时，要避免使用等于的判断。或者，要留一点误差。

Fortran的 select case 类似 switch case

program select      integer age       age=11      select case( age)      case(:10)          write(*,*) "child"      case(11:60)          write(*,*) "young"      case default          write(*,*) "old"      end select       end

case的写法比较多，如
case(1)
case(2:5)
case(1:)
case(:100)
case(1,3,5)

case中使用的必须是常量。不能是变量。
不能使用浮点数。

GOTO语句，可以跳来跳去。

只要在一行前加上一个数字，作为行代码。

PAUSE 会暂停。知道用户按下回车
STOP 结束程序。

0 0