hec2hrp.c converted to ioport_array (nw)