[問題] 關於排序

[QQ1512 (Anderson)]

小弟不才 有一個關於排序問題
想請教各位大大 用以下的陣列舉例:
 (a)    (b)    (c)    (d)
 3.4   12.4     1      8
 4.8   10.1     2      4
 8.9    9.8     3      6
10.1    9.2     4      9
 8.8    8.9     5      3
 9.8    8.8     6      5
 4.2    4.8     7      2
12.4    4.2     8      7
 9.2    3.4     9      1

內容:
 (a)矩陣:原始實數
 (b)矩陣:經由(a)由大到小排序而成
 (c)矩陣:為(a)設定原始編號1至9
 (d)矩陣:為(b)對應到(c)的編號產生

小弟只會寫(a)排序成(b) 如下:

program homework
real a(9),k,b(9)
integer i,j
open(10,file='a.txt')
open(11,file='b.txt')
  read(10,*)a
  b = a
20 do i=1,9
do j=i,9
    if(b(i).lt.b(j)) then
       k=b(i)
       b(i)=b(j)
       b(j)=k
      goto 20
  end if
end do
end do
do i=1,9
write(11,*) b(i)
end do
stop
end

而要由(a)對定到(c)矩陣產生成(d)矩陣 不知如何編寫
請問各位神人大大能幫忙小弟嗎
感激不盡!!!!!!!!!!

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 163.22.18.23
推 terryys:在b(i)b(j)互換那裡把矩陣c也互換就可以了
→ QQ1512:意思是再加一行 ?
→ QQ1512:試過了 但還是跑不出來 可以請大大詳細說明嗎感恩
推 terryys:就是你b(i)b(j)互換那裡也把c(i)c(j)互換
→ QQ1512:OK了 謝謝大大幫忙>Q<