Merge remote-tracking branch 'origin/Fragmentation' into Fragmentation

MintonGroup · May 15, 2021 · fb2ab8d · fb2ab8d
2 parents 1416a5f + e8a8d77
commit fb2ab8d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -350,7 +350,12 @@ subroutine symba_frag_pos_kinetic_energy(m_frag, ke_target, L_target, x_frag, v_
       logical,                  intent(out)   :: lmerge
 
       ! Internals
+<<<<<<< HEAD
       integer(I4B)                          :: i,  neval
+=======
+      real(DP)                              :: mtot           !! Total mass of fragments
+      integer(I4B)                          :: i, nfrag, neval
+>>>>>>> Fragmentation
       real(DP), parameter                   :: TOL = 1e-12_DP
       real(DP), dimension(:), allocatable   :: vflat
       logical                               :: lerr

diff --git a/src/util/util_minimize_bfgs.f90 b/src/util/util_minimize_bfgs.f90
@@ -27,8 +27,13 @@ function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
    real(DP), dimension(:), allocatable :: x1
    ! Internals
    integer(I4B) ::  i, j, k, l, conv, num, fnum
+<<<<<<< HEAD
    integer(I4B), parameter :: MAXLOOP = 100 !! Maximum number of loops before method is determined to have failed 
    real(DP), parameter     :: gradeps = 1e-5_DP !! Tolerance for gradient calculations
+=======
+   integer(I4B), parameter :: MAXLOOP = 2000 !! Maximum number of loops before method is determined to have failed 
+   real(DP), parameter     :: gradeps = 1e-4_DP !! Tolerance for gradient calculations
+>>>>>>> Fragmentation
    real(DP), dimension(N) :: S               !! Direction vectors 
    real(DP), dimension(N) :: Snorm           !! normalized direction 
    real(DP), dimension(N,N) :: H             !! Approximated inverse Hessian matrix