私は3つのアレイを持っています。そして、私はそれらすべてをそれらの1つでソートしようとしています。つまり、私の配列はitemarray、pricearray、quantityarrayです。itemarrayを並べ替えたいのですが、対応する配列がitemarrayとともに適切に並べ替えられていません。
これが私が作成したアルゴリズムです。私がこれを修正する方法を知っていますか?
DO i=1, NumItems-1
SmallestItem = MINVAL(itemarray(i:NumItems))
MINLOC_array = MINLOC(itemarray(i:NumItems))
Locationsmallest = (i-1)+MINLOC_array(1)
itemarray(Locationsmallest) = itemarray(i)
itemarray(i) = SmallestItem
pricearray(Locationsmallest) = pricearray(i)
pricearray(i) = SmallestItem
quantityarray(Locationsmallest) = quantityarray(i)
quantityarray(i) = SmallestItem
END DO