感谢各位大大
问题已解决 以下提供方法
我的程式大约如下
dimension Z(5) 定义一个dimension
Z(1)=100 定义一个绝对比接下来你要的Z值还大的数字
Z(2)=0
Z(3)=0
Z(4)=0
Z(5)=0
do while (条件)
.
.
.
.
if (条件) then
if (z .LT. Z(1)) then
z=Z(1)
Z(2)=aa
Z(3)=bb
Z(4)=x
Z(5)=y
else
Z(1)=Z(1)
Z(2)=Z(2)
Z(3)=Z(3)
Z(4)=Z(4)
Z(5)=Z(5)
end if
end if
end do
write(127,*) Z(2),Z(3),Z(4),Z(5),Z(1)
结果：
100 10 1 7 8 6
先把第一笔资料存起来 之后出现下一笔资料时
发现9比10小就不纪录 然后继续这样比
让最后WRITE 只记录 100 10 1 7 8 6 这笔资料
这方法感觉笨笨的 如果大大们有更好的写法 再麻烦告诉我一下
有大大跟我说用temp 但无奈看完网络上的用法完全没有概念
就用这种方法了