请问要怎么找出每月最大的三个数值呢？
我目前只能用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
以上是我找出每月最大值的程式。
但不知道怎么改写成每月最大的三个数值。谢谢。

有人可以帮帮我吗？感激不尽啊！！！

如果都是正值 可以先找出最大值的位置 取值之后将该位置的值设为零 重复做三次就可以得到最大的三个值

楼上是一种解法...笨一点也可以每个月都抽出来作sorting...XD

谢谢各位的帮忙，我已设置为零，并成功找出三个最大值了