初学fortran，现有一问题向大家求助。
有一组数（比如有20个），它们的值不是0就是1，储存在数组P（20）中，我想用一个循环进行判断，如果数组P中所存的值都是1，就把condition赋值为真，否者为假。当condition为真时，进行下面的程序。请问该如何实现。我这些可以吗？
program test
implicit none
integer :(20)
logical ::condition
integer i
open (11,file='data.out',status='old')
do i=1,20
read (11,*) P(i)
enddo
! 进行判断
do i=1,20
if (P(i)==0) then
exit
else
condition=true
endif
enddo
if (condition) then
-----
-----
endif
end
(20)
回复此楼
+1/675
