diff --git a/mlprec/mld_base_prec_type.F90 b/mlprec/mld_base_prec_type.F90 index db78e277..c49ba04f 100644 --- a/mlprec/mld_base_prec_type.F90 +++ b/mlprec/mld_base_prec_type.F90 @@ -70,7 +70,12 @@ module mld_base_prec_type & psb_cdfree, psb_halo_, psb_none_, psb_sum_, psb_avg_, & & psb_nohalo_, psb_square_root_, psb_toupper, psb_root_,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, psb_sizeof,& - & psb_cd_get_context, psb_info + & psb_cd_get_context, psb_info, psb_min, psb_sum, & + & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& + & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & + & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & + & psb_err_missing_override_method_ + ! ! Version numbers ! diff --git a/mlprec/mld_c_base_solver_mod.f90 b/mlprec/mld_c_base_solver_mod.f90 index 220bad48..9a5f7f95 100644 --- a/mlprec/mld_c_base_solver_mod.f90 +++ b/mlprec/mld_c_base_solver_mod.f90 @@ -54,11 +54,8 @@ module mld_c_base_solver_mod use mld_base_prec_type - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_long_int_k_, & - & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& - & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & - & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat, psb_spk_ + use psb_base_mod, only : psb_cspmat_type, & + & psb_c_vect_type, psb_c_base_vect_type, psb_c_base_sparse_mat ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_c_prec_type.f90 b/mlprec/mld_c_prec_type.f90 index 75a76f46..0b0981bb 100644 --- a/mlprec/mld_c_prec_type.f90 +++ b/mlprec/mld_c_prec_type.f90 @@ -207,7 +207,7 @@ contains end function mld_c_get_compl subroutine mld_c_cmp_compl(prec) - use psb_base_mod, only : psb_min, psb_sum + implicit none class(mld_cprec_type), intent(inout) :: prec @@ -360,8 +360,6 @@ contains ! subroutine mld_cprec_free(p,info) - use psb_base_mod - implicit none ! Arguments @@ -404,7 +402,7 @@ contains ! Top level methods. ! subroutine mld_c_apply2_vect(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_cprec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x @@ -440,7 +438,7 @@ contains end subroutine mld_c_apply2_vect subroutine mld_c_apply1_vect(prec,x,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_cprec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x @@ -476,7 +474,7 @@ contains subroutine mld_c_apply2v(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) @@ -512,7 +510,7 @@ contains end subroutine mld_c_apply2v subroutine mld_c_apply1v(prec,x,desc_data,info,trans) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) @@ -547,7 +545,7 @@ contains subroutine mld_c_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) - use psb_base_mod + implicit none class(mld_cprec_type), intent(in) :: prec integer, intent(out) :: info diff --git a/mlprec/mld_c_slu_solver.f90 b/mlprec/mld_c_slu_solver.f90 index 0ef31d70..d77b7812 100644 --- a/mlprec/mld_c_slu_solver.f90 +++ b/mlprec/mld_c_slu_solver.f90 @@ -107,6 +107,7 @@ contains subroutine c_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_c_slu_solver_type), intent(in) :: sv complex(psb_spk_),intent(inout) :: x(:) @@ -271,8 +272,6 @@ contains subroutine c_slu_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -306,8 +305,6 @@ contains subroutine c_slu_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -344,8 +341,6 @@ contains subroutine c_slu_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -380,8 +375,6 @@ contains subroutine c_slu_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -413,8 +406,6 @@ contains subroutine c_slu_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -452,7 +443,7 @@ contains end subroutine c_slu_solver_descr function c_slu_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_c_slu_solver_type), intent(in) :: sv diff --git a/mlprec/mld_c_sludist_solver.f90 b/mlprec/mld_c_sludist_solver.f90 index 1ba4d8e6..7342d21d 100644 --- a/mlprec/mld_c_sludist_solver.f90 +++ b/mlprec/mld_c_sludist_solver.f90 @@ -107,6 +107,7 @@ contains subroutine c_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_c_sludist_solver_type), intent(in) :: sv complex(psb_spk_),intent(inout) :: x(:) @@ -275,8 +276,6 @@ contains subroutine c_sludist_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -310,8 +309,6 @@ contains subroutine c_sludist_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -348,8 +345,6 @@ contains subroutine c_sludist_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -384,8 +379,6 @@ contains subroutine c_sludist_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -417,8 +410,6 @@ contains subroutine c_sludist_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -456,7 +447,7 @@ contains end subroutine c_sludist_solver_descr function c_sludist_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_c_sludist_solver_type), intent(in) :: sv diff --git a/mlprec/mld_c_umf_solver.f90 b/mlprec/mld_c_umf_solver.f90 index 55dad1a5..eab34787 100644 --- a/mlprec/mld_c_umf_solver.f90 +++ b/mlprec/mld_c_umf_solver.f90 @@ -107,6 +107,7 @@ contains subroutine c_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_c_umf_solver_type), intent(in) :: sv complex(psb_spk_),intent(inout) :: x(:) @@ -272,8 +273,6 @@ contains subroutine c_umf_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -307,8 +306,6 @@ contains subroutine c_umf_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -345,8 +342,6 @@ contains subroutine c_umf_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -381,8 +376,6 @@ contains subroutine c_umf_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -416,8 +409,6 @@ contains subroutine c_umf_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -455,7 +446,7 @@ contains end subroutine c_umf_solver_descr function c_umf_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_c_umf_solver_type), intent(in) :: sv diff --git a/mlprec/mld_d_base_solver_mod.f90 b/mlprec/mld_d_base_solver_mod.f90 index ec5c4821..f382a2a9 100644 --- a/mlprec/mld_d_base_solver_mod.f90 +++ b/mlprec/mld_d_base_solver_mod.f90 @@ -54,11 +54,8 @@ module mld_d_base_solver_mod use mld_base_prec_type - use psb_base_mod, only : psb_desc_type, psb_dspmat_type, psb_long_int_k_, & - & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& - & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & - & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat, psb_dpk_ + use psb_base_mod, only : psb_dspmat_type, & + & psb_d_vect_type, psb_d_base_vect_type, psb_d_base_sparse_mat ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_d_prec_type.f90 b/mlprec/mld_d_prec_type.f90 index a4c8e9af..550519cf 100644 --- a/mlprec/mld_d_prec_type.f90 +++ b/mlprec/mld_d_prec_type.f90 @@ -207,7 +207,7 @@ contains end function mld_d_get_compl subroutine mld_d_cmp_compl(prec) - use psb_base_mod, only : psb_min, psb_sum + implicit none class(mld_dprec_type), intent(inout) :: prec @@ -360,8 +360,6 @@ contains ! subroutine mld_dprec_free(p,info) - use psb_base_mod - implicit none ! Arguments @@ -404,7 +402,7 @@ contains ! Top level methods. ! subroutine mld_d_apply2_vect(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_dprec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x @@ -440,7 +438,7 @@ contains end subroutine mld_d_apply2_vect subroutine mld_d_apply1_vect(prec,x,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_dprec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x @@ -476,7 +474,7 @@ contains subroutine mld_d_apply2v(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) @@ -512,7 +510,7 @@ contains end subroutine mld_d_apply2v subroutine mld_d_apply1v(prec,x,desc_data,info,trans) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) @@ -547,7 +545,7 @@ contains subroutine mld_d_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) - use psb_base_mod + implicit none class(mld_dprec_type), intent(in) :: prec integer, intent(out) :: info diff --git a/mlprec/mld_d_slu_solver.f90 b/mlprec/mld_d_slu_solver.f90 index 34029571..c251023a 100644 --- a/mlprec/mld_d_slu_solver.f90 +++ b/mlprec/mld_d_slu_solver.f90 @@ -107,6 +107,7 @@ contains subroutine d_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_d_slu_solver_type), intent(in) :: sv real(psb_dpk_),intent(inout) :: x(:) @@ -269,8 +270,6 @@ contains subroutine d_slu_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -304,8 +303,6 @@ contains subroutine d_slu_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -342,8 +339,6 @@ contains subroutine d_slu_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -378,8 +373,6 @@ contains subroutine d_slu_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -411,8 +404,6 @@ contains subroutine d_slu_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -450,7 +441,7 @@ contains end subroutine d_slu_solver_descr function d_slu_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_d_slu_solver_type), intent(in) :: sv diff --git a/mlprec/mld_d_sludist_solver.f90 b/mlprec/mld_d_sludist_solver.f90 index 9607b577..51f148f2 100644 --- a/mlprec/mld_d_sludist_solver.f90 +++ b/mlprec/mld_d_sludist_solver.f90 @@ -107,6 +107,7 @@ contains subroutine d_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_d_sludist_solver_type), intent(in) :: sv real(psb_dpk_),intent(inout) :: x(:) @@ -273,8 +274,6 @@ contains subroutine d_sludist_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -308,8 +307,6 @@ contains subroutine d_sludist_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -346,8 +343,6 @@ contains subroutine d_sludist_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -382,8 +377,6 @@ contains subroutine d_sludist_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -415,8 +408,6 @@ contains subroutine d_sludist_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -454,7 +445,7 @@ contains end subroutine d_sludist_solver_descr function d_sludist_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_d_sludist_solver_type), intent(in) :: sv diff --git a/mlprec/mld_d_umf_solver.f90 b/mlprec/mld_d_umf_solver.f90 index 7e3ec737..3b089415 100644 --- a/mlprec/mld_d_umf_solver.f90 +++ b/mlprec/mld_d_umf_solver.f90 @@ -107,6 +107,7 @@ contains subroutine d_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_d_umf_solver_type), intent(in) :: sv real(psb_dpk_),intent(inout) :: x(:) @@ -270,8 +271,6 @@ contains subroutine d_umf_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -305,8 +304,6 @@ contains subroutine d_umf_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -343,8 +340,6 @@ contains subroutine d_umf_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -379,8 +374,6 @@ contains subroutine d_umf_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -414,8 +407,6 @@ contains subroutine d_umf_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -453,7 +444,7 @@ contains end subroutine d_umf_solver_descr function d_umf_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_d_umf_solver_type), intent(in) :: sv diff --git a/mlprec/mld_s_base_solver_mod.f90 b/mlprec/mld_s_base_solver_mod.f90 index 309880d3..f9444641 100644 --- a/mlprec/mld_s_base_solver_mod.f90 +++ b/mlprec/mld_s_base_solver_mod.f90 @@ -54,11 +54,8 @@ module mld_s_base_solver_mod use mld_base_prec_type - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_long_int_k_, & - & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& - & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & - & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat, psb_spk_ + use psb_base_mod, only : psb_sspmat_type, & + & psb_s_vect_type, psb_s_base_vect_type, psb_s_base_sparse_mat ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_s_prec_type.f90 b/mlprec/mld_s_prec_type.f90 index 001c74df..f332722b 100644 --- a/mlprec/mld_s_prec_type.f90 +++ b/mlprec/mld_s_prec_type.f90 @@ -207,7 +207,7 @@ contains end function mld_s_get_compl subroutine mld_s_cmp_compl(prec) - use psb_base_mod, only : psb_min, psb_sum + implicit none class(mld_sprec_type), intent(inout) :: prec @@ -360,8 +360,6 @@ contains ! subroutine mld_sprec_free(p,info) - use psb_base_mod - implicit none ! Arguments @@ -404,7 +402,7 @@ contains ! Top level methods. ! subroutine mld_s_apply2_vect(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_sprec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x @@ -440,7 +438,7 @@ contains end subroutine mld_s_apply2_vect subroutine mld_s_apply1_vect(prec,x,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_sprec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x @@ -476,7 +474,7 @@ contains subroutine mld_s_apply2v(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) @@ -512,7 +510,7 @@ contains end subroutine mld_s_apply2v subroutine mld_s_apply1v(prec,x,desc_data,info,trans) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) @@ -547,7 +545,7 @@ contains subroutine mld_s_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) - use psb_base_mod + implicit none class(mld_sprec_type), intent(in) :: prec integer, intent(out) :: info diff --git a/mlprec/mld_s_slu_solver.f90 b/mlprec/mld_s_slu_solver.f90 index c66a22c4..52d3cf20 100644 --- a/mlprec/mld_s_slu_solver.f90 +++ b/mlprec/mld_s_slu_solver.f90 @@ -107,6 +107,7 @@ contains subroutine s_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_s_slu_solver_type), intent(in) :: sv real(psb_spk_),intent(inout) :: x(:) @@ -269,8 +270,6 @@ contains subroutine s_slu_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -304,8 +303,6 @@ contains subroutine s_slu_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -342,8 +339,6 @@ contains subroutine s_slu_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -378,8 +373,6 @@ contains subroutine s_slu_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -411,8 +404,6 @@ contains subroutine s_slu_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -450,7 +441,7 @@ contains end subroutine s_slu_solver_descr function s_slu_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_s_slu_solver_type), intent(in) :: sv diff --git a/mlprec/mld_s_sludist_solver.f90 b/mlprec/mld_s_sludist_solver.f90 index e61f2f4e..04f797cd 100644 --- a/mlprec/mld_s_sludist_solver.f90 +++ b/mlprec/mld_s_sludist_solver.f90 @@ -107,6 +107,7 @@ contains subroutine s_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_s_sludist_solver_type), intent(in) :: sv real(psb_spk_),intent(inout) :: x(:) @@ -273,8 +274,6 @@ contains subroutine s_sludist_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -308,8 +307,6 @@ contains subroutine s_sludist_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -346,8 +343,6 @@ contains subroutine s_sludist_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -382,8 +377,6 @@ contains subroutine s_sludist_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -415,8 +408,6 @@ contains subroutine s_sludist_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -454,7 +445,7 @@ contains end subroutine s_sludist_solver_descr function s_sludist_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_s_sludist_solver_type), intent(in) :: sv diff --git a/mlprec/mld_s_umf_solver.f90 b/mlprec/mld_s_umf_solver.f90 index 4bd2324f..903d3da1 100644 --- a/mlprec/mld_s_umf_solver.f90 +++ b/mlprec/mld_s_umf_solver.f90 @@ -107,6 +107,7 @@ contains subroutine s_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_s_umf_solver_type), intent(in) :: sv real(psb_spk_),intent(inout) :: x(:) @@ -270,8 +271,6 @@ contains subroutine s_umf_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -305,8 +304,6 @@ contains subroutine s_umf_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -343,8 +340,6 @@ contains subroutine s_umf_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -379,8 +374,6 @@ contains subroutine s_umf_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -414,8 +407,6 @@ contains subroutine s_umf_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -453,7 +444,7 @@ contains end subroutine s_umf_solver_descr function s_umf_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_s_umf_solver_type), intent(in) :: sv diff --git a/mlprec/mld_z_base_solver_mod.f90 b/mlprec/mld_z_base_solver_mod.f90 index 94083647..642d1ca0 100644 --- a/mlprec/mld_z_base_solver_mod.f90 +++ b/mlprec/mld_z_base_solver_mod.f90 @@ -54,11 +54,8 @@ module mld_z_base_solver_mod use mld_base_prec_type - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_long_int_k_, & - & psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& - & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, & - & psb_success_, psb_err_alloc_dealloc_, psb_err_from_subroutine_, & - & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat, psb_dpk_ + use psb_base_mod, only : psb_zspmat_type, & + & psb_z_vect_type, psb_z_base_vect_type, psb_z_base_sparse_mat ! ! ! Type: mld_T_base_solver_type. diff --git a/mlprec/mld_z_prec_type.f90 b/mlprec/mld_z_prec_type.f90 index 6405e65b..b32f9380 100644 --- a/mlprec/mld_z_prec_type.f90 +++ b/mlprec/mld_z_prec_type.f90 @@ -207,7 +207,7 @@ contains end function mld_z_get_compl subroutine mld_z_cmp_compl(prec) - use psb_base_mod, only : psb_min, psb_sum + implicit none class(mld_zprec_type), intent(inout) :: prec @@ -360,8 +360,6 @@ contains ! subroutine mld_zprec_free(p,info) - use psb_base_mod - implicit none ! Arguments @@ -404,7 +402,7 @@ contains ! Top level methods. ! subroutine mld_z_apply2_vect(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_zprec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x @@ -440,7 +438,7 @@ contains end subroutine mld_z_apply2_vect subroutine mld_z_apply1_vect(prec,x,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_zprec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x @@ -476,7 +474,7 @@ contains subroutine mld_z_apply2v(prec,x,y,desc_data,info,trans,work) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) @@ -512,7 +510,7 @@ contains end subroutine mld_z_apply2v subroutine mld_z_apply1v(prec,x,desc_data,info,trans) - use psb_base_mod + implicit none type(psb_desc_type),intent(in) :: desc_data class(mld_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) @@ -547,7 +545,7 @@ contains subroutine mld_z_dump(prec,info,istart,iend,prefix,head,ac,rp,smoother,solver) - use psb_base_mod + implicit none class(mld_zprec_type), intent(in) :: prec integer, intent(out) :: info diff --git a/mlprec/mld_z_slu_solver.f90 b/mlprec/mld_z_slu_solver.f90 index 5fe01023..5f7f292e 100644 --- a/mlprec/mld_z_slu_solver.f90 +++ b/mlprec/mld_z_slu_solver.f90 @@ -107,6 +107,7 @@ contains subroutine z_slu_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_z_slu_solver_type), intent(in) :: sv complex(psb_dpk_),intent(inout) :: x(:) @@ -271,8 +272,6 @@ contains subroutine z_slu_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -306,8 +305,6 @@ contains subroutine z_slu_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -344,8 +341,6 @@ contains subroutine z_slu_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -380,8 +375,6 @@ contains subroutine z_slu_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -413,8 +406,6 @@ contains subroutine z_slu_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -452,7 +443,7 @@ contains end subroutine z_slu_solver_descr function z_slu_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_z_slu_solver_type), intent(in) :: sv diff --git a/mlprec/mld_z_sludist_solver.f90 b/mlprec/mld_z_sludist_solver.f90 index 9e76846a..68b31648 100644 --- a/mlprec/mld_z_sludist_solver.f90 +++ b/mlprec/mld_z_sludist_solver.f90 @@ -107,6 +107,7 @@ contains subroutine z_sludist_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_z_sludist_solver_type), intent(in) :: sv complex(psb_dpk_),intent(inout) :: x(:) @@ -275,8 +276,6 @@ contains subroutine z_sludist_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -310,8 +309,6 @@ contains subroutine z_sludist_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -348,8 +345,6 @@ contains subroutine z_sludist_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -384,8 +379,6 @@ contains subroutine z_sludist_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -417,8 +410,6 @@ contains subroutine z_sludist_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -456,7 +447,7 @@ contains end subroutine z_sludist_solver_descr function z_sludist_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_z_sludist_solver_type), intent(in) :: sv diff --git a/mlprec/mld_z_umf_solver.f90 b/mlprec/mld_z_umf_solver.f90 index b0393da0..5212083a 100644 --- a/mlprec/mld_z_umf_solver.f90 +++ b/mlprec/mld_z_umf_solver.f90 @@ -107,6 +107,7 @@ contains subroutine z_umf_solver_apply(alpha,sv,x,beta,y,desc_data,trans,work,info) use psb_base_mod + implicit none type(psb_desc_type), intent(in) :: desc_data class(mld_z_umf_solver_type), intent(in) :: sv complex(psb_dpk_),intent(inout) :: x(:) @@ -272,8 +273,6 @@ contains subroutine z_umf_solver_seti(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -307,8 +306,6 @@ contains subroutine z_umf_solver_setc(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -345,8 +342,6 @@ contains subroutine z_umf_solver_setr(sv,what,val,info) - use psb_base_mod - Implicit None ! Arguments @@ -381,8 +376,6 @@ contains subroutine z_umf_solver_free(sv,info) - use psb_base_mod - Implicit None ! Arguments @@ -416,8 +409,6 @@ contains subroutine z_umf_solver_descr(sv,info,iout,coarse) - use psb_base_mod - Implicit None ! Arguments @@ -455,7 +446,7 @@ contains end subroutine z_umf_solver_descr function z_umf_solver_sizeof(sv) result(val) - use psb_base_mod + implicit none ! Arguments class(mld_z_umf_solver_type), intent(in) :: sv