write(iulog,) "tcx ddist ",minval(ddist),maxval(ddist) write(iulog,) "tcx evel ",minval(evel),maxval(evel)