code 34353;
    procedure COMROWCST(L, U, I, AR, AI, XR, XI);
    value L, U, I, XR, XI; integer L, U, I; real XR, XI;
    array AR, AI;
    begin 
    for L:= L step 1 until U do COMMUL(AR[I,L], AI[I,L], XR,
    XI, AR[I,L], AI[I,L]);
    end COMROWCST;
        eop