fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
test/pargen/ppde3d.f90
 test/pargen/spde3d.f90
 util/psb_d_genpde_impl.f90
 util/psb_d_genpde_mod.f90
 util/psb_s_genpde_impl.f90
 util/psb_s_genpde_mod.f90

Fixed name of gen_pde2|3d
This commit is contained in:
Salvatore Filippone
2012-02-17 20:44:43 +00:00
parent 0aa1bd1c24
commit 06249c361f
6 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde3d.f90
+2 -2
View File
@@ -122,13 +122,13 @@ program ppde3d
!
call psb_barrier(ictxt)
t1 = psb_wtime()
call psb_gen_prob3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
call psb_gen_pde3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
& a1,a2,a3,b1,b2,b3,c,g,info)
call psb_barrier(ictxt)
t2 = psb_wtime() - t1
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_gen_prob3d'
ch_err='psb_gen_pde3d'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
test/pargen/spde3d.f90
+2 -2
View File
@@ -123,13 +123,13 @@ program spde3d
!
call psb_barrier(ictxt)
t1 = psb_wtime()
call psb_gen_prob3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
call psb_gen_pde3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
& a1,a2,a3,b1,b2,b3,c,g,info)
call psb_barrier(ictxt)
t2 = psb_wtime() - t1
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_gen_prob3d'
ch_err='psb_gen_pde3d'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
util/psb_d_genpde_impl.f90
+6 -6
View File
@@ -2,9 +2,9 @@
! subroutine to allocate and fill in the coefficient matrix and
! the rhs.
!
subroutine psb_d_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,a3,b1,b2,b3,c,g,info,f)
subroutine psb_d_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,a3,b1,b2,b3,c,g,info,f)
use psb_base_mod
use psb_d_genpde_mod, psb_protect_name => psb_d_gen_prob3d
use psb_d_genpde_mod, psb_protect_name => psb_d_gen_pde3d
!
! Discretizes the partial differential equation
!
@@ -289,7 +289,7 @@ subroutine psb_d_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,a3,b1,b2,b3,c,g
return
end if
return
end subroutine psb_d_gen_prob3d
end subroutine psb_d_gen_pde3d
@@ -297,9 +297,9 @@ end subroutine psb_d_gen_prob3d
! subroutine to allocate and fill in the coefficient matrix and
! the rhs.
!
subroutine psb_d_gen_prob2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
subroutine psb_d_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
use psb_base_mod
use psb_d_genpde_mod, psb_protect_name => psb_d_gen_prob2d
use psb_d_genpde_mod, psb_protect_name => psb_d_gen_pde2d
!
! Discretizes the partial differential equation
!
@@ -560,4 +560,4 @@ subroutine psb_d_gen_prob2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,
return
end if
return
end subroutine psb_d_gen_prob2d
end subroutine psb_d_gen_pde2d
util/psb_d_genpde_mod.f90
+6 -6
View File
@@ -11,8 +11,8 @@ module psb_d_genpde_mod
end function d_func_3d
end interface
interface psb_gen_prob3d
subroutine psb_d_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt, &
interface psb_gen_pde3d
subroutine psb_d_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt, &
& a1,a2,a3,b1,b2,b3,c,g,info,f)
!
! Discretizes the partial differential equation
@@ -39,7 +39,7 @@ module psb_d_genpde_mod
integer(psb_ipk_) :: ictxt, info
character :: afmt*5
procedure(d_func_3d), optional :: f
end subroutine psb_d_gen_prob3d
end subroutine psb_d_gen_pde3d
end interface
@@ -51,8 +51,8 @@ module psb_d_genpde_mod
end function d_func_2d
end interface
interface psb_gen_prob2d
subroutine psb_d_gen_prob2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
interface psb_gen_pde2d
subroutine psb_d_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
!
! Discretizes the partial differential equation
!
@@ -78,7 +78,7 @@ module psb_d_genpde_mod
integer(psb_ipk_) :: ictxt, info
character :: afmt*5
procedure(d_func_2d), optional :: f
end subroutine psb_d_gen_prob2d
end subroutine psb_d_gen_pde2d
end interface
contains
util/psb_s_genpde_impl.f90
+6 -6
View File
@@ -2,9 +2,9 @@
! subroutine to allocate and fill in the coefficient matrix and
! the rhs.
!
subroutine psb_s_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,a3,b1,b2,b3,c,g,info,f)
subroutine psb_s_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,a3,b1,b2,b3,c,g,info,f)
use psb_base_mod
use psb_s_genpde_mod, psb_protect_name => psb_s_gen_prob3d
use psb_s_genpde_mod, psb_protect_name => psb_s_gen_pde3d
!
! Discretizes the partial differential equation
!
@@ -289,7 +289,7 @@ subroutine psb_s_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,a3,b1,b2,b3,c,g
return
end if
return
end subroutine psb_s_gen_prob3d
end subroutine psb_s_gen_pde3d
@@ -297,9 +297,9 @@ end subroutine psb_s_gen_prob3d
! subroutine to allocate and fill in the coefficient matrix and
! the rhs.
!
subroutine psb_s_gen_prob2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
subroutine psb_s_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
use psb_base_mod
use psb_s_genpde_mod, psb_protect_name => psb_s_gen_prob2d
use psb_s_genpde_mod, psb_protect_name => psb_s_gen_pde2d
!
! Discretizes the partial differential equation
!
@@ -560,4 +560,4 @@ subroutine psb_s_gen_prob2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,
return
end if
return
end subroutine psb_s_gen_prob2d
end subroutine psb_s_gen_pde2d
util/psb_s_genpde_mod.f90
+6 -6
View File
@@ -11,8 +11,8 @@ module psb_s_genpde_mod
end function d_func_3d
end interface
interface psb_gen_prob3d
subroutine psb_s_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt,&
interface psb_gen_pde3d
subroutine psb_s_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt,&
& a1,a2,a3,b1,b2,b3,c,g,info,f)
!
! Discretizes the partial differential equation
@@ -39,7 +39,7 @@ module psb_s_genpde_mod
integer(psb_ipk_) :: ictxt, info
character :: afmt*5
procedure(d_func_3d), optional :: f
end subroutine psb_s_gen_prob3d
end subroutine psb_s_gen_pde3d
end interface
@@ -51,8 +51,8 @@ module psb_s_genpde_mod
end function d_func_2d
end interface
interface psb_gen_prob2d
subroutine psb_s_gen_prob2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
interface psb_gen_pde2d
subroutine psb_s_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,a1,a2,b1,b2,c,g,info,f)
!
! Discretizes the partial differential equation
!
@@ -78,7 +78,7 @@ module psb_s_genpde_mod
integer(psb_ipk_) :: ictxt, info
character :: afmt*5
procedure(d_func_2d), optional :: f
end subroutine psb_s_gen_prob2d
end subroutine psb_s_gen_pde2d
end interface
contains