strength=0.0
do i=0,40
do j=0,68
dmax=max(p1(:,i,j))
if(dmax.ge.50) then
strength:=strength+sum(p1(:,i,j))-50
else
strength:=strength+0
end if
delete(dmax)
end do
end do
print(strength)
问题解决
strength=0.0
do i=0,1
do j=0,1
dmax=max(p1(:,i,j))
print("dmax="+dmax)
if (ismissing(dmax)) then ;识别缺省值,若是则跳过循环
continue
else if(dmax.ge.50) then
strength:=strength+sum(p1(:,i,j))-50
else
strength:=strength+0
end if
end if
delete(dmax)
end do
end do
print("s="+strength)