fortran中如何使两个if语句同时运行

tsx

if((z>=7.96 .and. z<=8.23) .or. (z>=9.31 .and. z<=9.58)) then

if((z>=11.47 .and. z<=11.74).or. (z>=13 .and. z<=13.27)) then

li913

if((z>=7.96 .and. z<=8.23) .or. (z>=9.31 .and. z<=9.58) .or.(z>=11.47 .and. z<=11.74).or. (z>=13 .and. z<=13.27) ) then

fcode

这种方式不够优雅，而且想增加新的区间会比较累。像我这样写，优雅

[Fortran] 纯文本查看 复制代码

real :: a(2,4)
a = reshape([7.96,8.23,9.31,9.58,11.47,11.47,13.,13.27],shape(a))
if( any( z>=a(1,:).and.z<=a(2,:) ) ) then