code 34377;
    procedure ELMCOMCOL(L,U,I,J,AR,AI,BR,BI,XR,XI);
    value L,U,I,J,XR,XI;
    integer L,U,I,J;real XR,XI;array AR,AI,BR,BI;
    begin 
        ELMCOL(L,U,I,J,AR,BR,XR);
        ELMCOL(L,U,I,J,AR,BI,-XI);
        ELMCOL(L,U,I,J,AI,BR,XI);
        ELMCOL(L,U,I,J,AI,BI,XR)
    end ELMCOMCOL;
        eop