anchor.diff:      else
         allocate(newDat(this%dim,max(1,(m*2))))
       end if
  -    if(m>0)then
  -      newDat(:,1:m)=this%dat(:,:)
  -    end if
  +    if(m>0) newDat(:,1:m)=this%dat(:,:)
       call move_alloc(newDat,this%dat)
     end subroutine
     
  
positive.code:     class(typeListDScal),intent(inout)::this !< this ListDScal
      
      this%len=0
      if(allocated(this%dat))then
        deallocate(this%dat)
      end if
    end subroutine
    
    !> extend this ListDScal by doubling size of dat or add n spaces
  
negative.code:   elemental subroutine purgeListDScal(this)
      type(typeListDScal),intent(inout)::this !< this ListDScal
      
      if(allocated(this%dat)) deallocate(this%dat)
    end subroutine
    
    !> clear this ListDVect
  