diff --git a/krylov/psb_cbicg.f90 b/krylov/psb_cbicg.f90
index 25d8b93b..68dd6285 100644
--- a/krylov/psb_cbicg.f90
+++ b/krylov/psb_cbicg.f90
@@ -131,7 +131,7 @@ subroutine psb_cbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_cbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()
diff --git a/krylov/psb_ccgstab.f90 b/krylov/psb_ccgstab.f90
index 423f58e6..265e14c2 100644
--- a/krylov/psb_ccgstab.f90
+++ b/krylov/psb_ccgstab.f90
@@ -129,7 +129,7 @@ Subroutine psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   character(len=*), parameter :: methdname='BiCGStab'
 
   info = psb_success_
-  name = 'psb_scgstab'
+  name = 'psb_ccgstab'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()
diff --git a/krylov/psb_dbicg.f90 b/krylov/psb_dbicg.f90
index fa3796a3..a760f184 100644
--- a/krylov/psb_dbicg.f90
+++ b/krylov/psb_dbicg.f90
@@ -131,7 +131,7 @@ subroutine psb_dbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_dbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()
diff --git a/krylov/psb_dcgstab.f90 b/krylov/psb_dcgstab.f90
index 132f2e19..901a0be5 100644
--- a/krylov/psb_dcgstab.f90
+++ b/krylov/psb_dcgstab.f90
@@ -129,7 +129,7 @@ Subroutine psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   character(len=*), parameter :: methdname='BiCGStab'
 
   info = psb_success_
-  name = 'psb_scgstab'
+  name = 'psb_dcgstab'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()
diff --git a/krylov/psb_sbicg.f90 b/krylov/psb_sbicg.f90
index d5ceb340..82ca14ea 100644
--- a/krylov/psb_sbicg.f90
+++ b/krylov/psb_sbicg.f90
@@ -131,7 +131,7 @@ subroutine psb_sbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_sbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()
diff --git a/krylov/psb_zbicg.f90 b/krylov/psb_zbicg.f90
index 6f14a9c0..a159e5a9 100644
--- a/krylov/psb_zbicg.f90
+++ b/krylov/psb_zbicg.f90
@@ -131,7 +131,7 @@ subroutine psb_zbicg_vect(a,prec,b,x,eps,desc_a,info,&
   character(len=*), parameter :: methdname='BiCG'
 
   info = psb_success_
-  name = 'psb_bicg'
+  name = 'psb_zbicg'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()
diff --git a/krylov/psb_zcgstab.f90 b/krylov/psb_zcgstab.f90
index e11475fe..93849587 100644
--- a/krylov/psb_zcgstab.f90
+++ b/krylov/psb_zcgstab.f90
@@ -129,7 +129,7 @@ Subroutine psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist
   character(len=*), parameter :: methdname='BiCGStab'
 
   info = psb_success_
-  name = 'psb_scgstab'
+  name = 'psb_zcgstab'
   call psb_erractionsave(err_act)
   debug_unit  = psb_get_debug_unit()
   debug_level = psb_get_debug_level()