Impvoved the reporting format for Fraggle

MintonGroup · Jan 13, 2023 · 4201950 · 4201950
1 parent 71fcd33
commit 4201950
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
@@ -634,12 +634,12 @@ module subroutine fraggle_generate_vel_vec(collider, nbody_system, param, lfailu
             end do outer
             lfailure = dE_best > 0.0_DP
 
+            write(message, *) try*loop
             if (lfailure) then
-               write(message,*) "Fraggle velocity calculation failed to converge after ",try*loop," steps. This collision may have added energy."
+               call swiftest_io_log_one_message(COLLISION_LOG_OUT, "Fraggle velocity calculation failed to converge after " // trim(adjustl(message)) // " steps. This collision would add energy.")
             else 
-               write(message,*) "Fraggle velocity calculation converged after ",try*loop," steps."
+               call swiftest_io_log_one_message(COLLISION_LOG_OUT,"Fraggle velocity calculation converged after " // trim(adjustl(message)) // " steps.")
             end if
-            call swiftest_io_log_one_message(COLLISION_LOG_OUT, message)
 
          end associate
       end associate