Fixed name strings in Xdot

7 years ago · d98dec4a4a
parent 273fd7ac44
commit d98dec4a4a
4 changed files with 4 additions and 4 deletions
--- a/base/psblas/psb_cdot.f90
+++ b/base/psblas/psb_cdot.f90
@ -67,7 +67,7 @@ function psb_cdot_vect(x, y, desc_a,info) result(res)
       & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
  character(len=20)      :: name, ch_err
-  name='psb_sdot'
+  name='psb_cdot_vect'
  res = czero
  if (psb_errstatus_fatal()) return 
  info=psb_success_
--- a/base/psblas/psb_ddot.f90
+++ b/base/psblas/psb_ddot.f90
@ -67,7 +67,7 @@ function psb_ddot_vect(x, y, desc_a,info) result(res)
       & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
  character(len=20)      :: name, ch_err
-  name='psb_sdot'
+  name='psb_ddot_vect'
  res = dzero
  if (psb_errstatus_fatal()) return 
  info=psb_success_
--- a/base/psblas/psb_sdot.f90
+++ b/base/psblas/psb_sdot.f90
@ -67,7 +67,7 @@ function psb_sdot_vect(x, y, desc_a,info) result(res)
       & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
  character(len=20)      :: name, ch_err
-  name='psb_sdot'
+  name='psb_sdot_vect'
  res = szero
  if (psb_errstatus_fatal()) return 
  info=psb_success_
--- a/base/psblas/psb_zdot.f90
+++ b/base/psblas/psb_zdot.f90
@ -67,7 +67,7 @@ function psb_zdot_vect(x, y, desc_a,info) result(res)
       & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr
  character(len=20)      :: name, ch_err
-  name='psb_sdot'
+  name='psb_zdot_vect'
  res = zzero
  if (psb_errstatus_fatal()) return 
  info=psb_success_