From 5ca07fc90146c062e6662ecae1674e0605af7c08 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 16 May 2018 15:09:49 +0100 Subject: [PATCH] smoother/ --- mlprec/mld_c_base_aggregator_mod.f90 | 2 +- mlprec/mld_c_dec_aggregator_mod.f90 | 4 ++-- mlprec/mld_c_onelev_mod.f90 | 2 +- mlprec/mld_c_symdec_aggregator_mod.f90 | 2 +- mlprec/mld_d_base_aggregator_mod.f90 | 2 +- mlprec/mld_d_dec_aggregator_mod.f90 | 4 ++-- mlprec/mld_d_onelev_mod.f90 | 2 +- mlprec/mld_d_symdec_aggregator_mod.f90 | 2 +- mlprec/mld_s_base_aggregator_mod.f90 | 2 +- mlprec/mld_s_dec_aggregator_mod.f90 | 4 ++-- mlprec/mld_s_onelev_mod.f90 | 2 +- mlprec/mld_s_symdec_aggregator_mod.f90 | 2 +- mlprec/mld_z_base_aggregator_mod.f90 | 2 +- mlprec/mld_z_dec_aggregator_mod.f90 | 4 ++-- mlprec/mld_z_onelev_mod.f90 | 2 +- mlprec/mld_z_symdec_aggregator_mod.f90 | 2 +- 16 files changed, 20 insertions(+), 20 deletions(-) diff --git a/mlprec/mld_c_base_aggregator_mod.f90 b/mlprec/mld_c_base_aggregator_mod.f90 index b62c9af1..8338d28a 100644 --- a/mlprec/mld_c_base_aggregator_mod.f90 +++ b/mlprec/mld_c_base_aggregator_mod.f90 @@ -51,7 +51,7 @@ module mld_c_base_aggregator_mod use mld_base_prec_type, only : mld_sml_parms use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, & & psb_c_base_vect_type, psb_clinmap_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & + & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, & & psb_erractionsave, psb_error_handler, psb_success_ ! ! sm - class(mld_T_base_smoother_type), allocatable diff --git a/mlprec/mld_c_dec_aggregator_mod.f90 b/mlprec/mld_c_dec_aggregator_mod.f90 index 53a5f2c9..ae43bfcf 100644 --- a/mlprec/mld_c_dec_aggregator_mod.f90 +++ b/mlprec/mld_c_dec_aggregator_mod.f90 @@ -119,7 +119,7 @@ module mld_c_dec_aggregator_mod interface subroutine mld_c_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_c_dec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, mld_sml_parms + & psb_ipk_, psb_epk_, mld_sml_parms implicit none class(mld_c_dec_aggregator_type), target, intent(inout) :: ag type(mld_sml_parms), intent(inout) :: parms @@ -135,7 +135,7 @@ module mld_c_dec_aggregator_mod subroutine mld_c_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& & op_prol,op_restr,info) import :: mld_c_dec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, mld_sml_parms + & psb_ipk_, psb_epk_, mld_sml_parms implicit none class(mld_c_dec_aggregator_type), target, intent(inout) :: ag type(mld_sml_parms), intent(inout) :: parms diff --git a/mlprec/mld_c_onelev_mod.f90 b/mlprec/mld_c_onelev_mod.f90 index cf4d6639..416e803d 100644 --- a/mlprec/mld_c_onelev_mod.f90 +++ b/mlprec/mld_c_onelev_mod.f90 @@ -321,7 +321,7 @@ module mld_c_onelev_mod interface subroutine mld_c_base_onelev_setag(lv,val,info,pos) import :: psb_spk_, mld_c_onelev_type, mld_c_base_aggregator_type, & - & psb_ipk_, psb_long_int_k_, psb_desc_type + & psb_ipk_, psb_epk_, psb_desc_type Implicit None ! Arguments diff --git a/mlprec/mld_c_symdec_aggregator_mod.f90 b/mlprec/mld_c_symdec_aggregator_mod.f90 index f3df179e..f3c117b6 100644 --- a/mlprec/mld_c_symdec_aggregator_mod.f90 +++ b/mlprec/mld_c_symdec_aggregator_mod.f90 @@ -102,7 +102,7 @@ module mld_c_symdec_aggregator_mod interface subroutine mld_c_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_c_symdec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, mld_sml_parms + & psb_ipk_, psb_epk_, mld_sml_parms implicit none class(mld_c_symdec_aggregator_type), target, intent(inout) :: ag type(mld_sml_parms), intent(inout) :: parms diff --git a/mlprec/mld_d_base_aggregator_mod.f90 b/mlprec/mld_d_base_aggregator_mod.f90 index 515d64c7..a70bc0e4 100644 --- a/mlprec/mld_d_base_aggregator_mod.f90 +++ b/mlprec/mld_d_base_aggregator_mod.f90 @@ -51,7 +51,7 @@ module mld_d_base_aggregator_mod use mld_base_prec_type, only : mld_dml_parms use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, & & psb_d_base_vect_type, psb_dlinmap_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & + & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, & & psb_erractionsave, psb_error_handler, psb_success_ ! ! sm - class(mld_T_base_smoother_type), allocatable diff --git a/mlprec/mld_d_dec_aggregator_mod.f90 b/mlprec/mld_d_dec_aggregator_mod.f90 index 4b5acff3..880aad5b 100644 --- a/mlprec/mld_d_dec_aggregator_mod.f90 +++ b/mlprec/mld_d_dec_aggregator_mod.f90 @@ -119,7 +119,7 @@ module mld_d_dec_aggregator_mod interface subroutine mld_d_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_d_dec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, mld_dml_parms + & psb_ipk_, psb_epk_, mld_dml_parms implicit none class(mld_d_dec_aggregator_type), target, intent(inout) :: ag type(mld_dml_parms), intent(inout) :: parms @@ -135,7 +135,7 @@ module mld_d_dec_aggregator_mod subroutine mld_d_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& & op_prol,op_restr,info) import :: mld_d_dec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, mld_dml_parms + & psb_ipk_, psb_epk_, mld_dml_parms implicit none class(mld_d_dec_aggregator_type), target, intent(inout) :: ag type(mld_dml_parms), intent(inout) :: parms diff --git a/mlprec/mld_d_onelev_mod.f90 b/mlprec/mld_d_onelev_mod.f90 index 06eb120c..ddb76a26 100644 --- a/mlprec/mld_d_onelev_mod.f90 +++ b/mlprec/mld_d_onelev_mod.f90 @@ -321,7 +321,7 @@ module mld_d_onelev_mod interface subroutine mld_d_base_onelev_setag(lv,val,info,pos) import :: psb_dpk_, mld_d_onelev_type, mld_d_base_aggregator_type, & - & psb_ipk_, psb_long_int_k_, psb_desc_type + & psb_ipk_, psb_epk_, psb_desc_type Implicit None ! Arguments diff --git a/mlprec/mld_d_symdec_aggregator_mod.f90 b/mlprec/mld_d_symdec_aggregator_mod.f90 index 86fd4ba2..a3e989cc 100644 --- a/mlprec/mld_d_symdec_aggregator_mod.f90 +++ b/mlprec/mld_d_symdec_aggregator_mod.f90 @@ -102,7 +102,7 @@ module mld_d_symdec_aggregator_mod interface subroutine mld_d_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_d_symdec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, mld_dml_parms + & psb_ipk_, psb_epk_, mld_dml_parms implicit none class(mld_d_symdec_aggregator_type), target, intent(inout) :: ag type(mld_dml_parms), intent(inout) :: parms diff --git a/mlprec/mld_s_base_aggregator_mod.f90 b/mlprec/mld_s_base_aggregator_mod.f90 index f668023a..881bc9fb 100644 --- a/mlprec/mld_s_base_aggregator_mod.f90 +++ b/mlprec/mld_s_base_aggregator_mod.f90 @@ -51,7 +51,7 @@ module mld_s_base_aggregator_mod use mld_base_prec_type, only : mld_sml_parms use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, & & psb_s_base_vect_type, psb_slinmap_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & + & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, & & psb_erractionsave, psb_error_handler, psb_success_ ! ! sm - class(mld_T_base_smoother_type), allocatable diff --git a/mlprec/mld_s_dec_aggregator_mod.f90 b/mlprec/mld_s_dec_aggregator_mod.f90 index f1c80053..d4ccd44d 100644 --- a/mlprec/mld_s_dec_aggregator_mod.f90 +++ b/mlprec/mld_s_dec_aggregator_mod.f90 @@ -119,7 +119,7 @@ module mld_s_dec_aggregator_mod interface subroutine mld_s_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_s_dec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, mld_sml_parms + & psb_ipk_, psb_epk_, mld_sml_parms implicit none class(mld_s_dec_aggregator_type), target, intent(inout) :: ag type(mld_sml_parms), intent(inout) :: parms @@ -135,7 +135,7 @@ module mld_s_dec_aggregator_mod subroutine mld_s_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& & op_prol,op_restr,info) import :: mld_s_dec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, mld_sml_parms + & psb_ipk_, psb_epk_, mld_sml_parms implicit none class(mld_s_dec_aggregator_type), target, intent(inout) :: ag type(mld_sml_parms), intent(inout) :: parms diff --git a/mlprec/mld_s_onelev_mod.f90 b/mlprec/mld_s_onelev_mod.f90 index 6de7f2f3..f58ab58b 100644 --- a/mlprec/mld_s_onelev_mod.f90 +++ b/mlprec/mld_s_onelev_mod.f90 @@ -321,7 +321,7 @@ module mld_s_onelev_mod interface subroutine mld_s_base_onelev_setag(lv,val,info,pos) import :: psb_spk_, mld_s_onelev_type, mld_s_base_aggregator_type, & - & psb_ipk_, psb_long_int_k_, psb_desc_type + & psb_ipk_, psb_epk_, psb_desc_type Implicit None ! Arguments diff --git a/mlprec/mld_s_symdec_aggregator_mod.f90 b/mlprec/mld_s_symdec_aggregator_mod.f90 index 152ede99..44e82af5 100644 --- a/mlprec/mld_s_symdec_aggregator_mod.f90 +++ b/mlprec/mld_s_symdec_aggregator_mod.f90 @@ -102,7 +102,7 @@ module mld_s_symdec_aggregator_mod interface subroutine mld_s_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_s_symdec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, & - & psb_ipk_, psb_long_int_k_, mld_sml_parms + & psb_ipk_, psb_epk_, mld_sml_parms implicit none class(mld_s_symdec_aggregator_type), target, intent(inout) :: ag type(mld_sml_parms), intent(inout) :: parms diff --git a/mlprec/mld_z_base_aggregator_mod.f90 b/mlprec/mld_z_base_aggregator_mod.f90 index 660bc415..44c5fc46 100644 --- a/mlprec/mld_z_base_aggregator_mod.f90 +++ b/mlprec/mld_z_base_aggregator_mod.f90 @@ -51,7 +51,7 @@ module mld_z_base_aggregator_mod use mld_base_prec_type, only : mld_dml_parms use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, & & psb_z_base_vect_type, psb_zlinmap_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & + & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, & & psb_erractionsave, psb_error_handler, psb_success_ ! ! sm - class(mld_T_base_smoother_type), allocatable diff --git a/mlprec/mld_z_dec_aggregator_mod.f90 b/mlprec/mld_z_dec_aggregator_mod.f90 index 6930230b..6b533c44 100644 --- a/mlprec/mld_z_dec_aggregator_mod.f90 +++ b/mlprec/mld_z_dec_aggregator_mod.f90 @@ -119,7 +119,7 @@ module mld_z_dec_aggregator_mod interface subroutine mld_z_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_z_dec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, mld_dml_parms + & psb_ipk_, psb_epk_, mld_dml_parms implicit none class(mld_z_dec_aggregator_type), target, intent(inout) :: ag type(mld_dml_parms), intent(inout) :: parms @@ -135,7 +135,7 @@ module mld_z_dec_aggregator_mod subroutine mld_z_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& & op_prol,op_restr,info) import :: mld_z_dec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, mld_dml_parms + & psb_ipk_, psb_epk_, mld_dml_parms implicit none class(mld_z_dec_aggregator_type), target, intent(inout) :: ag type(mld_dml_parms), intent(inout) :: parms diff --git a/mlprec/mld_z_onelev_mod.f90 b/mlprec/mld_z_onelev_mod.f90 index bf4a5e8f..0d2ee89e 100644 --- a/mlprec/mld_z_onelev_mod.f90 +++ b/mlprec/mld_z_onelev_mod.f90 @@ -321,7 +321,7 @@ module mld_z_onelev_mod interface subroutine mld_z_base_onelev_setag(lv,val,info,pos) import :: psb_dpk_, mld_z_onelev_type, mld_z_base_aggregator_type, & - & psb_ipk_, psb_long_int_k_, psb_desc_type + & psb_ipk_, psb_epk_, psb_desc_type Implicit None ! Arguments diff --git a/mlprec/mld_z_symdec_aggregator_mod.f90 b/mlprec/mld_z_symdec_aggregator_mod.f90 index 2044c273..400ca083 100644 --- a/mlprec/mld_z_symdec_aggregator_mod.f90 +++ b/mlprec/mld_z_symdec_aggregator_mod.f90 @@ -102,7 +102,7 @@ module mld_z_symdec_aggregator_mod interface subroutine mld_z_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) import :: mld_z_symdec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, & - & psb_ipk_, psb_long_int_k_, mld_dml_parms + & psb_ipk_, psb_epk_, mld_dml_parms implicit none class(mld_z_symdec_aggregator_type), target, intent(inout) :: ag type(mld_dml_parms), intent(inout) :: parms