PRO mag,v,m
m=SQRT(v(0)^2.+v(1)^2.+v(2)^2.)
RETURN
END