code 34354;
    procedure COMMATVEC(L, U, I, AR, AI, BR, BI, RR, RI);
    value L, U, I; integer L, U, I; real RR, RI;
    array AR, AI, BR, BI;
    begin 
        real MV;
        MV:= MATVEC(L, U, I, AR, BR) - MATVEC(L, U, I, AI, BI);
        RI:= MATVEC(L, U, I, AI, BR) + MATVEC(L, U, I, AR, BI);
        RR:=MV
    end COMMATVEC;
        eop