fragment_center_of_mass Function

  1. mimic_fragments.F90
  2. mimic_fragments
  3. fragment_center_of_mass

private pure function fragment_center_of_mass(this) result(center_of_mass)

compute the fragment center-of-mass

Arguments

TypeIntentOptionalAttributesName
class(fragment_type), intent(in) :: this

Return Value real(kind=dp),dimension(3)


Contents

Source Code

fragment_center_of_mass

Source Code

pure function fragment_center_of_mass(this) result(center_of_mass)

    class(fragment_type), intent(in) :: this

    real(dp), dimension(3) :: center_of_mass

    center_of_mass = compute_center_of_mass(this%atoms)

end function fragment_center_of_mass