code 34378;
    procedure ELMCOMROWVEC(L,U,I,AR,AI,BR,BI,XR,XI);
    value L,U,I,XR,XI;
    integer L,U,I;real XR,XI;array AR,AI,BR,BI;
    begin 
        ELMROWVEC(L,U,I,AR,BR,XR);
        ELMROWVEC(L,U,I,AR,BI,-XI);
        ELMROWVEC(L,U,I,AI,BR,XI);
        ELMROWVEC(L,U,I,AI,BI,XR)
    end ELMCOMROWVEC;
        eop