Merge branch 'development' into part3D

7 years ago · 6ef6c503fb
parent e9f466bfa3 40ea42c54c
commit 6ef6c503fb
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_