code 31061;
 real procedure INFNRMVEC(L, U, K, A); value L, U;
 integer L, U, K; array A;
 begin real R, MAX;
    MAX:= 0; K:= L;
    for L:= L step 1 until U do 
    begin R:= ABS(A[L]); if R > MAX then 
        begin MAX:= R; K:= L end 
    end;
    INFNRMVEC:= MAX
end INFNRMVEC;
        eop