Fixed psb_gescal implementation

base/modules/psblas/psb_c_psblas_mod.F90

@@ -614,7 +614,7 @@ module psb_c_psblas_mod
          & psb_c_vect_type, psb_spk_
     type(psb_c_vect_type), intent (inout) :: x
     type(psb_c_vect_type), intent (inout) :: z
-    real(psb_spk_), intent(in)            :: c
+    complex(psb_spk_), intent(in)            :: c
     type(psb_desc_type), intent (in)        :: desc_a
     integer(psb_ipk_), intent(out)          :: info
   end subroutine psb_cscal_vect

base/modules/psblas/psb_z_psblas_mod.F90

@@ -614,7 +614,7 @@ module psb_z_psblas_mod
          & psb_z_vect_type, psb_dpk_
     type(psb_z_vect_type), intent (inout) :: x
     type(psb_z_vect_type), intent (inout) :: z
-    real(psb_dpk_), intent(in)            :: c
+    complex(psb_dpk_), intent(in)            :: c
     type(psb_desc_type), intent (in)        :: desc_a
     integer(psb_ipk_), intent(out)          :: info
   end subroutine psb_zscal_vect

base/modules/serial/psb_c_base_vect_mod.F90

@@ -1702,7 +1702,7 @@ contains
   subroutine c_base_scal_a2(x,c,z,info)
     use psi_serial_mod
     implicit none
-    real(psb_spk_), intent(in)             :: c
+    complex(psb_spk_), intent(in)             :: c
     complex(psb_spk_), intent(inout)           :: x(:)
     class(psb_c_base_vect_type), intent(inout)  :: z
     integer(psb_ipk_), intent(out)           :: info
@@ -1731,7 +1731,7 @@ contains
     use psi_serial_mod
     implicit none
     class(psb_c_base_vect_type), intent(inout)  :: x
-    real(psb_spk_), intent(in)                  :: c
+    complex(psb_spk_), intent(in)                  :: c
     class(psb_c_base_vect_type), intent(inout)  :: z
     integer(psb_ipk_), intent(out)           :: info
 

base/modules/serial/psb_c_vect_mod.F90

@@ -1111,7 +1111,7 @@ contains
   subroutine c_vect_scal_a2(x,c,z,info)
   use psi_serial_mod
   implicit none
-  real(psb_spk_), intent(in)             :: c
+  complex(psb_spk_), intent(in)             :: c
   complex(psb_spk_), intent(inout)           :: x(:)
   class(psb_c_vect_type), intent(inout)  :: z
   integer(psb_ipk_), intent(out)           :: info
@@ -1125,7 +1125,7 @@ end subroutine c_vect_scal_a2
 subroutine c_vect_scal_v2(x,c,z,info)
   use psi_serial_mod
   implicit none
-  real(psb_spk_), intent(in)             :: c
+  complex(psb_spk_), intent(in)             :: c
   class(psb_c_vect_type), intent(inout)  :: x
   class(psb_c_vect_type), intent(inout)  :: z
   integer(psb_ipk_), intent(out)           :: info

base/modules/serial/psb_z_base_vect_mod.F90

@@ -1702,7 +1702,7 @@ contains
   subroutine z_base_scal_a2(x,c,z,info)
     use psi_serial_mod
     implicit none
-    real(psb_dpk_), intent(in)             :: c
+    complex(psb_dpk_), intent(in)             :: c
     complex(psb_dpk_), intent(inout)           :: x(:)
     class(psb_z_base_vect_type), intent(inout)  :: z
     integer(psb_ipk_), intent(out)           :: info
@@ -1731,7 +1731,7 @@ contains
     use psi_serial_mod
     implicit none
     class(psb_z_base_vect_type), intent(inout)  :: x
-    real(psb_dpk_), intent(in)                  :: c
+    complex(psb_dpk_), intent(in)                  :: c
     class(psb_z_base_vect_type), intent(inout)  :: z
     integer(psb_ipk_), intent(out)           :: info
 

base/modules/serial/psb_z_vect_mod.F90

@@ -1111,7 +1111,7 @@ contains
   subroutine z_vect_scal_a2(x,c,z,info)
   use psi_serial_mod
   implicit none
-  real(psb_dpk_), intent(in)             :: c
+  complex(psb_dpk_), intent(in)             :: c
   complex(psb_dpk_), intent(inout)           :: x(:)
   class(psb_z_vect_type), intent(inout)  :: z
   integer(psb_ipk_), intent(out)           :: info
@@ -1125,7 +1125,7 @@ end subroutine z_vect_scal_a2
 subroutine z_vect_scal_v2(x,c,z,info)
   use psi_serial_mod
   implicit none
-  real(psb_dpk_), intent(in)             :: c
+  complex(psb_dpk_), intent(in)             :: c
   class(psb_z_vect_type), intent(inout)  :: x
   class(psb_z_vect_type), intent(inout)  :: z
   integer(psb_ipk_), intent(out)           :: info

base/psblas/psb_caxpby.f90

@@ -759,7 +759,7 @@ subroutine psb_cscal_vect(x,c,z,desc_a,info)
   implicit none
   type(psb_c_vect_type), intent (inout) :: x
   type(psb_c_vect_type), intent (inout) :: z
-  real(psb_spk_), intent(in)             :: c
+  complex(psb_spk_), intent(in)             :: c
   type(psb_desc_type), intent (in)        :: desc_a
   integer(psb_ipk_), intent(out)          :: info
 

base/psblas/psb_zaxpby.f90

@@ -759,7 +759,7 @@ subroutine psb_zscal_vect(x,c,z,desc_a,info)
   implicit none
   type(psb_z_vect_type), intent (inout) :: x
   type(psb_z_vect_type), intent (inout) :: z
-  real(psb_dpk_), intent(in)             :: c
+  complex(psb_dpk_), intent(in)             :: c
   type(psb_desc_type), intent (in)        :: desc_a
   integer(psb_ipk_), intent(out)          :: info
 

cbind/base/psb_c_psblas_cbind_mod.f90

@@ -579,7 +579,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
+  complex(c_float_complex) :: ch
 
   res = -1
 

cbind/base/psb_z_psblas_cbind_mod.f90

@@ -579,7 +579,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
+  complex(c_double_complex) :: ch
 
   res = -1