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

norm$ =maxval(abs(w))
END function norm$




