Fix uninitialized warning

4 years ago · 988021ff24
parent 4e177ce926
commit 988021ff24
2 changed files with 2 additions and 2 deletions
--- 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
--- 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