code 31033;
    procedure DUPVECCOL(L, U, J, A, B); value L,U,J;
    integer L,U,J; array A,B;
    for L:= L step 1 until U do A[L]:= B[L,J];
        eop