"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"