real(8) function norm8(n, w)
real(8) w(n)

norm8 =maxval(dabs(w))
END function norm8




