From 15477c9eb27acf9a8c34d9a4ac559e9784afd26d Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Tue, 21 May 2024 13:00:53 +0200
Subject: [PATCH] Fix csga_mod

---
 cuda/d_csga_mod.F90 | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/cuda/d_csga_mod.F90 b/cuda/d_csga_mod.F90
index 3820bc5e0..04e721926 100644
--- a/cuda/d_csga_mod.F90
+++ b/cuda/d_csga_mod.F90
@@ -36,6 +36,16 @@ module d_csga_mod
   type, bind(c) :: d_CAmat
     type(c_ptr) :: Mat = c_null_ptr
   end type d_CAmat
-  
+
+  interface CSGADeviceFree
+    function d_CSGADeviceFree(Mat) &
+         & bind(c,name="d_CSGADeviceFree") result(res)
+      use iso_c_binding
+      import  d_CAmat
+      type(d_CAmat)  :: Mat
+      integer(c_int) :: res
+    end function d_CSGADeviceFree
+  end interface
+
   
 end module d_csga_mod