fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 03:42:09 +00:00
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
This commit is contained in:
Salvatore Filippone
2013-06-10 10:18:04 +00:00
parent d1aaed7a6c
commit 6af268cd15
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
util/psb_d_genpde_mod.f90
+4 -2
View File
@@ -45,7 +45,7 @@ module psb_d_genpde_mod
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,amold,vmold)
& a1,a2,a3,b1,b2,b3,c,g,info,f,amold,vmold,nrl)
!
! Discretizes the partial differential equation
!
@@ -74,6 +74,7 @@ module psb_d_genpde_mod
procedure(d_func_3d), optional :: f
class(psb_d_base_sparse_mat), optional :: amold
class(psb_d_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_d_gen_pde3d
end interface
@@ -88,7 +89,7 @@ module psb_d_genpde_mod
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,amold,vmold)
& a1,a2,b1,b2,c,g,info,f,amold,vmold,nrl)
!
! Discretizes the partial differential equation
!
@@ -117,6 +118,7 @@ module psb_d_genpde_mod
procedure(d_func_2d), optional :: f
class(psb_d_base_sparse_mat), optional :: amold
class(psb_d_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_d_gen_pde2d
end interface
util/psb_s_genpde_mod.f90
+4 -2
View File
@@ -45,7 +45,7 @@ module psb_s_genpde_mod
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,amold,vmold)
& a1,a2,a3,b1,b2,b3,c,g,info,f,amold,vmold,nrl)
!
! Discretizes the partial differential equation
!
@@ -74,6 +74,7 @@ module psb_s_genpde_mod
procedure(s_func_3d), optional :: f
class(psb_s_base_sparse_mat), optional :: amold
class(psb_s_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_s_gen_pde3d
end interface
@@ -88,7 +89,7 @@ module psb_s_genpde_mod
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,amold,vmold)
& a1,a2,b1,b2,c,g,info,f,amold,vmold,nrl)
!
! Discretizes the partial differential equation
!
@@ -117,6 +118,7 @@ module psb_s_genpde_mod
procedure(s_func_2d), optional :: f
class(psb_s_base_sparse_mat), optional :: amold
class(psb_s_base_vect_type), optional :: vmold
integer(psb_ipk_), optional :: nrl
end subroutine psb_s_gen_pde2d
end interface