code 34360;
    procedure SCLCOM(AR, AI, N, N1, N2); value N, N1, N2;
    integer N, N1, N2; array AR, AI;
    begin integer I, J, K;
        real S, R;
        for J:= N1 step 1 until N2 do 
        begin S:= 0;
            for I:= 1 step 1 until N do 
            begin R:= AR[I,J] ** 2 + AI[I,J] ** 2; if R > S then 
                begin S:= R; K:= I end 
            end;
            if S ^= 0 then COMCOLCST(1, N, J, AR, AI, AR[K,J] /
            S, - AI[K,J] / S)
        end 
    end SCLCOM;
        eop