compute quantum-fragment centroid
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(quantum_fragment_type), | intent(in) | :: | this |
pure function quantum_fragment_centroid(this) result(centroid)
class(quantum_fragment_type), intent(in) :: this
real(dp), dimension(3) :: centroid
centroid = compute_centroid(this%nuclei)
end function quantum_fragment_centroid