fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 0aa1bd1c24
commit 06249c361f
6 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File

4
test/pargen/ppde3d.f90
Unescape Escape 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

4
test/pargen/spde3d.f90
Unescape Escape 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

12
util/psb_d_genpde_impl.f90
Unescape Escape 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

12
util/psb_d_genpde_mod.f90
Unescape Escape 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

12
util/psb_s_genpde_impl.f90
Unescape Escape 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

12
util/psb_s_genpde_mod.f90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save