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

Fix bounds computation in set_vect. Bug report by Alexandre Silva Lopes

Browse Source
MixedI8
Salvatore Filippone 8 years ago
parent deea842017
commit 4f8acf331a
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File

2
base/modules/serial/psb_c_base_vect_mod.f90
Unescape Escape View File

@ -795,8 +795,8 @@ contains
integer(psb_ipk_) :: info, first_, last_, nr integer(psb_ipk_) :: info, first_, last_, nr
first_ = 1 first_ = 1
last_=min(psb_size(x%v),size(val))
if (present(first)) first_ = max(1,first) if (present(first)) first_ = max(1,first)
last_ = min(psb_size(x%v),first_+size(val)-1)
if (present(last)) last_ = min(last,last_) if (present(last)) last_ = min(last,last_)
if (allocated(x%v)) then if (allocated(x%v)) then

2
base/modules/serial/psb_d_base_vect_mod.f90
Unescape Escape View File

@ -795,8 +795,8 @@ contains
integer(psb_ipk_) :: info, first_, last_, nr integer(psb_ipk_) :: info, first_, last_, nr
first_ = 1 first_ = 1
last_=min(psb_size(x%v),size(val))
if (present(first)) first_ = max(1,first) if (present(first)) first_ = max(1,first)
last_ = min(psb_size(x%v),first_+size(val)-1)
if (present(last)) last_ = min(last,last_) if (present(last)) last_ = min(last,last_)
if (allocated(x%v)) then if (allocated(x%v)) then

2
base/modules/serial/psb_i_base_vect_mod.f90
Unescape Escape View File

@ -763,8 +763,8 @@ contains
integer(psb_ipk_) :: info, first_, last_, nr integer(psb_ipk_) :: info, first_, last_, nr
first_ = 1 first_ = 1
last_=min(psb_size(x%v),size(val))
if (present(first)) first_ = max(1,first) if (present(first)) first_ = max(1,first)
last_ = min(psb_size(x%v),first_+size(val)-1)
if (present(last)) last_ = min(last,last_) if (present(last)) last_ = min(last,last_)
if (allocated(x%v)) then if (allocated(x%v)) then

2
base/modules/serial/psb_l_base_vect_mod.f90
Unescape Escape View File

@ -764,8 +764,8 @@ contains
integer(psb_ipk_) :: info, first_, last_, nr integer(psb_ipk_) :: info, first_, last_, nr
first_ = 1 first_ = 1
last_=min(psb_size(x%v),size(val))
if (present(first)) first_ = max(1,first) if (present(first)) first_ = max(1,first)
last_ = min(psb_size(x%v),first_+size(val)-1)
if (present(last)) last_ = min(last,last_) if (present(last)) last_ = min(last,last_)
if (allocated(x%v)) then if (allocated(x%v)) then

2
base/modules/serial/psb_s_base_vect_mod.f90
Unescape Escape View File

@ -795,8 +795,8 @@ contains
integer(psb_ipk_) :: info, first_, last_, nr integer(psb_ipk_) :: info, first_, last_, nr
first_ = 1 first_ = 1
last_=min(psb_size(x%v),size(val))
if (present(first)) first_ = max(1,first) if (present(first)) first_ = max(1,first)
last_ = min(psb_size(x%v),first_+size(val)-1)
if (present(last)) last_ = min(last,last_) if (present(last)) last_ = min(last,last_)
if (allocated(x%v)) then if (allocated(x%v)) then

2
base/modules/serial/psb_z_base_vect_mod.f90
Unescape Escape View File

@ -795,8 +795,8 @@ contains
integer(psb_ipk_) :: info, first_, last_, nr integer(psb_ipk_) :: info, first_, last_, nr
first_ = 1 first_ = 1
last_=min(psb_size(x%v),size(val))
if (present(first)) first_ = max(1,first) if (present(first)) first_ = max(1,first)
last_ = min(psb_size(x%v),first_+size(val)-1)
if (present(last)) last_ = min(last,last_) if (present(last)) last_ = min(last,last_)
if (allocated(x%v)) then if (allocated(x%v)) then

Write Preview
Loading…
Cancel
Save