code 34028; procedure ELMROWCOL(L, U, I, J, A, B, X); value L,U,I,J,X; integer L,U,I,J; real X; array A,B; for L:= L step 1 until U do A[I,L]:= A[I,L] + B[L,J] * X; eop