fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix SV with CONJG

Browse Source
master
Salvatore Filippone 2 years ago
parent d4b6d4dfa1
commit de37e3602a
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
base/serial/impl/psb_c_csr_impl.f90
Unescape Escape View File

@ -993,7 +993,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=n, 1, -1 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) acc = y(i)
do j=irp(i), irp(i+1)-2 do j=irp(i), irp(i+1)-2
jc = ja(j) jc = ja(j)
@ -1013,7 +1013,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=1, n do i=1, n
y(i) = y(i)/val(irp(i)) y(i) = y(i)/conjg(val(irp(i)))
acc = y(i) acc = y(i)
do j=irp(i)+1, irp(i+1)-1 do j=irp(i)+1, irp(i+1)-1
jc = ja(j) jc = ja(j)

4
base/serial/impl/psb_d_csr_impl.f90
Unescape Escape View File

@ -993,7 +993,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=n, 1, -1 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) acc = y(i)
do j=irp(i), irp(i+1)-2 do j=irp(i), irp(i+1)-2
jc = ja(j) jc = ja(j)
@ -1013,7 +1013,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=1, n do i=1, n
y(i) = y(i)/val(irp(i)) y(i) = y(i)/(val(irp(i)))
acc = y(i) acc = y(i)
do j=irp(i)+1, irp(i+1)-1 do j=irp(i)+1, irp(i+1)-1
jc = ja(j) jc = ja(j)

4
base/serial/impl/psb_s_csr_impl.f90
Unescape Escape View File

@ -993,7 +993,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=n, 1, -1 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) acc = y(i)
do j=irp(i), irp(i+1)-2 do j=irp(i), irp(i+1)-2
jc = ja(j) jc = ja(j)
@ -1013,7 +1013,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=1, n do i=1, n
y(i) = y(i)/val(irp(i)) y(i) = y(i)/(val(irp(i)))
acc = y(i) acc = y(i)
do j=irp(i)+1, irp(i+1)-1 do j=irp(i)+1, irp(i+1)-1
jc = ja(j) jc = ja(j)

4
base/serial/impl/psb_z_csr_impl.f90
Unescape Escape View File

@ -993,7 +993,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=n, 1, -1 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) acc = y(i)
do j=irp(i), irp(i+1)-2 do j=irp(i), irp(i+1)-2
jc = ja(j) jc = ja(j)
@ -1013,7 +1013,7 @@ contains
end do end do
else if (.not.unit) then else if (.not.unit) then
do i=1, n do i=1, n
y(i) = y(i)/val(irp(i)) y(i) = y(i)/conjg(val(irp(i)))
acc = y(i) acc = y(i)
do j=irp(i)+1, irp(i+1)-1 do j=irp(i)+1, irp(i+1)-1
jc = ja(j) jc = ja(j)

Write Preview
Loading…
Cancel
Save