Fix GEMIN

2 weeks ago · 1cb7634d1f
parent 586cafae49
commit 1cb7634d1f
2 changed files with 4 additions and 4 deletions
--- a/base/psblas/psb_damax.f90
+++ b/base/psblas/psb_damax.f90
@ -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
--- a/base/psblas/psb_samax.f90
+++ b/base/psblas/psb_samax.f90
@ -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