diff --git a/mlprec/mld_c_inner_mod.f90 b/mlprec/mld_c_inner_mod.f90 index 566ab38f..8cf313d0 100644 --- a/mlprec/mld_c_inner_mod.f90 +++ b/mlprec/mld_c_inner_mod.f90 @@ -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) 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 - type(psb_cspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a - integer, intent(inout) :: ilaggr(:), nlaggr(:) + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent(in) :: desc_a + integer, intent(inout) :: ilaggr(:), nlaggr(:) type(mld_sml_parms), intent(inout) :: parms - type(psb_cspmat_type), intent(out) :: ac,op_prol,op_restr - integer, intent(out) :: info + type(psb_cspmat_type), intent(out) :: ac,op_prol,op_restr + integer, intent(out) :: info end subroutine mld_caggrmat_var_asb end interface - procedure(mld_caggrmat_var_asb) :: mld_caggrmat_nosmth_asb, mld_caggrmat_smth_asb,& - & mld_caggrmat_minnrg_asb, mld_caggrmat_biz_asb + procedure(mld_caggrmat_var_asb) :: mld_caggrmat_nosmth_asb, & + & mld_caggrmat_smth_asb, mld_caggrmat_minnrg_asb, & + & mld_caggrmat_biz_asb end module mld_c_inner_mod diff --git a/mlprec/mld_d_inner_mod.f90 b/mlprec/mld_d_inner_mod.f90 index 5278ec15..b07aec6c 100644 --- a/mlprec/mld_d_inner_mod.f90 +++ b/mlprec/mld_d_inner_mod.f90 @@ -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) 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 - type(psb_dspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a - integer, intent(inout) :: ilaggr(:), nlaggr(:) + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent(in) :: desc_a + integer, intent(inout) :: ilaggr(:), nlaggr(:) type(mld_dml_parms), intent(inout) :: parms - type(psb_dspmat_type), intent(out) :: ac,op_prol,op_restr - integer, intent(out) :: info + type(psb_dspmat_type), intent(out) :: ac,op_prol,op_restr + integer, intent(out) :: info end subroutine mld_daggrmat_var_asb end interface - procedure(mld_daggrmat_var_asb) :: mld_daggrmat_nosmth_asb, mld_daggrmat_smth_asb,& - & mld_daggrmat_minnrg_asb, mld_daggrmat_biz_asb + procedure(mld_daggrmat_var_asb) :: mld_daggrmat_nosmth_asb, & + & mld_daggrmat_smth_asb, mld_daggrmat_minnrg_asb, & + & mld_daggrmat_biz_asb end module mld_d_inner_mod diff --git a/mlprec/mld_s_inner_mod.f90 b/mlprec/mld_s_inner_mod.f90 index d6b3badf..db48e913 100644 --- a/mlprec/mld_s_inner_mod.f90 +++ b/mlprec/mld_s_inner_mod.f90 @@ -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) 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 - type(psb_sspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a - integer, intent(inout) :: ilaggr(:), nlaggr(:) + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent(in) :: desc_a + integer, intent(inout) :: ilaggr(:), nlaggr(:) type(mld_sml_parms), intent(inout) :: parms - type(psb_sspmat_type), intent(out) :: ac,op_prol,op_restr - integer, intent(out) :: info + type(psb_sspmat_type), intent(out) :: ac,op_prol,op_restr + integer, intent(out) :: info end subroutine mld_saggrmat_var_asb end interface - procedure(mld_saggrmat_var_asb) :: mld_saggrmat_nosmth_asb, mld_saggrmat_smth_asb,& - & mld_saggrmat_minnrg_asb, mld_saggrmat_biz_asb + procedure(mld_saggrmat_var_asb) :: mld_saggrmat_nosmth_asb, & + & mld_saggrmat_smth_asb, mld_saggrmat_minnrg_asb, & + & mld_saggrmat_biz_asb end module mld_s_inner_mod diff --git a/mlprec/mld_z_inner_mod.f90 b/mlprec/mld_z_inner_mod.f90 index 4b630ae0..4b05ceb8 100644 --- a/mlprec/mld_z_inner_mod.f90 +++ b/mlprec/mld_z_inner_mod.f90 @@ -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) 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 - type(psb_zspmat_type), intent(in) :: a - type(psb_desc_type), intent(in) :: desc_a - integer, intent(inout) :: ilaggr(:), nlaggr(:) + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent(in) :: desc_a + integer, intent(inout) :: ilaggr(:), nlaggr(:) type(mld_dml_parms), intent(inout) :: parms - type(psb_zspmat_type), intent(out) :: ac,op_prol,op_restr - integer, intent(out) :: info + type(psb_zspmat_type), intent(out) :: ac,op_prol,op_restr + integer, intent(out) :: info end subroutine mld_zaggrmat_var_asb end interface - procedure(mld_zaggrmat_var_asb) :: mld_zaggrmat_nosmth_asb, mld_zaggrmat_smth_asb,& - & mld_zaggrmat_minnrg_asb, mld_zaggrmat_biz_asb + procedure(mld_zaggrmat_var_asb) :: mld_zaggrmat_nosmth_asb, & + & mld_zaggrmat_smth_asb, mld_zaggrmat_minnrg_asb, & + & mld_zaggrmat_biz_asb end module mld_z_inner_mod