Should have been part of the last commit

MintonGroup · May 18, 2021 · e1ec26d · e1ec26d
1 parent 084d8a0
commit e1ec26d
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -626,8 +626,7 @@ function ke_objective_function(v_r_mag, v_r_unit, v_t_mag, v_t_unit, x_frag, m_f
          v_shift(:, i) = v_shift(:, i) + v_t_mag(i) * v_t_unit(:, i) + vcom(:)
          fval = fval + 0.5_DP * m_frag(i) * dot_product(v_shift(:, i), v_shift(:, i))
       end do
-      !write(*,*) 'fval: ',fval 
-      fval = fval**2
+      fval = fval**4
 
       return