module types_short_interactions_wrapper

use classes_beta_pressure_excess, only: Abstract_Beta_Pressure_Excess
use classes_hard_contact, only: Abstract_Hard_Contact
use classes_walls_visitor, only: Abstract_Walls_Visitor
use classes_pair_potential, only: Pair_Potential_Wrapper, Pair_Potential_Line
use types_cells_wrapper, only: Cells_Wrapper
use classes_visitable_cells_memento, only: Abstract_Visitable_Cells_Memento
use classes_short_pairs_visitor, only: Abstract_Short_Pairs_Visitor
use classes_dipoles_neighbourhood, only: Dipolar_Neighbourhood_Line

implicit none

private

    type, public :: Short_Interactions_Wrapper
        class(Abstract_Beta_Pressure_Excess), allocatable :: beta_pressures_excess(:)
        class(Abstract_Hard_Contact), allocatable :: hard_contact
        class(Abstract_Walls_Visitor), allocatable :: walls_visitors(:)
        type(Pair_Potential_Wrapper), allocatable :: wall_pairs(:)
        class(Abstract_Short_Pairs_Visitor), allocatable :: components_visitors(:)
        type(Pair_Potential_Line), allocatable :: components_pairs(:)
        type(Dipolar_Neighbourhood_Line), allocatable :: dipolar_neighbourhoods(:)
        type(Cells_Wrapper), allocatable :: cells(:)
        class(Abstract_Visitable_Cells_Memento), allocatable :: visitable_cells_memento
    end type Short_Interactions_Wrapper

end module types_short_interactions_wrapper