anchor.diff:        call vtk_quad(Connectivity)
         call vtk_cell_data_init()
         call vtk_cell_data_scalar(LatticeGamma,'Gamma')
  +      if (present(LatticeData3d)) then
  +         call vtk_point_data_init()
  +         call vtk_point_data_vector(LatticeData3d,'Uconv')
  +      endif
         call vtk_close_file()
      endif
   
  
positive.code:    logical              :: bMirror
     integer(IntKi)       :: ErrStat2
     character(ErrMsgLen) :: ErrMsg2
  
     if (DEV_VERSION) then
        print*,'------------------------------------------------------------------------------'
  
negative.code:       write(Label,'(A,A)') 'NW.Bld', i2ABC(iW)
        Filename = TRIM(FileRootName)//'.'//trim(Label)//'.'//Tstr//'.vtk'
        if (m%FirstCall) then ! Small Hack - At t=0, NW not set, but first NW panel is the LL panel
           allocate(dxdt_0(3, size(m%dxdt_NW,2) , m%nNW+1)); dxdt_0=0.0_ReKi
           call WrVTK_Lattice(FileName, m%r_LL(1:3,:,1:2,iW), m%Gamma_LL(:,iW:iW),dxdt_0)
           deallocate(dxdt_0)
        else
           call WrVTK_Lattice(FileName, x%r_NW(1:3,:,1:m%nNW+1,iW), x%Gamma_NW(:,1:m%nNW,iW), m%dxdt_NW(:,:,1:m%nNW+1,iW))
        endif
     enddo
     ! --------------------------------------------------------------------------------}
  