correct_center_of_mass Interface

interface


Calls

interface~~correct_center_of_mass~~CallsGraph interface~correct_center_of_mass correct_center_of_mass proc~correct_center_of_mass correct_center_of_mass interface~correct_center_of_mass->proc~correct_center_of_mass com com proc~correct_center_of_mass->com proc~is_finite_number is_finite_number proc~correct_center_of_mass->proc~is_finite_number

Called by

interface~~correct_center_of_mass~~CalledByGraph interface~correct_center_of_mass correct_center_of_mass proc~perform_apm perform_apm proc~perform_apm->interface~correct_center_of_mass interface~perform_apm perform_apm interface~perform_apm->proc~perform_apm proc~construct_particles_std construct_particles_std proc~construct_particles_std->interface~perform_apm interface~construct_particles_std construct_particles_std interface~construct_particles_std->proc~construct_particles_std interface~particles particles interface~particles->interface~construct_particles_std program~convergence_test convergence_test program~convergence_test->interface~particles program~sphincs_id sphincs_id program~sphincs_id->interface~particles

public module subroutine correct_center_of_mass(npart, pos, nu, get_density, validate_pos, com_star, verbose)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: npart
double precision, intent(inout), DIMENSION(3,npart) :: pos
double precision, intent(inout), DIMENSION(npart) :: nu
function get_density(x, y, z) result(density)
Arguments
Type IntentOptional Attributes Name
double precision, intent(in) :: x
double precision, intent(in) :: y
double precision, intent(in) :: z
Return Value double precision
function validate_pos(x, y, z) result(answer)
Arguments
Type IntentOptional Attributes Name
double precision, intent(in) :: x
double precision, intent(in) :: y
double precision, intent(in) :: z
Return Value logical
double precision, intent(in), DIMENSION(3) :: com_star
logical, intent(in), optional :: verbose

Description

Translate the particles so that their center of mass coincides with the center of mass of the star, given by \(\mathrm{ID}\)