[問題] 找出最大的三個數值

[wura (.......)]

請問要怎麼找出每月最大的三個數值呢？
我目前只能用maxval找出每月最大值，無法找出最大的三個數值。
有人可以告訴我該怎麼寫程式嗎？感激不盡！

      counts=1
      do j=1,12*yr
      do i=1,7
      data2(i,j)=maxval(data1(i,counts:counts+month2(j)-1))
      write (80,*) data2(i,j)
      enddo
      counts=counts+month2(j)
      enddo

以上是我找出每月最大值的程式。
但不知道怎麼改寫成每月最大的三個數值。謝謝。

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 131.111.184.21
※ 文章網址: http://www.ptt.cc/bbs/Fortran/M.1401792812.A.B35.html
※ 編輯: wura (131.111.184.21), 06/03/2014 18:56:18
→ wura:有人可以幫幫我嗎？感激不盡啊！！！
→ rex0707:如果都是正值 可以先找出最大值的位置 取值之後將該位置的
→ rex0707:值設為零 重複做三次就可以得到最大的三個值
→ MHG:樓上是一種解法...笨一點也可以每個月都抽出來作sorting...XD
→ wura:謝謝各位的幫忙，我已設置為零，並成功找出三個最大值了