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) call psb_barrier(ictxt)
t1 = psb_wtime() 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) & a1,a2,a3,b1,b2,b3,c,g,info)
call psb_barrier(ictxt) call psb_barrier(ictxt)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_gen_prob3d' ch_err='psb_gen_pde3d'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if

4
test/pargen/spde3d.f90
Unescape Escape View File

@ -123,13 +123,13 @@ program spde3d
! !
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() 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) & a1,a2,a3,b1,b2,b3,c,g,info)
call psb_barrier(ictxt) call psb_barrier(ictxt)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_gen_prob3d' ch_err='psb_gen_pde3d'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if 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 ! subroutine to allocate and fill in the coefficient matrix and
! the rhs. ! 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_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 ! 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 return
end if end if
return 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 ! subroutine to allocate and fill in the coefficient matrix and
! the rhs. ! 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_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 ! 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 return
end if end if
return 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 function d_func_3d
end interface end interface
interface psb_gen_prob3d interface psb_gen_pde3d
subroutine psb_d_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt, & subroutine psb_d_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt, &
& a1,a2,a3,b1,b2,b3,c,g,info,f) & a1,a2,a3,b1,b2,b3,c,g,info,f)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
@ -39,7 +39,7 @@ module psb_d_genpde_mod
integer(psb_ipk_) :: ictxt, info integer(psb_ipk_) :: ictxt, info
character :: afmt*5 character :: afmt*5
procedure(d_func_3d), optional :: f procedure(d_func_3d), optional :: f
end subroutine psb_d_gen_prob3d end subroutine psb_d_gen_pde3d
end interface end interface
@ -51,8 +51,8 @@ module psb_d_genpde_mod
end function d_func_2d end function d_func_2d
end interface end interface
interface psb_gen_prob2d interface psb_gen_pde2d
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)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
! !
@ -78,7 +78,7 @@ module psb_d_genpde_mod
integer(psb_ipk_) :: ictxt, info integer(psb_ipk_) :: ictxt, info
character :: afmt*5 character :: afmt*5
procedure(d_func_2d), optional :: f procedure(d_func_2d), optional :: f
end subroutine psb_d_gen_prob2d end subroutine psb_d_gen_pde2d
end interface end interface
contains 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 ! subroutine to allocate and fill in the coefficient matrix and
! the rhs. ! 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_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 ! 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 return
end if end if
return 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 ! subroutine to allocate and fill in the coefficient matrix and
! the rhs. ! 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_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 ! 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 return
end if end if
return 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 function d_func_3d
end interface end interface
interface psb_gen_prob3d interface psb_gen_pde3d
subroutine psb_s_gen_prob3d(ictxt,idim,a,bv,xv,desc_a,afmt,& subroutine psb_s_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt,&
& a1,a2,a3,b1,b2,b3,c,g,info,f) & a1,a2,a3,b1,b2,b3,c,g,info,f)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
@ -39,7 +39,7 @@ module psb_s_genpde_mod
integer(psb_ipk_) :: ictxt, info integer(psb_ipk_) :: ictxt, info
character :: afmt*5 character :: afmt*5
procedure(d_func_3d), optional :: f procedure(d_func_3d), optional :: f
end subroutine psb_s_gen_prob3d end subroutine psb_s_gen_pde3d
end interface end interface
@ -51,8 +51,8 @@ module psb_s_genpde_mod
end function d_func_2d end function d_func_2d
end interface end interface
interface psb_gen_prob2d interface psb_gen_pde2d
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)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
! !
@ -78,7 +78,7 @@ module psb_s_genpde_mod
integer(psb_ipk_) :: ictxt, info integer(psb_ipk_) :: ictxt, info
character :: afmt*5 character :: afmt*5
procedure(d_func_2d), optional :: f procedure(d_func_2d), optional :: f
end subroutine psb_s_gen_prob2d end subroutine psb_s_gen_pde2d
end interface end interface
contains contains

Write Preview
Loading…
Cancel
Save