From 988021ff24e8bf93ed5e1dd5ac8294bd6fdada25 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 15 Jun 2021 03:33:13 -0400 Subject: [PATCH] Fix uninitialized warning --- samples/advanced/pdegen/amg_d_pde3d_base_mod.f90 | 2 +- samples/advanced/pdegen/amg_s_pde3d_base_mod.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/samples/advanced/pdegen/amg_d_pde3d_base_mod.f90 b/samples/advanced/pdegen/amg_d_pde3d_base_mod.f90 index 7becb5a1..a6de1d87 100644 --- a/samples/advanced/pdegen/amg_d_pde3d_base_mod.f90 +++ b/samples/advanced/pdegen/amg_d_pde3d_base_mod.f90 @@ -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 diff --git a/samples/advanced/pdegen/amg_s_pde3d_base_mod.f90 b/samples/advanced/pdegen/amg_s_pde3d_base_mod.f90 index 7acac026..ed420eda 100644 --- a/samples/advanced/pdegen/amg_s_pde3d_base_mod.f90 +++ b/samples/advanced/pdegen/amg_s_pde3d_base_mod.f90 @@ -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