sort3.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 21 行

Sub SORT3(N, RA(), RB(), RC(), WKSP(), IWKSP())
    Call INDEXX(N, RA(), IWKSP())
    For J = 1 To N
        WKSP(J) = RA(J)
    Next J
    For J = 1 To N
        RA(J) = WKSP(IWKSP(J))
    Next J
    For J = 1 To N
        WKSP(J) = RB(J)
    Next J
    For J = 1 To N
        RB(J) = WKSP(IWKSP(J))
    Next J
    For J = 1 To N
        WKSP(J) = RC(J)
    Next J
    For J = 1 To N
        RC(J) = WKSP(IWKSP(J))
    Next J
End Sub