Shift atoms more actively

Signed-off-by: Igor S. Gerasimov <foxtranigor@gmail.com>

Author: foxtran

src/prog/main.F90

@@ -1153,7 +1153,7 @@ subroutine xtbMain(env, argParser)
                block
                   real(wp) :: shift(3)
                   call random_number(shift)
-                  mol%xyz(:, i) = mol%xyz(:, i) + 1.0e-6_wp * shift(:)
+                  mol%xyz(:, i) = mol%xyz(:, i) + 1.0e-4_wp * shift(:)
                end block
                end if
             end do