real(8) function norm$8(n, w)
real(8) w(n)

norm$8 =maxval(dabs(w))
END function norm$8




