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