感謝各位大大
問題已解決 以下提供方法
我的程式大約如下
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 但無奈看完網路上的用法完全沒有概念
就用這種方法了