From 68099d181debcd354c5463e967be36e961301f22 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 9 Dec 2022 12:30:52 +0100 Subject: [PATCH] Fixed psb_gescal implementation --- base/modules/psblas/psb_c_psblas_mod.F90 | 2 +- base/modules/psblas/psb_z_psblas_mod.F90 | 2 +- base/modules/serial/psb_c_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_c_vect_mod.F90 | 4 ++-- base/modules/serial/psb_z_base_vect_mod.F90 | 4 ++-- base/modules/serial/psb_z_vect_mod.F90 | 4 ++-- base/psblas/psb_caxpby.f90 | 2 +- base/psblas/psb_zaxpby.f90 | 2 +- cbind/base/psb_c_psblas_cbind_mod.f90 | 2 +- cbind/base/psb_z_psblas_cbind_mod.f90 | 2 +- 10 files changed, 14 insertions(+), 14 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 8b415818..4193daa3 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/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 diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index a7508522..35aab6b5 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/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 diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90 index d0104857..800f4cad 100644 --- a/base/modules/serial/psb_c_base_vect_mod.F90 +++ b/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 diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index f507e334..29e91e60 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/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 diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90 index 9ef4fcc1..4918139f 100644 --- a/base/modules/serial/psb_z_base_vect_mod.F90 +++ b/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 diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 1894b790..c4060b02 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/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 diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 9358cfda..853d4f36 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/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 diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index 37e9db23..db97c057 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/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 diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 82659038..9d84eb60 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/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 diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index e86b3b88..785add80 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/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