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

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