fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
util/psb_s_genpde_mod.f90
    util/psb_d_genpde_mod.f90
Add nrl to interface
psblas-3.1-maint
Salvatore Filippone 12 years ago
parent d1aaed7a6c
commit 6af268cd15
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File

6
util/psb_d_genpde_mod.f90
Unescape Escape View File

@ -45,7 +45,7 @@ module psb_d_genpde_mod
interface psb_gen_pde3d interface psb_gen_pde3d
subroutine psb_d_gen_pde3d(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,amold,vmold) & a1,a2,a3,b1,b2,b3,c,g,info,f,amold,vmold,nrl)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
! !
@ -74,6 +74,7 @@ module psb_d_genpde_mod
procedure(d_func_3d), optional :: f procedure(d_func_3d), optional :: f
class(psb_d_base_sparse_mat), optional :: amold class(psb_d_base_sparse_mat), optional :: amold
class(psb_d_base_vect_type), optional :: vmold class(psb_d_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_d_gen_pde3d end subroutine psb_d_gen_pde3d
end interface end interface
@ -88,7 +89,7 @@ module psb_d_genpde_mod
interface psb_gen_pde2d interface psb_gen_pde2d
subroutine psb_d_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,& subroutine psb_d_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,&
& a1,a2,b1,b2,c,g,info,f,amold,vmold) & a1,a2,b1,b2,c,g,info,f,amold,vmold,nrl)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
! !
@ -117,6 +118,7 @@ module psb_d_genpde_mod
procedure(d_func_2d), optional :: f procedure(d_func_2d), optional :: f
class(psb_d_base_sparse_mat), optional :: amold class(psb_d_base_sparse_mat), optional :: amold
class(psb_d_base_vect_type), optional :: vmold class(psb_d_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_d_gen_pde2d end subroutine psb_d_gen_pde2d
end interface end interface

6
util/psb_s_genpde_mod.f90
Unescape Escape View File

@ -45,7 +45,7 @@ module psb_s_genpde_mod
interface psb_gen_pde3d interface psb_gen_pde3d
subroutine psb_s_gen_pde3d(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,amold,vmold) & a1,a2,a3,b1,b2,b3,c,g,info,f,amold,vmold,nrl)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
! !
@ -74,6 +74,7 @@ module psb_s_genpde_mod
procedure(s_func_3d), optional :: f procedure(s_func_3d), optional :: f
class(psb_s_base_sparse_mat), optional :: amold class(psb_s_base_sparse_mat), optional :: amold
class(psb_s_base_vect_type), optional :: vmold class(psb_s_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_s_gen_pde3d end subroutine psb_s_gen_pde3d
end interface end interface
@ -88,7 +89,7 @@ module psb_s_genpde_mod
interface psb_gen_pde2d interface psb_gen_pde2d
subroutine psb_s_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,& subroutine psb_s_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,&
& a1,a2,b1,b2,c,g,info,f,amold,vmold) & a1,a2,b1,b2,c,g,info,f,amold,vmold,nrl)
! !
! Discretizes the partial differential equation ! Discretizes the partial differential equation
! !
@ -117,6 +118,7 @@ module psb_s_genpde_mod
procedure(s_func_2d), optional :: f procedure(s_func_2d), optional :: f
class(psb_s_base_sparse_mat), optional :: amold class(psb_s_base_sparse_mat), optional :: amold
class(psb_s_base_vect_type), optional :: vmold class(psb_s_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_s_gen_pde2d end subroutine psb_s_gen_pde2d
end interface end interface

Write Preview
Loading…
Cancel
Save