06/11/23 16:00:07
>>83
言ってることがよく分からないが、２次元行列を列ごとにソートして、
上から下へ大きい順に並べなおしたいということか？
それなら簡単だ。
１．まず１次元ソートのサブルーチンを用意する。これを SORT(n, x) としよう。
２．列ごとにソートする。
DO １０ i = 1, m
CALL SORT(N, X(1, i))
10 CONTINUE
これでおｋ。
06/11/23 16:00:07
>>83
言ってることがよく分からないが、２次元行列を列ごとにソートして、
上から下へ大きい順に並べなおしたいということか？
それなら簡単だ。
１．まず１次元ソートのサブルーチンを用意する。これを SORT(n, x) としよう。
２．列ごとにソートする。
DO １０ i = 1, m
CALL SORT(N, X(1, i))
10 CONTINUE
これでおｋ。