anchor.diff:      
       this%dim=0
       this%len=0
  -    if(allocated(this%dat))then
  -      deallocate(this%dat)
  -    end if
  +    if(allocated(this%dat)) deallocate(this%dat)
     end subroutine
     
     !> specify the vectors in this ListDVect to be n dimensional
  
positive.code:   elemental subroutine purgeListIScal(this)
      type(typeListIScal),intent(inout)::this !< this ListIScal
      
      if(allocated(this%dat))then
        deallocate(this%dat)
      end if
    end subroutine
    
    !> clear this ListDScal
  
negative.code:     class(typeListIScal),intent(inout)::this
      
      this%len=0
      if(allocated(this%dat)) deallocate(this%dat)
    end subroutine
    
    !> extend this ListIScal by doubling size of dat or add n spaces
  