TYPE Pt_#TYPE#__ 
    TYPE (#TYPE#),POINTER :: Pt
    LOGICAL               :: owned
  END TYPE Pt_#TYPE#__

  TYPE vector_#TYPE#
  
    TYPE (Pt_#TYPE#__), POINTER, DIMENSION(:) :: at => NULL()
    INTEGER :: size
    
    INTEGER :: size_max
    REAL    :: grow_factor
    INTEGER :: chunk
  
  END TYPE vector_#TYPE#