Fortran 基础语法（一）

GE是大于等于号（>=），GT是大于号(>)，LE是小于等于号(<=),LT是小于号(<)

IF基本用法

If(逻辑判断式) then …… End if

If(逻辑判断式) then …… Else …… End if

逻辑运算符：

Fortran 90			Fortran 77
==	判断是否“相等”		.eq.	判断是否“等于”
/=	判断是否“不相等”		.ne.	判断是否“不等于”
>	判断是否“大于”		.gt.	判断是否“大于”
>=	判断是否“大于或等于”		.ge.	判断是否“大于或等于”
<	判断是否“小于”		.lt.	判断是否“小于”
<=	判断是否“小于或等于”		.le.	判断是否“小于或等于”

逻辑判断式

.and.	交集，如果两边的表达式都成立，整个表达式就成立
.or.	并集，两边的表达式只要有一个成立，整个表达式就成立
.not.	逻辑反向，如果后面的表达式不成立，整个表达式就成立
.eqv.	两边表达式的逻辑运算结果相同时，整个表达式就成立
.neqv.	两边表达式的逻辑运算结果不同时，整个表达式就成立

 ISNAN 函数

 说明 ISNAN 函数判断。 isnan(x)是判断x是否是NaN的函数，返回ture、false。

举例：设a是原始数据，t是结果数据

if (isnan(a)) then

     t=a !判断出a的值是NaN，那么将t也赋值为NaN

else

     进行计算

end if

READ(*,*)M,N

K=MOD(M,N)

10    if(K.GT.0) THEN

M=N

N=K

K=MOD(M,N)

GOTO  10

ENDIF

WRITE(*，*)N

END