From b62b70056ba77f86a7ba951051c93cb9dd97caf8 Mon Sep 17 00:00:00 2001
From: Tobias Neumann <tneumann@bnl.gov>
Date: Tue, 5 Mar 2024 23:23:40 +0000
Subject: [PATCH] Fix for boostx.f

---
 src/Singletop/boostx.f | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Singletop/boostx.f b/src/Singletop/boostx.f
index 5ef31a5..23edc75 100644
--- a/src/Singletop/boostx.f
+++ b/src/Singletop/boostx.f
@@ -16,10 +16,9 @@ c--- transformation as required to boost massive vector pt to ptt
       mass=dotpr(pt,pt)
       if (mass < 0._dp) then
         write(6,*) 'mass**2 < 0 in boostx.f, mass**2=',mass
+        mass = abs(mass)
+        call backtrace
         !stop
-        mass = 0._dp
-      else
-          mass=sqrt(mass)
       endif
       mass=sqrt(mass)