diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90
index cc22a124..9215abe3 100644
--- a/cbind/base/psb_c_psblas_cbind_mod.f90
+++ b/cbind/base/psb_c_psblas_cbind_mod.f90
@@ -129,10 +129,10 @@ contains
     type(psb_c_descriptor) :: cdh
 
 
-    type(psb_desc_type), pointer :: descp
-    type(psb_c_vect_type), pointer :: xp,yp,zp
-    integer(psb_c_ipk_)          :: info
-    complex(psb_spk_), intent(in)        :: alpha,beta
+    type(psb_desc_type), pointer        :: descp
+    type(psb_c_vect_type), pointer    :: xp,yp,zp
+    integer(psb_c_ipk_)                 :: info
+    complex(psb_spk_), intent(in), value  :: alpha,beta
 
     res = -1
 
@@ -437,7 +437,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_c_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_float_complex) :: ch
+    real(c_float_complex), value :: ch
 
     res = -1
 
@@ -473,7 +473,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_c_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_float_complex) :: bh
+    real(c_float_complex), value :: bh
 
     res = -1
 
diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90
index 766175b0..0006f034 100644
--- a/cbind/base/psb_d_psblas_cbind_mod.f90
+++ b/cbind/base/psb_d_psblas_cbind_mod.f90
@@ -129,10 +129,10 @@ contains
     type(psb_c_descriptor) :: cdh
 
 
-    type(psb_desc_type), pointer :: descp
-    type(psb_d_vect_type), pointer :: xp,yp,zp
-    integer(psb_c_ipk_)          :: info
-    real(psb_dpk_), intent(in)        :: alpha,beta
+    type(psb_desc_type), pointer        :: descp
+    type(psb_d_vect_type), pointer    :: xp,yp,zp
+    integer(psb_c_ipk_)                 :: info
+    real(psb_dpk_), intent(in), value  :: alpha,beta
 
     res = -1
 
@@ -437,7 +437,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_d_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_double) :: ch
+    real(c_double), value :: ch
 
     res = -1
 
@@ -473,7 +473,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_d_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_double) :: bh
+    real(c_double), value :: bh
 
     res = -1
 
diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90
index 8ce42daf..cb5681b2 100644
--- a/cbind/base/psb_s_psblas_cbind_mod.f90
+++ b/cbind/base/psb_s_psblas_cbind_mod.f90
@@ -129,10 +129,10 @@ contains
     type(psb_c_descriptor) :: cdh
 
 
-    type(psb_desc_type), pointer :: descp
-    type(psb_s_vect_type), pointer :: xp,yp,zp
-    integer(psb_c_ipk_)          :: info
-    real(psb_spk_), intent(in)        :: alpha,beta
+    type(psb_desc_type), pointer        :: descp
+    type(psb_s_vect_type), pointer    :: xp,yp,zp
+    integer(psb_c_ipk_)                 :: info
+    real(psb_spk_), intent(in), value  :: alpha,beta
 
     res = -1
 
@@ -437,7 +437,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_s_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_float) :: ch
+    real(c_float), value :: ch
 
     res = -1
 
@@ -473,7 +473,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_s_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_float) :: bh
+    real(c_float), value :: bh
 
     res = -1
 
diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90
index a35ee827..8ff526c9 100644
--- a/cbind/base/psb_z_psblas_cbind_mod.f90
+++ b/cbind/base/psb_z_psblas_cbind_mod.f90
@@ -129,10 +129,10 @@ contains
     type(psb_c_descriptor) :: cdh
 
 
-    type(psb_desc_type), pointer :: descp
-    type(psb_z_vect_type), pointer :: xp,yp,zp
-    integer(psb_c_ipk_)          :: info
-    complex(psb_dpk_), intent(in)        :: alpha,beta
+    type(psb_desc_type), pointer        :: descp
+    type(psb_z_vect_type), pointer    :: xp,yp,zp
+    integer(psb_c_ipk_)                 :: info
+    complex(psb_dpk_), intent(in), value  :: alpha,beta
 
     res = -1
 
@@ -437,7 +437,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_z_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_double_complex) :: ch
+    real(c_double_complex), value :: ch
 
     res = -1
 
@@ -473,7 +473,7 @@ contains
     type(psb_desc_type), pointer :: descp
     type(psb_z_vect_type), pointer :: xp,zp
     integer(psb_c_ipk_)          :: info
-    real(c_double_complex) :: bh
+    real(c_double_complex), value :: bh
 
     res = -1