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