Avoid uninitialized warnings in CG.

6 years ago · b9c8c91022
parent 0d6b300365
commit b9c8c91022
4 changed files with 4 additions and 4 deletions
--- 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 
 ! =   
--- 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 
 ! =   
--- 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 
 ! =   
--- 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 
 ! =