From d95077ffd66389d11e5782ca76f26432c05cc270 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Tue, 20 Feb 2024 13:46:58 +0100
Subject: [PATCH] Fix typo in vectordev_mod

---
 cuda/psb_c_vectordev_mod.F90 | 4 +---
 cuda/psb_d_vectordev_mod.F90 | 4 +---
 cuda/psb_i_vectordev_mod.F90 | 2 --
 cuda/psb_s_vectordev_mod.F90 | 4 +---
 cuda/psb_z_vectordev_mod.F90 | 4 +---
 5 files changed, 4 insertions(+), 14 deletions(-)

diff --git a/cuda/psb_c_vectordev_mod.F90 b/cuda/psb_c_vectordev_mod.F90
index 88888f61..20a4ac3f 100644
--- a/cuda/psb_c_vectordev_mod.F90
+++ b/cuda/psb_c_vectordev_mod.F90
@@ -28,8 +28,6 @@
 !    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 !    POSSIBILITY OF SUCH DAMAGE.
 !   
-  
-
 module psb_c_vectordev_mod
 
   use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_c_vectordev_mod
       use iso_c_binding
       integer(c_int)      :: res
       integer(c_int), value :: n
-      type(c_float_complex), value :: alpha, beta,gamma,delta
+      complex(c_float_complex), value :: alpha, beta,gamma,delta
       type(c_ptr), value  :: deviceVecX, deviceVecY, deviceVecZ
     end function abgdxyzMultiVecDeviceFloatComplex
   end interface
diff --git a/cuda/psb_d_vectordev_mod.F90 b/cuda/psb_d_vectordev_mod.F90
index 176e8a6e..080b27fe 100644
--- a/cuda/psb_d_vectordev_mod.F90
+++ b/cuda/psb_d_vectordev_mod.F90
@@ -28,8 +28,6 @@
 !    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 !    POSSIBILITY OF SUCH DAMAGE.
 !   
-  
-
 module psb_d_vectordev_mod
 
   use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_d_vectordev_mod
       use iso_c_binding
       integer(c_int)      :: res
       integer(c_int), value :: n
-      type(c_double), value :: alpha, beta,gamma,delta
+      real(c_double), value :: alpha, beta,gamma,delta
       type(c_ptr), value  :: deviceVecX, deviceVecY, deviceVecZ
     end function abgdxyzMultiVecDeviceDouble
   end interface
diff --git a/cuda/psb_i_vectordev_mod.F90 b/cuda/psb_i_vectordev_mod.F90
index 84037aaf..ce3dc5e1 100644
--- a/cuda/psb_i_vectordev_mod.F90
+++ b/cuda/psb_i_vectordev_mod.F90
@@ -28,8 +28,6 @@
 !    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 !    POSSIBILITY OF SUCH DAMAGE.
 !   
-  
-
 module psb_i_vectordev_mod
 
   use psb_base_vectordev_mod
diff --git a/cuda/psb_s_vectordev_mod.F90 b/cuda/psb_s_vectordev_mod.F90
index 73bb7445..19776cbc 100644
--- a/cuda/psb_s_vectordev_mod.F90
+++ b/cuda/psb_s_vectordev_mod.F90
@@ -28,8 +28,6 @@
 !    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 !    POSSIBILITY OF SUCH DAMAGE.
 !   
-  
-
 module psb_s_vectordev_mod
 
   use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_s_vectordev_mod
       use iso_c_binding
       integer(c_int)      :: res
       integer(c_int), value :: n
-      type(c_float), value :: alpha, beta,gamma,delta
+      real(c_float), value :: alpha, beta,gamma,delta
       type(c_ptr), value  :: deviceVecX, deviceVecY, deviceVecZ
     end function abgdxyzMultiVecDeviceFloat
   end interface
diff --git a/cuda/psb_z_vectordev_mod.F90 b/cuda/psb_z_vectordev_mod.F90
index fa858acc..07e4ba37 100644
--- a/cuda/psb_z_vectordev_mod.F90
+++ b/cuda/psb_z_vectordev_mod.F90
@@ -28,8 +28,6 @@
 !    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 !    POSSIBILITY OF SUCH DAMAGE.
 !   
-  
-
 module psb_z_vectordev_mod
 
   use psb_base_vectordev_mod
@@ -322,7 +320,7 @@ module psb_z_vectordev_mod
       use iso_c_binding
       integer(c_int)      :: res
       integer(c_int), value :: n
-      type(c_double_complex), value :: alpha, beta,gamma,delta
+      complex(c_double_complex), value :: alpha, beta,gamma,delta
       type(c_ptr), value  :: deviceVecX, deviceVecY, deviceVecZ
     end function abgdxyzMultiVecDeviceDoubleComplex
   end interface