From 7a458bc24897fca6aa19aeafd74a9ddd5072e0ef Mon Sep 17 00:00:00 2001
From: Tim Siebert <tim.siebert96@outlook.com>
Date: Mon, 4 Nov 2024 09:03:29 +0100
Subject: [PATCH 1/3] explicit cast to double to rm type warning

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

diff --git a/ADOL-C/src/drivers/psdrivers.c b/ADOL-C/src/drivers/psdrivers.c
index 1864491c..3e3afe02 100644
--- a/ADOL-C/src/drivers/psdrivers.c
+++ b/ADOL-C/src/drivers/psdrivers.c
@@ -143,7 +143,7 @@ int directional_active_gradient(short tag,      /* trace identifier */
       sum = 0;
       for(i=0;i<s;i++)
         {
-          sum += fabs(sigma_g[i]);
+          sum += fabs((double)sigma_g[i]);
         }
 
        if (sum == s)

From 191f9f654779de6a786b607bed9c5707649441b4 Mon Sep 17 00:00:00 2001
From: Tim Siebert <tim.siebert96@outlook.com>
Date: Mon, 4 Nov 2024 09:03:54 +0100
Subject: [PATCH 2/3] explicit cast to int to rm type warning

---
 ADOL-C/src/fo_rev.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ADOL-C/src/fo_rev.c b/ADOL-C/src/fo_rev.c
index 8c5f894c..db8c1dea 100644
--- a/ADOL-C/src/fo_rev.c
+++ b/ADOL-C/src/fo_rev.c
@@ -355,7 +355,7 @@ int int_reverse_safe(
 # define ADOLC_EXT_FCT_V2_U edfct2->up
 # define ADOLC_EXT_FCT_V2_Z edfct2->zp
 # define ADOLC_EXT_FCT_V2_COMPLETE \
-    fos_reverse(iArrLength,iArr,nout,nin,outsz,edfct2->up,insz,edfct2->zp,edfct2->x,edfct2->y,edfct2->context)
+    fos_reverse(iArrLength,iArr,nout,nin,(int*)outsz,edfct2->up,(int*)insz,edfct2->zp,edfct2->x,edfct2->y,edfct2->context)
 #else
 # define ADOLC_EXT_FCT_U edfct->dpp_U
 # define ADOLC_EXT_FCT_Z edfct->dpp_Z
@@ -369,7 +369,7 @@ int int_reverse_safe(
 # define ADOLC_EXT_FCT_V2_U edfct2->Up
 # define ADOLC_EXT_FCT_V2_Z edfct2->Zp
 # define ADOLC_EXT_FCT_V2_COMPLETE \
-  fov_reverse(iArrLength,iArr,nout,nin,outsz,p,edfct2->Up,insz,edfct2->Zp,edfct2->x,edfct2->y, edfct2->context)
+  fov_reverse(iArrLength,iArr,nout,nin,(int*)outsz,p,edfct2->Up,(int*)insz,edfct2->Zp,edfct2->x,edfct2->y, edfct2->context)
 #endif
 #if !defined(_INT_REV_)
     locint n, m;

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 3/3] 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;