procedures_visitable_cells_factory.f90 – Physics of Liquids Monte-Carlo

Source Code

module procedures_visitable_cells_factory

use classes_periodic_box, only: Abstract_Periodic_Box
use types_component_wrapper, only: Component_Wrapper
use classes_pair_potential, only: Pair_Potential_Line
use classes_hard_contact, only: Abstract_Hard_Contact
use classes_neighbour_cells, only: Neighbour_Cells_Line
use classes_visitable_list, only: Abstract_Visitable_List
use classes_visitable_cells, only: Abstract_Visitable_Cells, Concrete_Visitable_Cells, &
    Null_Visitable_Cells
use classes_dipoles_neighbourhood, only: Dipolar_Neighbourhood_Line

implicit none

private
public :: create, destroy

contains

    subroutine create(cells, periodic_box, components, hard_contact, components_pairs, &
        dipolar_neighbourhoods, neighbour_cells, list_mold, interact)
        class(Abstract_Visitable_Cells), allocatable, intent(out) :: cells(:, :)
        class(Abstract_Periodic_Box), intent(in) :: periodic_box
        type(Component_Wrapper), intent(in) :: components(:)
        class(Abstract_Hard_Contact), intent(in) :: hard_contact
        type(Pair_Potential_Line), intent(in) :: components_pairs(:)
        type(Dipolar_Neighbourhood_Line), intent(in) :: dipolar_neighbourhoods(:)
        type(Neighbour_Cells_Line), intent(in) :: neighbour_cells(:)
        class(Abstract_Visitable_List), intent(in) :: list_mold
        logical, intent(in) :: interact

        integer :: i_component, j_component
        integer :: i_pair, j_pair

        if (interact) then
            allocate(Concrete_Visitable_Cells :: cells(size(components_pairs), &
                size(components_pairs)))
        else
            allocate(Null_Visitable_Cells :: cells(size(components_pairs), size(components_pairs)))
        end if

        do j_component = 1, size(cells, 2)
            do i_component = 1, size(cells, 1)
                j_pair = max(i_component, j_component)
                i_pair = min(i_component, j_component)
                associate (pair_ij => components_pairs(j_pair)%line(i_pair)%potential, &
                    neighbourhood_ij => dipolar_neighbourhoods(j_pair)%line(i_pair)%neighbourhood, &
                    neighbours_ij => neighbour_cells(j_pair)%line(i_pair)%cells)
                    call cells(i_component, j_component)%construct(periodic_box, &
                        components(i_component)%positions, components(i_component)%orientations, &
                        pair_ij, hard_contact, neighbourhood_ij, neighbours_ij, list_mold)
                end associate
            end do
        end do
    end subroutine create

    subroutine destroy(cells)
        class(Abstract_Visitable_Cells), allocatable, intent(inout) :: cells(:, :)

        integer :: i_component, j_component

        if (allocated(cells)) then
            do j_component = size(cells, 2), 1, -1
                do i_component = size(cells, 1), 1, -1
                    call cells(i_component, j_component)%destroy()
                end do
            end do
            deallocate(cells)
        end if
    end subroutine destroy

end module procedures_visitable_cells_factory
procedures_visitable_cells_factory.f90 Source File

Modules

Source Code

All Source Files

This File Depends On

Files Dependent On This One

Modules

Source Code

Source Code

All Source Files
