diff --git a/krylov/psb_zgmresr.f90 b/krylov/psb_zgmresr.f90
index 237ac943..b800e993 100644
--- a/krylov/psb_zgmresr.f90
+++ b/krylov/psb_zgmresr.f90
@@ -316,7 +316,7 @@ Subroutine psb_zgmresr(a,prec,b,x,eps,desc_a,info,&
       rti  = h(i,i)
       rti1 = h(i+1,i) 
       call zrotg(rti,rti1,tmp,s(i))
-      c(i) = cmplx(tmp,zzero)
+      c(i) = cmplx(tmp,dzero)
       call zrot(1,h(i,i),1,h(i+1,i),1,real(c(i)),s(i))
       h(i+1,i) = zzero
       call zrot(1,rs(i),1,rs(i+1),1,real(c(i)),s(i))