diff --git a/krylov/psb_zgmresr.f90 b/krylov/psb_zgmresr.f90
index 4c4295a5..5ab6ed79 100644
--- a/krylov/psb_zgmresr.f90
+++ b/krylov/psb_zgmresr.f90
@@ -118,10 +118,10 @@ Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,&
   character(len=20)          :: name
 
   info = 0
-  name = 'psb_dgmres'
+  name = 'psb_zgmres'
   call psb_erractionsave(err_act)
 
-  If (debug) Write(0,*) 'entering psb_dgmres'
+  If (debug) Write(0,*) 'entering psb_zgmres'
   ictxt = psb_cd_get_context(desc_a)
   Call psb_info(ictxt, me, np)