From 420195007a8e2214bfd1be2680269fbe06efd5ea Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 13 Jan 2023 14:33:04 -0500 Subject: [PATCH] Impvoved the reporting format for Fraggle --- src/fraggle/fraggle_generate.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90 index 846a63b57..e3beb38e1 100644 --- 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