code 34356;
    procedure HSHCOMPRD(I, II, L, U, J, AR, AI, BR, BI, T);
    value I, II, L, U, J, T; integer I, II, L, U, J; real T;
    array AR, AI, BR, BI;
    begin 
    for L:= L step 1 until U do ELMCOMCOL(I, II, L, J, AR, AI,
    BR, BI, ( - TAMMAT(I, II, J, L, BR, AR) - TAMMAT(I, II, J,
    L, BI, AI)) / T, (TAMMAT(I, II, J, L, BI, AR) - TAMMAT(I,
    II, J, L, BR, AI)) / T);
    end HSHCOMPRD;
        eop