mld2p4-2:

mld_dexample_1lev.f90 mld_dexample_ml.f90 mld_sexample_1lev.f90 mld_sexample_ml.f90 Fixed missing ZERO on use.
13 years ago · 15ff9bfa5a
parent 6a6a62ee80
commit 15ff9bfa5a
4 changed files with 4 additions and 4 deletions
--- a/examples/pdegen/mld_dexample_1lev.f90
+++ b/examples/pdegen/mld_dexample_1lev.f90
@ -109,7 +109,7 @@ contains
    a3=1.d0/80
  end function a3
  function g(x,y,z)
-    use psb_base_mod, only : psb_dpk_, done
+    use psb_base_mod, only : psb_dpk_, done, dzero
    real(psb_dpk_) ::  g
    real(psb_dpk_), intent(in) :: x,y,z
    g = dzero
--- a/examples/pdegen/mld_dexample_ml.f90
+++ b/examples/pdegen/mld_dexample_ml.f90
@ -114,7 +114,7 @@ contains
    a3=1.d0/80
  end function a3
  function g(x,y,z)
-    use psb_base_mod, only : psb_dpk_, done
+    use psb_base_mod, only : psb_dpk_, done, dzero
    real(psb_dpk_) ::  g
    real(psb_dpk_), intent(in) :: x,y,z
    g = dzero
--- a/examples/pdegen/mld_sexample_1lev.f90
+++ b/examples/pdegen/mld_sexample_1lev.f90
@ -113,7 +113,7 @@ contains
    a3=1.e0/80
  end function a3
  function g(x,y,z)
-    use psb_base_mod, only : psb_spk_, sone
+    use psb_base_mod, only : psb_spk_, sone, szero
    real(psb_spk_) ::  g
    real(psb_spk_), intent(in) :: x,y,z
    g = szero
--- a/examples/pdegen/mld_sexample_ml.f90
+++ b/examples/pdegen/mld_sexample_ml.f90
@ -113,7 +113,7 @@ contains
    a3=1.e0/80
  end function a3
  function g(x,y,z)
-    use psb_base_mod, only : psb_spk_, sone
+    use psb_base_mod, only : psb_spk_, sone, szero
    real(psb_spk_) ::  g
    real(psb_spk_), intent(in) :: x,y,z
    g = szero