molecule
subroutine calculate_distances(self) class(molecule), intent(inout) :: self end subroutine calculate_distances