mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 04:42:08 +00:00
Corrected implementation of @X@_base_inv_a2_check to be compliant with NVECTOR behavior
This commit is contained in:
@@ -1523,7 +1523,7 @@ contains
|
||||
y%v(i) = 1_psb_spk_/x(i)
|
||||
else
|
||||
info = 1
|
||||
exit
|
||||
y%v(i) = 0_psb_spk_
|
||||
end if
|
||||
end do
|
||||
end if
|
||||
|
||||
@@ -1530,7 +1530,7 @@ contains
|
||||
y%v(i) = 1_psb_dpk_/x(i)
|
||||
else
|
||||
info = 1
|
||||
exit
|
||||
y%v(i) = 0_psb_dpk_
|
||||
end if
|
||||
end do
|
||||
end if
|
||||
|
||||
@@ -1530,7 +1530,7 @@ contains
|
||||
y%v(i) = 1_psb_spk_/x(i)
|
||||
else
|
||||
info = 1
|
||||
exit
|
||||
y%v(i) = 0_psb_spk_
|
||||
end if
|
||||
end do
|
||||
end if
|
||||
|
||||
@@ -1523,7 +1523,7 @@ contains
|
||||
y%v(i) = 1_psb_dpk_/x(i)
|
||||
else
|
||||
info = 1
|
||||
exit
|
||||
y%v(i) = 0_psb_dpk_
|
||||
end if
|
||||
end do
|
||||
end if
|
||||
|
||||
Reference in New Issue
Block a user