条件语句简化

莫莫丶格格子°

大家好：
     希望可以请教大家一个问题，
  需解决的问题：对a b c d e f g h i  j  十个变量进行判断，当他们同时满足条件x1 x2  x3 时  进行下一步运算
  请求的帮助  我可以用三个If语句进行嵌套，每个if语句中将10个变量满足条件and起来，可这样太繁琐了，请问一下，fortran中有语句可以将他们简化吗

附 程序中的If语句
     if((Atmax(i)/=32766).and.(Atmin(i)/=32766).and.(Arhmin(i)/=32766).and.(Arhm(i)/=32766).and.(Au10(i)/=32766).and.(Ahour(i)/=32766)) then
        if((Atmax(i)/=32744).and.(Atmin(i)/=32744).and.(Arhmin(i)/=32744).and.(Arhm(i)/=32744).and.(Au10(i)/=32744).and.(Ahour(i)/=32744)) then
           if((Atmax(i)/=32700).and.(Atmin(i)/=32700).and.(Arhmin(i)/=32700).and.(Arhm(i)/=32700).and.(Au10(i)/=32700).and.(Ahour(i)/=32700)) then
               {相关计算}
            else
              {相关计算}
else
{相关计算}
else
{相关计算}

mofangbao

把那些特殊值放在一个数组中，然后调用数组的查询方法，如果数组中任意一个值和当前值一样（ANY方法）或者所有值都和当前值不一样（ALL方法），则匹配成功。这两个方法还支持两个数组之间的比较，具体请查询Fortran参考书。

莫莫丶格格子°

mofangbao 发表于 2015-7-3 11:44
把那些特殊值放在一个数组中，然后调用数组的查询方法，如果数组中任意一个值和当前值一样（ANY方法）或者 ...

十分感谢，已经修改好了
  将原语句改为       
shuru=(/Atmax(i),Atmin(i),Au10(i),Ahour(i),Arhmin(i),Arhm(i)/)
if((all(shuru(1:6)/=32766)).and.(all(shuru(1:6)/=32744)).and.(all(shuru(1:6)/=32700)))  then
{相关计算}
else
{相关计算}
endif

看起来简洁多了！