From c2828d9dd7de074a0f2f0555fb6b767b95868074 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 17 Feb 2017 11:24:43 +0000
Subject: [PATCH] psblas3-mcbind  cbind/base/psb_d_serial_cbind_mod.F90

Use interoperable types.
---
 cbind/base/psb_d_serial_cbind_mod.F90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/cbind/base/psb_d_serial_cbind_mod.F90 b/cbind/base/psb_d_serial_cbind_mod.F90
index 7a8d95f5..d450329d 100644
--- a/cbind/base/psb_d_serial_cbind_mod.F90
+++ b/cbind/base/psb_d_serial_cbind_mod.F90
@@ -12,7 +12,7 @@ contains
     implicit none 
 
     integer(c_int) :: res   
-    type(psb_c_object_type) :: xh
+    type(psb_c_dvector) :: xh
 
     type(psb_d_vect_type), pointer :: vp
     integer               :: info
@@ -31,7 +31,7 @@ contains
 
     integer(c_int)    :: res   
     real(c_double)    :: v(*)
-    type(psb_c_object_type) :: xh
+    type(psb_c_dvector) :: xh
     
     type(psb_d_vect_type), pointer :: vp
     real(psb_dpk_), allocatable :: fv(:)
@@ -53,7 +53,7 @@ contains
     implicit none 
 
     integer(c_int)    :: res   
-    type(psb_c_object_type) :: xh
+    type(psb_c_dvector) :: xh
     
     type(psb_d_vect_type), pointer :: vp
     integer               :: info
@@ -75,7 +75,7 @@ contains
     implicit none 
     integer(c_int) :: res
 
-    type(psb_c_object_type) :: mh
+    type(psb_c_dspmat) :: mh
     type(psb_dspmat_type), pointer :: ap
     integer                 ::  info
 
@@ -98,7 +98,7 @@ contains
     implicit none 
     integer(c_int) :: res
 
-    type(psb_c_object_type) :: mh
+    type(psb_c_dspmat) :: mh
     type(psb_dspmat_type), pointer :: ap
     integer                 ::  info