如何检查我的数组的每个元素(在循环中)？

Question

我在Fortran中编程,如果我的数组的所有单个元素都是正数,我想执行语句1,如果它们是部分正执行语句2并且如果所有都是负执行语句3.

我知道我可能需要一个'do'循环和一个'if'结构,但无法弄清楚如何做到最好.

Answer 1

对于简单的条件,不需要使用循环

 if (ALL(A>0)) then
    statement1
 else if (ALL(A<0)) then
    statement3
 else
    statement2
 end if

Explanation:A>0是基于评估原始数组的每个元素的条件的逻辑值数组A.函数ALL()然后减少此逻辑数组,如果所有元素都为true则返回true,否则返回false.

您在标题中请求do循环.如果您确实需要修复特定错误,则必须向我们展示您的努力,错误和所有其他重要细节的代码.