Merge branch 'debug'

MintonGroup · Aug 17, 2021 · 6b8432f · 6b8432f
2 parents aa5d9fe + 98a4d5d
commit 6b8432f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fragmentation/fragmentation.f90 b/src/fragmentation/fragmentation.f90
@@ -96,7 +96,7 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
       L_frag_orb(:) = L_orb(:, 1) + L_orb(:, 2)
       L_frag_spin(:) = L_spin(:, 1) + L_spin(:, 2)
       L_frag_budget(:) = L_frag_orb(:) + L_frag_spin(:)
-      f_spin = norm2(L_frag_spin(:)) / norm2(L_frag_budget(:))
+      f_spin = 0.05_DP
 
       call reset_fragments()
       call define_coordinate_system()