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

mld2p4-2:

Browse Source 
tests/pdegen/ppde2d.f90
 tests/pdegen/ppde3d.f90
 tests/pdegen/spde2d.f90
 tests/pdegen/spde3d.f90

Fixed missing ZERO on use.
This commit is contained in:
Salvatore Filippone
2012-02-29 10:48:35 +00:00
parent 5e9593fa7a
commit 6a6a62ee80
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/pdegen/ppde2d.f90
+1 -1
View File
@@ -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
tests/pdegen/ppde3d.f90
+1 -1
View File
@@ -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
tests/pdegen/spde2d.f90
+1 -1
View File
@@ -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
tests/pdegen/spde3d.f90
+1 -1
View File
@@ -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