From 2875be5e2d1882bed7f34889447a66b8bf171da8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 14 Sep 2007 09:00:54 +0000 Subject: [PATCH] *** empty log message *** --- krylov/psb_zgmresr.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)