anchor.diff:     subroutine PackConvectingPoints()
         ! Counting total number of control points that convects
         nCPs = CountCPs(p, m%nNW, nFWEff)
  -      m%Uind=0.0_ReKi ! very important due to side effects of ui_seg
         m%CPs=-999.9_ReKi
         ! Packing
         iHeadP=1
  
positive.code:    if (DEV_VERSION) then
        print'(A,I0,A,I0,A,I0)','Convection - nSeg:',nSeg,' - nSegP:',nSegP, ' - nCPs:',nCPs
     endif
     call ui_seg( 1, nCPs, m%CPs, 1, nSeg, nSeg, nSegP, m%SegPoints, m%SegConnct, m%SegGamma, p%RegFunction, m%SegEpsilon, m%Uind)
     call UnPackInducedVelocity()
  
  contains
  
negative.code:    ! Implementation 
     integer(IntKi), parameter :: iNWStart=2 !< Index in r%NW where the near wake start (if >1 then the Wing panels are included in r_NW)
     integer(IntKi), parameter :: FWnSpan=1  !< Number of spanwise far wake panels ! TODO make it an input later
     logical       , parameter :: DEV_VERSION=.False.
  contains
  
  !==========================================================================
  