fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Avoid uninitialized warnings in CG.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-01-18 09:09:42 +00:00
parent 0d6b300365
commit b9c8c91022
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
krylov/psb_ccg.F90
+1 -1
View File
@@ -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
! =
krylov/psb_dcg.F90
+1 -1
View File
@@ -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
! =
krylov/psb_scg.F90
+1 -1
View File
@@ -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
! =
krylov/psb_zcg.F90
+1 -1
View File
@@ -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
! =