Real function Norm1(A,n)
! 1-norma matricii A(n*n)= norma coloanelor
real a(n,n), acol(n)

acol =SUM(abs(A), dim =1)

norm1 =maxval(acol)

END function norm1
