diff --git a/base/psblas/psb_cdot.f90 b/base/psblas/psb_cdot.f90
index 7e669761..cf7d5f01 100644
--- 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_
diff --git a/base/psblas/psb_ddot.f90 b/base/psblas/psb_ddot.f90
index 3d79266a..2a2b00f3 100644
--- 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_
diff --git a/base/psblas/psb_sdot.f90 b/base/psblas/psb_sdot.f90
index e6da978a..86627f07 100644
--- 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_
diff --git a/base/psblas/psb_zdot.f90 b/base/psblas/psb_zdot.f90
index 1ff86719..a9cd1d98 100644
--- 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_