code 34376;
    procedure ELMCOMVECCOL(L,U,J,AR,AI,BR,BI,XR,XI);
    value L,U,J,XR,XI;
    integer L,U,J;real XR,XI;array AR,AI,BR,BI;
    begin 
        ELMVECCOL(L,U,J,AR,BR,XR);
        ELMVECCOL(L,U,J,AR,BI,-XI);
        ELMVECCOL(L,U,J,AI,BR,XI);
        ELMVECCOL(L,U,J,AI,BI,XR)
    end ELMCOMVECCOL;
        eop