#TIME      <--- WTDEPTH(NODVP(I)), I=1,2,...,NUMVP --->
