diff --git a/krylov/psb_ccg.F90 b/krylov/psb_ccg.F90
index b9865861..41f64c77 100644
--- a/krylov/psb_ccg.F90
+++ b/krylov/psb_ccg.F90
@@ -204,7 +204,7 @@ subroutine psb_ccg_vect(a,prec,b,x,eps,desc_a,info,&
     istebz = 0
   end if
   itx=0
-
+  alpha = czero
 
   restart: do 
 ! =   
diff --git a/krylov/psb_dcg.F90 b/krylov/psb_dcg.F90
index dcccbd39..2166ff39 100644
--- a/krylov/psb_dcg.F90
+++ b/krylov/psb_dcg.F90
@@ -212,7 +212,7 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,desc_a,info,&
     end if
   end if
   itx=0
-
+  alpha = dzero
 
   restart: do 
 ! =   
diff --git a/krylov/psb_scg.F90 b/krylov/psb_scg.F90
index c85520c0..cbb41e3b 100644
--- a/krylov/psb_scg.F90
+++ b/krylov/psb_scg.F90
@@ -212,7 +212,7 @@ subroutine psb_scg_vect(a,prec,b,x,eps,desc_a,info,&
     end if
   end if
   itx=0
-
+  alpha = szero
 
   restart: do 
 ! =   
diff --git a/krylov/psb_zcg.F90 b/krylov/psb_zcg.F90
index a5616e85..f89764ce 100644
--- a/krylov/psb_zcg.F90
+++ b/krylov/psb_zcg.F90
@@ -204,7 +204,7 @@ subroutine psb_zcg_vect(a,prec,b,x,eps,desc_a,info,&
     istebz = 0
   end if
   itx=0
-
+  alpha = zzero
 
   restart: do 
 ! =