* initialize VERTEX variables
*----------------------------------
      real XV, YV, ZV
      common /VERTEX/ XV, YV, ZV