module Structures type set integer :: index real(kind=8), pointer :: elements(:) end type set end module Structures