real function smnorm (n, v, w) C----------------------------------------------------------------------- C This function routine computes the weighted max-norm C of the vector of length N contained in the array V, with weights C contained in the array w of length N: C SMNORM = MAX(i=1,...,N) ABS(V(i))*W(i) C----------------------------------------------------------------------- integer n, i real v, w, vm dimension v(n), w(n) vm = 0.0e0 do 10 i = 1,n 10 vm = max(vm,abs(v(i))*w(i)) smnorm = vm return c----------------------- end of function smnorm ------------------------ end