fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix uninitialized warning

Browse Source
This commit is contained in:
Salvatore Filippone
2021-06-15 03:33:13 -04:00
parent 4e177ce926
commit 988021ff24
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_pde3d_base_mod.f90
+1 -1
View File
@@ -64,7 +64,7 @@ contains
b3=done/sqrt(3.0_psb_dpk_)
end function b3
function c(x,y,z)
use psb_base_mod, only : psb_dpk_, done
use psb_base_mod, only : psb_dpk_, dzero, done
real(psb_dpk_) :: c
real(psb_dpk_), intent(in) :: x,y,z
c=dzero
samples/advanced/pdegen/amg_s_pde3d_base_mod.f90
+1 -1
View File
@@ -64,7 +64,7 @@ contains
b3=sone/sqrt(3.0_psb_spk_)
end function b3
function c(x,y,z)
use psb_base_mod, only : psb_spk_, sone
use psb_base_mod, only : psb_spk_, szero, sone
real(psb_spk_) :: c
real(psb_spk_), intent(in) :: x,y,z
c=szero