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

mld2p4-tpre-newNL

Browse Source 
mlprec/mld_c_inner_mod.f90
 mlprec/mld_d_inner_mod.f90
 mlprec/mld_s_inner_mod.f90
 mlprec/mld_z_inner_mod.f90

Pretty-printing.
stopcriterion
Salvatore Filippone 13 years ago
parent 788d394f58
commit 9c4259c3d4
4 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File

15
mlprec/mld_c_inner_mod.f90
Unescape Escape View File

@ -149,18 +149,19 @@ module mld_c_inner_mod
subroutine mld_caggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info) subroutine mld_caggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info)
use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_
use mld_c_prec_type, only : mld_c_onelev_type, mld_sml_parms use mld_c_prec_type, only : mld_c_onelev_type, mld_sml_parms
type(psb_cspmat_type), intent(in) :: a type(psb_cspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(inout) :: ilaggr(:), nlaggr(:) integer, intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms
type(psb_cspmat_type), intent(out) :: ac,op_prol,op_restr type(psb_cspmat_type), intent(out) :: ac,op_prol,op_restr
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_caggrmat_var_asb end subroutine mld_caggrmat_var_asb
end interface end interface
procedure(mld_caggrmat_var_asb) :: mld_caggrmat_nosmth_asb, mld_caggrmat_smth_asb,& procedure(mld_caggrmat_var_asb) :: mld_caggrmat_nosmth_asb, &
& mld_caggrmat_minnrg_asb, mld_caggrmat_biz_asb & mld_caggrmat_smth_asb, mld_caggrmat_minnrg_asb, &
& mld_caggrmat_biz_asb
end module mld_c_inner_mod end module mld_c_inner_mod

15
mlprec/mld_d_inner_mod.f90
Unescape Escape View File

@ -149,18 +149,19 @@ module mld_d_inner_mod
subroutine mld_daggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info) subroutine mld_daggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info)
use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_
use mld_d_prec_type, only : mld_d_onelev_type, mld_dml_parms use mld_d_prec_type, only : mld_d_onelev_type, mld_dml_parms
type(psb_dspmat_type), intent(in) :: a type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(inout) :: ilaggr(:), nlaggr(:) integer, intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms
type(psb_dspmat_type), intent(out) :: ac,op_prol,op_restr type(psb_dspmat_type), intent(out) :: ac,op_prol,op_restr
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_daggrmat_var_asb end subroutine mld_daggrmat_var_asb
end interface end interface
procedure(mld_daggrmat_var_asb) :: mld_daggrmat_nosmth_asb, mld_daggrmat_smth_asb,& procedure(mld_daggrmat_var_asb) :: mld_daggrmat_nosmth_asb, &
& mld_daggrmat_minnrg_asb, mld_daggrmat_biz_asb & mld_daggrmat_smth_asb, mld_daggrmat_minnrg_asb, &
& mld_daggrmat_biz_asb
end module mld_d_inner_mod end module mld_d_inner_mod

15
mlprec/mld_s_inner_mod.f90
Unescape Escape View File

@ -149,18 +149,19 @@ module mld_s_inner_mod
subroutine mld_saggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info) subroutine mld_saggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info)
use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_
use mld_s_prec_type, only : mld_s_onelev_type, mld_sml_parms use mld_s_prec_type, only : mld_s_onelev_type, mld_sml_parms
type(psb_sspmat_type), intent(in) :: a type(psb_sspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(inout) :: ilaggr(:), nlaggr(:) integer, intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms
type(psb_sspmat_type), intent(out) :: ac,op_prol,op_restr type(psb_sspmat_type), intent(out) :: ac,op_prol,op_restr
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_saggrmat_var_asb end subroutine mld_saggrmat_var_asb
end interface end interface
procedure(mld_saggrmat_var_asb) :: mld_saggrmat_nosmth_asb, mld_saggrmat_smth_asb,& procedure(mld_saggrmat_var_asb) :: mld_saggrmat_nosmth_asb, &
& mld_saggrmat_minnrg_asb, mld_saggrmat_biz_asb & mld_saggrmat_smth_asb, mld_saggrmat_minnrg_asb, &
& mld_saggrmat_biz_asb
end module mld_s_inner_mod end module mld_s_inner_mod

15
mlprec/mld_z_inner_mod.f90
Unescape Escape View File

@ -149,18 +149,19 @@ module mld_z_inner_mod
subroutine mld_zaggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info) subroutine mld_zaggrmat_var_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_restr,info)
use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_ use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_
use mld_z_prec_type, only : mld_z_onelev_type, mld_dml_parms use mld_z_prec_type, only : mld_z_onelev_type, mld_dml_parms
type(psb_zspmat_type), intent(in) :: a type(psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a type(psb_desc_type), intent(in) :: desc_a
integer, intent(inout) :: ilaggr(:), nlaggr(:) integer, intent(inout) :: ilaggr(:), nlaggr(:)
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms
type(psb_zspmat_type), intent(out) :: ac,op_prol,op_restr type(psb_zspmat_type), intent(out) :: ac,op_prol,op_restr
integer, intent(out) :: info integer, intent(out) :: info
end subroutine mld_zaggrmat_var_asb end subroutine mld_zaggrmat_var_asb
end interface end interface
procedure(mld_zaggrmat_var_asb) :: mld_zaggrmat_nosmth_asb, mld_zaggrmat_smth_asb,& procedure(mld_zaggrmat_var_asb) :: mld_zaggrmat_nosmth_asb, &
& mld_zaggrmat_minnrg_asb, mld_zaggrmat_biz_asb & mld_zaggrmat_smth_asb, mld_zaggrmat_minnrg_asb, &
& mld_zaggrmat_biz_asb
end module mld_z_inner_mod end module mld_z_inner_mod

Write Preview
Loading…
Cancel
Save