module Structures

  type set

     integer               :: index
     real(kind=8), pointer :: elements(:)

  end type set

end module Structures