一、if的基本用法
1.1基本信息
含义:
如果(怎么怎么样),那么执行。。。
其他如果(怎么怎么样),那么执行
。。。
其他,执行。。。
结束
格式:
if(逻辑判断式) then !逻辑判断式只有true和false两种结果
... !...表示执行程序
else if() then
...
else if() then
...
else
...
end if
如果只有没有else if或者else的话
if(逻辑判断式) ... !可省略then及end if
1.2逻辑运算符号


例子:
if(rain>=500.or.windspeed>10) then
write(*,*)'停止上班上课'
else
write(*,*)'照常上班上课'
end if !根据降雨量与风力进行判断
1.3注意事项
如果成功执行了任一条件,那么后面的条件都不会再执行,无论顺序先后,都会结束if。
浮点数的逻辑判断,要避免使用“等于”的判断。因为有误差,通常采用下列方法:
real,parameter::e=0.0001 !设置误差范围
...
if(abs(a-0.0)<=e)then
...
end if
二、select-case语句
2.1基本信息
含义:
是/在(值,范围)的话,执行。。。
是/在(值,范围)的话,执行。。。
。。。
其他,执行。。。
结束
格式:
select case(value)
case()
...
case()
...
case default
,,,
end select
2.2注意事项:
变量只能使用整数,字符及逻辑变量,不能使用浮点数及复数
每个case中所使用的数值必须是固定的变量,不能使用变量