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

Fix GEMIN

Browse Source
This commit is contained in:
sfilippone
2026-04-29 14:06:23 +02:00
parent 586cafae49
commit 1cb7634d1f
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/psblas/psb_damax.f90
+2 -2
View File
@@ -689,11 +689,11 @@ function psb_dmin_vect(x, desc_a, info,global) result(res)
goto 9999
end if
! compute local max
! compute local min
if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then
res = x%minreal(desc_a%get_local_rows())
else
res = dzero
res = HUGE(done)
end if
! compute global min
base/psblas/psb_samax.f90
+2 -2
View File
@@ -689,11 +689,11 @@ function psb_smin_vect(x, desc_a, info,global) result(res)
goto 9999
end if
! compute local max
! compute local min
if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then
res = x%minreal(desc_a%get_local_rows())
else
res = szero
res = HUGE(sone)
end if
! compute global min