From 9d3bf7372f22e9ac75df4cbc9bd194510a8d99fc Mon Sep 17 00:00:00 2001
From: Tim Siebert <tim.siebert96@outlook.com>
Date: Mon, 4 Nov 2024 14:38:13 +0100
Subject: [PATCH] use abs instead of fabs

---
 ADOL-C/src/drivers/psdrivers.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ADOL-C/src/drivers/psdrivers.c b/ADOL-C/src/drivers/psdrivers.c
index 3e3afe02..6ca26fe1 100644
--- a/ADOL-C/src/drivers/psdrivers.c
+++ b/ADOL-C/src/drivers/psdrivers.c
@@ -143,12 +143,11 @@ int directional_active_gradient(short tag,      /* trace identifier */
       sum = 0;
       for(i=0;i<s;i++)
         {
-          sum += fabs((double)sigma_g[i]);
+          sum += abs(sigma_g[i]);
         }
 
        if (sum == s)
         {
-
           zos_pl_forward(tag,1,n,keep,x,&y,z);
           fos_pl_sig_reverse(tag,1,n,s,sigma_g, &by ,g);
           done = 1;