cosmetic

CASCADE/find_neighbours.f

@@ -91,9 +91,6 @@ c						does the work
       mode=0
       eps=0.d0
       if (ivocal.eq.1) call debug ('delaun$',0)
-c      call delaun (points,np,neighbour,vertices,nt,2*np,
-c     &             vis_tlist,vis_elist,add_tlist,eps,nv_max,
-c     &             mode,inactive,bfirst,itstart,subset)
       call delaun (points,np,neighbour,vertices,nt,2*np,
      &             vis_tlist,vis_elist,add_tlist,eps,nv_max,
      &             mode,dummy1,bfirst,itstart,dummy2)