code 34362;
    procedure BAKLBRCOM(N, N1, N2, D, INT, VR, VI);
    value N, N1, N2; integer N, N1, N2; array D, VR, VI;
    integer array INT;
    begin 
        BAKLBR(N, N1, N2, D, INT, VR);
        BAKLBR(N, N1, N2, D, INT, VI)
    end BAKLBRCOM;
        eop