fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed dot name for complex variables

Browse Source
This commit is contained in:
fdurastante
2025-04-02 16:43:28 +02:00
parent 01c6c2e9f7
commit 9da5939db0
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.F90
+2 -2
View File
@@ -2796,7 +2796,7 @@ contains
class(psb_c_base_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(in) :: n
complex(psb_spk_), allocatable :: res(:)
complex(psb_spk_), external :: cdot
complex(psb_spk_), external :: cdotc
integer(psb_ipk_) :: j,nc
if (x%is_dev()) call x%sync()
@@ -2806,7 +2806,7 @@ contains
nc = psb_size(x%v,2_psb_ipk_)
allocate(res(nc))
do j=1,nc
res(j) = cdot(n,x%v(:,j),1,y%v,1)
res(j) = cdotc(n,x%v(:,j),1,y%v,1)
end do
class default
res = y%dot(n,x%v)
base/modules/serial/psb_z_base_vect_mod.F90
+2 -2
View File
@@ -2796,7 +2796,7 @@ contains
class(psb_z_base_vect_type), intent(inout) :: y
integer(psb_ipk_), intent(in) :: n
complex(psb_dpk_), allocatable :: res(:)
complex(psb_dpk_), external :: zdot
complex(psb_dpk_), external :: zdotc
integer(psb_ipk_) :: j,nc
if (x%is_dev()) call x%sync()
@@ -2806,7 +2806,7 @@ contains
nc = psb_size(x%v,2_psb_ipk_)
allocate(res(nc))
do j=1,nc
res(j) = zdot(n,x%v(:,j),1,y%v,1)
res(j) = zdotc(n,x%v(:,j),1,y%v,1)
end do
class default
res = y%dot(n,x%v)