fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix SV with CONJG

Browse Source
This commit is contained in:
Salvatore Filippone
2022-12-05 10:52:26 +01:00
parent d4b6d4dfa1
commit de37e3602a
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+2 -2
View File
@@ -993,7 +993,7 @@ contains
end do
else if (.not.unit) then
do i=n, 1, -1
y(i) = y(i)/val(irp(i+1)-1)
y(i) = y(i)/conjg(val(irp(i+1)-1))
acc = y(i)
do j=irp(i), irp(i+1)-2
jc = ja(j)
@@ -1013,7 +1013,7 @@ contains
end do
else if (.not.unit) then
do i=1, n
y(i) = y(i)/val(irp(i))
y(i) = y(i)/conjg(val(irp(i)))
acc = y(i)
do j=irp(i)+1, irp(i+1)-1
jc = ja(j)
base/serial/impl/psb_d_csr_impl.f90
+2 -2
View File
@@ -993,7 +993,7 @@ contains
end do
else if (.not.unit) then
do i=n, 1, -1
y(i) = y(i)/val(irp(i+1)-1)
y(i) = y(i)/(val(irp(i+1)-1))
acc = y(i)
do j=irp(i), irp(i+1)-2
jc = ja(j)
@@ -1013,7 +1013,7 @@ contains
end do
else if (.not.unit) then
do i=1, n
y(i) = y(i)/val(irp(i))
y(i) = y(i)/(val(irp(i)))
acc = y(i)
do j=irp(i)+1, irp(i+1)-1
jc = ja(j)
base/serial/impl/psb_s_csr_impl.f90
+2 -2
View File
@@ -993,7 +993,7 @@ contains
end do
else if (.not.unit) then
do i=n, 1, -1
y(i) = y(i)/val(irp(i+1)-1)
y(i) = y(i)/(val(irp(i+1)-1))
acc = y(i)
do j=irp(i), irp(i+1)-2
jc = ja(j)
@@ -1013,7 +1013,7 @@ contains
end do
else if (.not.unit) then
do i=1, n
y(i) = y(i)/val(irp(i))
y(i) = y(i)/(val(irp(i)))
acc = y(i)
do j=irp(i)+1, irp(i+1)-1
jc = ja(j)
base/serial/impl/psb_z_csr_impl.f90
+2 -2
View File
@@ -993,7 +993,7 @@ contains
end do
else if (.not.unit) then
do i=n, 1, -1
y(i) = y(i)/val(irp(i+1)-1)
y(i) = y(i)/conjg(val(irp(i+1)-1))
acc = y(i)
do j=irp(i), irp(i+1)-2
jc = ja(j)
@@ -1013,7 +1013,7 @@ contains
end do
else if (.not.unit) then
do i=1, n
y(i) = y(i)/val(irp(i))
y(i) = y(i)/conjg(val(irp(i)))
acc = y(i)
do j=irp(i)+1, irp(i+1)-1
jc = ja(j)