proc absmax=(ref[]real a)real: