而Fortran中的所有元素都不为零

Question

我正在尝试使用一个循环，直到两个数组的所有元素都为0：

我在想：

DO WHILE(ALL(QueueST/=0) .AND. ALL(QueuePT/=0))
!here things to do 
END DO

这是对的吗？有没有更好的办法 ？ 怎么样：

DO    
IF(ALL(QueueST/=0) .AND. ALL(QueuePT/=0))THEN
  EXIT
END IF 
    !here things to do 
END DO

有什么不同吗？

Answer 1

他们不正确。在使用时做

nil

以第二种形式

 DO WHILE(ALL(QueueST/=0) .OR. ALL(QueuePT/=0))

这两个条件在这两个版本中应该相反。