code 31066;
 real procedure ONENRMROW(L, U, I, A); value L, U, I;
 integer L, U, I; array A;
 begin real SUM;
    SUM:= 0; for L:= L step 1 until U do 
    SUM:= SUM + ABS(A[I,L]);
    ONENRMROW:= SUM
end ONENRMROW

        eop