Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a file to a file which depends upon it. A file is dependent upon another if the latter must be compiled before the former can be. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
module procedures_plmc_resetter use procedures_short_interactions_resetter, only: short_interactions_reset => reset use procedures_dipolar_interactions_resetter, only: dipolar_interactions_reset => reset use types_physical_model_wrapper, only: Physical_Model_Wrapper implicit none private public :: plmc_reset contains !> @note average_nums_particles%set() will be useless at the end of the run. subroutine plmc_reset(physical_model, skip_dipolar_interactions) type(Physical_Model_Wrapper), intent(inout) :: physical_model logical, intent(in) :: skip_dipolar_interactions integer :: i_box, i_component do i_box = 1, size(physical_model%mixture%components, 2) do i_component = 1, size(physical_model%mixture%components, 1) call physical_model%mixture%average_nums_particles(i_component, i_box)%set() end do call physical_model%mixture%total_moments(i_box)%reset() call short_interactions_reset(physical_model%short_interactions%cells(i_box)%& neighbour_cells) call short_interactions_reset(physical_model%short_interactions%cells(i_box)%& visitable_cells) if (skip_dipolar_interactions) cycle call dipolar_interactions_reset(physical_model%dipolar_interactions_static(i_box), & reset_real_pair=.true.) end do end subroutine plmc_reset end module procedures_plmc_resetter