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