mld2p4-2:

tests/pdegen/ppde2d.f90 tests/pdegen/ppde3d.f90 tests/pdegen/spde2d.f90 tests/pdegen/spde3d.f90 Fixed missing ZERO on use.
14 years ago · 6a6a62ee80
parent 5e9593fa7a
commit 6a6a62ee80
4 changed files with 4 additions and 4 deletions
--- a/tests/pdegen/ppde2d.f90
+++ b/tests/pdegen/ppde2d.f90
@ -99,7 +99,7 @@ contains
    a2=1.d0/80
  end function a2
  function g(x,y)
-    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
    g = dzero
--- a/tests/pdegen/ppde3d.f90
+++ b/tests/pdegen/ppde3d.f90
@ -111,7 +111,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/tests/pdegen/spde2d.f90
+++ b/tests/pdegen/spde2d.f90
@ -99,7 +99,7 @@ contains
    a2=1.e0/80
  end function a2
  function g(x,y)
-    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
    g = szero
--- a/tests/pdegen/spde3d.f90
+++ b/tests/pdegen/spde3d.f90
@ -111,7 +111,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