code 31131;
    procedure COLCST(L, U, J, A, X); value L,U,J,X;
    integer L,U,J; real X; array A;
    for L:= L step 1 until U do A[L,J]:= A[L,J] * X;
        eop