diff --git a/mlprec/mld_c_gs_solver.f90 b/mlprec/mld_c_gs_solver.f90 index a40aede8..ea764175 100644 --- a/mlprec/mld_c_gs_solver.f90 +++ b/mlprec/mld_c_gs_solver.f90 @@ -91,11 +91,9 @@ module mld_c_gs_solver end type mld_c_bwgs_solver_type - private :: c_gs_solver_bld, c_gs_solver_apply, & - & c_gs_solver_free, & + private :: c_gs_solver_free, & & c_gs_solver_descr, c_gs_solver_sizeof, & - & c_gs_solver_default, c_gs_solver_dmp, & - & c_gs_solver_apply_vect, c_gs_solver_get_nzeros, & + & c_gs_solver_default, c_gs_solver_get_nzeros, & & c_gs_solver_get_fmt, c_gs_solver_check,& & c_gs_solver_is_iterative, & & c_bwgs_solver_get_fmt, c_bwgs_solver_descr, & diff --git a/mlprec/mld_c_ilu_solver.f90 b/mlprec/mld_c_ilu_solver.f90 index 0e88dba8..3de2ddc4 100644 --- a/mlprec/mld_c_ilu_solver.f90 +++ b/mlprec/mld_c_ilu_solver.f90 @@ -88,11 +88,9 @@ module mld_c_ilu_solver end type mld_c_ilu_solver_type - private :: c_ilu_solver_bld, c_ilu_solver_apply, & - & c_ilu_solver_free, & + private :: c_ilu_solver_free, & & c_ilu_solver_descr, c_ilu_solver_sizeof, & - & c_ilu_solver_default, c_ilu_solver_dmp, & - & c_ilu_solver_apply_vect, c_ilu_solver_get_nzeros, & + & c_ilu_solver_default, c_ilu_solver_get_nzeros, & & c_ilu_solver_get_fmt, c_ilu_solver_check, & & c_ilu_solver_get_id, c_ilu_solver_get_wrksize diff --git a/mlprec/mld_c_jac_smoother.f90 b/mlprec/mld_c_jac_smoother.f90 index fd66e696..d689d938 100644 --- a/mlprec/mld_c_jac_smoother.f90 +++ b/mlprec/mld_c_jac_smoother.f90 @@ -77,7 +77,7 @@ module mld_c_jac_smoother end type mld_c_jac_smoother_type - private :: c_jac_smoother_free, c_jac_smoother_descr, & + private :: c_jac_smoother_free, & & c_jac_smoother_sizeof, c_jac_smoother_get_nzeros, & & c_jac_smoother_get_fmt, c_jac_smoother_get_id, & & c_jac_smoother_get_wrksize diff --git a/mlprec/mld_c_mumps_solver.F90 b/mlprec/mld_c_mumps_solver.F90 index 58c7208a..724ed706 100644 --- a/mlprec/mld_c_mumps_solver.F90 +++ b/mlprec/mld_c_mumps_solver.F90 @@ -90,8 +90,8 @@ module mld_c_mumps_solver procedure, pass(sv) :: cseti => c_mumps_solver_cseti procedure, pass(sv) :: csetr => c_mumps_solver_csetr procedure, pass(sv) :: default => c_mumps_solver_default - procedure, nopass :: get_fmt => c_mumps_get_fmt - procedure, nopass :: get_id => c_mumps_get_id + procedure, nopass :: get_fmt => c_mumps_solver_get_fmt + procedure, nopass :: get_id => c_mumps_solver_get_id #if defined(HAVE_FINAL) final :: c_mumps_solver_finalize @@ -440,19 +440,19 @@ contains end function c_mumps_solver_sizeof #endif - function c_mumps_get_fmt() result(val) + function c_mumps_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "MUMPS solver" - end function c_mumps_get_fmt + end function c_mumps_solver_get_fmt - function c_mumps_get_id() result(val) + function c_mumps_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_mumps_ - end function c_mumps_get_id + end function c_mumps_solver_get_id end module mld_c_mumps_solver diff --git a/mlprec/mld_c_slu_solver.F90 b/mlprec/mld_c_slu_solver.F90 index dd544aaf..c7d85e45 100644 --- a/mlprec/mld_c_slu_solver.F90 +++ b/mlprec/mld_c_slu_solver.F90 @@ -69,8 +69,8 @@ module mld_c_slu_solver procedure, pass(sv) :: free => c_slu_solver_free procedure, pass(sv) :: descr => c_slu_solver_descr procedure, pass(sv) :: sizeof => c_slu_solver_sizeof - procedure, nopass :: get_fmt => c_slu_get_fmt - procedure, nopass :: get_id => c_slu_get_id + procedure, nopass :: get_fmt => c_slu_solver_get_fmt + procedure, nopass :: get_id => c_slu_solver_get_id #if defined(HAVE_FINAL) final :: c_slu_solver_finalize #endif @@ -411,18 +411,18 @@ contains return end function c_slu_solver_sizeof - function c_slu_get_fmt() result(val) + function c_slu_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "SuperLU solver" - end function c_slu_get_fmt + end function c_slu_solver_get_fmt - function c_slu_get_id() result(val) + function c_slu_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_slu_ - end function c_slu_get_id + end function c_slu_solver_get_id #endif end module mld_c_slu_solver diff --git a/mlprec/mld_d_gs_solver.f90 b/mlprec/mld_d_gs_solver.f90 index 5bedce92..1f72ecde 100644 --- a/mlprec/mld_d_gs_solver.f90 +++ b/mlprec/mld_d_gs_solver.f90 @@ -91,11 +91,9 @@ module mld_d_gs_solver end type mld_d_bwgs_solver_type - private :: d_gs_solver_bld, d_gs_solver_apply, & - & d_gs_solver_free, & + private :: d_gs_solver_free, & & d_gs_solver_descr, d_gs_solver_sizeof, & - & d_gs_solver_default, d_gs_solver_dmp, & - & d_gs_solver_apply_vect, d_gs_solver_get_nzeros, & + & d_gs_solver_default, d_gs_solver_get_nzeros, & & d_gs_solver_get_fmt, d_gs_solver_check,& & d_gs_solver_is_iterative, & & d_bwgs_solver_get_fmt, d_bwgs_solver_descr, & diff --git a/mlprec/mld_d_ilu_solver.f90 b/mlprec/mld_d_ilu_solver.f90 index e6a5894b..5dd917b2 100644 --- a/mlprec/mld_d_ilu_solver.f90 +++ b/mlprec/mld_d_ilu_solver.f90 @@ -88,11 +88,9 @@ module mld_d_ilu_solver end type mld_d_ilu_solver_type - private :: d_ilu_solver_bld, d_ilu_solver_apply, & - & d_ilu_solver_free, & + private :: d_ilu_solver_free, & & d_ilu_solver_descr, d_ilu_solver_sizeof, & - & d_ilu_solver_default, d_ilu_solver_dmp, & - & d_ilu_solver_apply_vect, d_ilu_solver_get_nzeros, & + & d_ilu_solver_default, d_ilu_solver_get_nzeros, & & d_ilu_solver_get_fmt, d_ilu_solver_check, & & d_ilu_solver_get_id, d_ilu_solver_get_wrksize diff --git a/mlprec/mld_d_jac_smoother.f90 b/mlprec/mld_d_jac_smoother.f90 index 2d9f0a58..b11dd7da 100644 --- a/mlprec/mld_d_jac_smoother.f90 +++ b/mlprec/mld_d_jac_smoother.f90 @@ -77,7 +77,7 @@ module mld_d_jac_smoother end type mld_d_jac_smoother_type - private :: d_jac_smoother_free, d_jac_smoother_descr, & + private :: d_jac_smoother_free, & & d_jac_smoother_sizeof, d_jac_smoother_get_nzeros, & & d_jac_smoother_get_fmt, d_jac_smoother_get_id, & & d_jac_smoother_get_wrksize diff --git a/mlprec/mld_d_mumps_solver.F90 b/mlprec/mld_d_mumps_solver.F90 index 868a0614..84f32715 100644 --- a/mlprec/mld_d_mumps_solver.F90 +++ b/mlprec/mld_d_mumps_solver.F90 @@ -90,8 +90,8 @@ module mld_d_mumps_solver procedure, pass(sv) :: cseti => d_mumps_solver_cseti procedure, pass(sv) :: csetr => d_mumps_solver_csetr procedure, pass(sv) :: default => d_mumps_solver_default - procedure, nopass :: get_fmt => d_mumps_get_fmt - procedure, nopass :: get_id => d_mumps_get_id + procedure, nopass :: get_fmt => d_mumps_solver_get_fmt + procedure, nopass :: get_id => d_mumps_solver_get_id #if defined(HAVE_FINAL) final :: d_mumps_solver_finalize @@ -440,19 +440,19 @@ contains end function d_mumps_solver_sizeof #endif - function d_mumps_get_fmt() result(val) + function d_mumps_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "MUMPS solver" - end function d_mumps_get_fmt + end function d_mumps_solver_get_fmt - function d_mumps_get_id() result(val) + function d_mumps_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_mumps_ - end function d_mumps_get_id + end function d_mumps_solver_get_id end module mld_d_mumps_solver diff --git a/mlprec/mld_d_slu_solver.F90 b/mlprec/mld_d_slu_solver.F90 index 493a0e03..3772293a 100644 --- a/mlprec/mld_d_slu_solver.F90 +++ b/mlprec/mld_d_slu_solver.F90 @@ -69,8 +69,8 @@ module mld_d_slu_solver procedure, pass(sv) :: free => d_slu_solver_free procedure, pass(sv) :: descr => d_slu_solver_descr procedure, pass(sv) :: sizeof => d_slu_solver_sizeof - procedure, nopass :: get_fmt => d_slu_get_fmt - procedure, nopass :: get_id => d_slu_get_id + procedure, nopass :: get_fmt => d_slu_solver_get_fmt + procedure, nopass :: get_id => d_slu_solver_get_id #if defined(HAVE_FINAL) final :: d_slu_solver_finalize #endif @@ -411,18 +411,18 @@ contains return end function d_slu_solver_sizeof - function d_slu_get_fmt() result(val) + function d_slu_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "SuperLU solver" - end function d_slu_get_fmt + end function d_slu_solver_get_fmt - function d_slu_get_id() result(val) + function d_slu_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_slu_ - end function d_slu_get_id + end function d_slu_solver_get_id #endif end module mld_d_slu_solver diff --git a/mlprec/mld_d_sludist_solver.F90 b/mlprec/mld_d_sludist_solver.F90 index 9e69eaaa..72a2daf5 100644 --- a/mlprec/mld_d_sludist_solver.F90 +++ b/mlprec/mld_d_sludist_solver.F90 @@ -68,8 +68,8 @@ module mld_d_sludist_solver procedure, pass(sv) :: free => d_sludist_solver_free procedure, pass(sv) :: descr => d_sludist_solver_descr procedure, pass(sv) :: sizeof => d_sludist_solver_sizeof - procedure, nopass :: get_fmt => d_sludist_get_fmt - procedure, nopass :: get_id => d_sludist_get_id + procedure, nopass :: get_fmt => d_sludist_solver_get_fmt + procedure, nopass :: get_id => d_sludist_solver_get_id #if defined(HAVE_FINAL) final :: d_sludist_solver_finalize #endif @@ -420,18 +420,18 @@ contains return end function d_sludist_solver_sizeof - function d_sludist_get_fmt() result(val) + function d_sludist_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "SuperLU_Dist solver" - end function d_sludist_get_fmt + end function d_sludist_solver_get_fmt - function d_sludist_get_id() result(val) + function d_sludist_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_sludist_ - end function d_sludist_get_id + end function d_sludist_solver_get_id #endif end module mld_d_sludist_solver diff --git a/mlprec/mld_d_umf_solver.F90 b/mlprec/mld_d_umf_solver.F90 index 1222979c..8ef1e13c 100644 --- a/mlprec/mld_d_umf_solver.F90 +++ b/mlprec/mld_d_umf_solver.F90 @@ -68,8 +68,8 @@ module mld_d_umf_solver procedure, pass(sv) :: free => d_umf_solver_free procedure, pass(sv) :: descr => d_umf_solver_descr procedure, pass(sv) :: sizeof => d_umf_solver_sizeof - procedure, nopass :: get_fmt => d_umf_get_fmt - procedure, nopass :: get_id => d_umf_get_id + procedure, nopass :: get_fmt => d_umf_solver_get_fmt + procedure, nopass :: get_id => d_umf_solver_get_id #if defined(HAVE_FINAL) final :: d_umf_solver_finalize #endif @@ -415,18 +415,18 @@ contains return end function d_umf_solver_sizeof - function d_umf_get_fmt() result(val) + function d_umf_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "UMFPACK solver" - end function d_umf_get_fmt + end function d_umf_solver_get_fmt - function d_umf_get_id() result(val) + function d_umf_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_umf_ - end function d_umf_get_id + end function d_umf_solver_get_id #endif end module mld_d_umf_solver diff --git a/mlprec/mld_s_gs_solver.f90 b/mlprec/mld_s_gs_solver.f90 index 17389073..878e12b4 100644 --- a/mlprec/mld_s_gs_solver.f90 +++ b/mlprec/mld_s_gs_solver.f90 @@ -91,11 +91,9 @@ module mld_s_gs_solver end type mld_s_bwgs_solver_type - private :: s_gs_solver_bld, s_gs_solver_apply, & - & s_gs_solver_free, & + private :: s_gs_solver_free, & & s_gs_solver_descr, s_gs_solver_sizeof, & - & s_gs_solver_default, s_gs_solver_dmp, & - & s_gs_solver_apply_vect, s_gs_solver_get_nzeros, & + & s_gs_solver_default, s_gs_solver_get_nzeros, & & s_gs_solver_get_fmt, s_gs_solver_check,& & s_gs_solver_is_iterative, & & s_bwgs_solver_get_fmt, s_bwgs_solver_descr, & diff --git a/mlprec/mld_s_ilu_solver.f90 b/mlprec/mld_s_ilu_solver.f90 index 02d464f9..9fd0f7af 100644 --- a/mlprec/mld_s_ilu_solver.f90 +++ b/mlprec/mld_s_ilu_solver.f90 @@ -88,11 +88,9 @@ module mld_s_ilu_solver end type mld_s_ilu_solver_type - private :: s_ilu_solver_bld, s_ilu_solver_apply, & - & s_ilu_solver_free, & + private :: s_ilu_solver_free, & & s_ilu_solver_descr, s_ilu_solver_sizeof, & - & s_ilu_solver_default, s_ilu_solver_dmp, & - & s_ilu_solver_apply_vect, s_ilu_solver_get_nzeros, & + & s_ilu_solver_default, s_ilu_solver_get_nzeros, & & s_ilu_solver_get_fmt, s_ilu_solver_check, & & s_ilu_solver_get_id, s_ilu_solver_get_wrksize diff --git a/mlprec/mld_s_jac_smoother.f90 b/mlprec/mld_s_jac_smoother.f90 index 561232bf..5f3e6072 100644 --- a/mlprec/mld_s_jac_smoother.f90 +++ b/mlprec/mld_s_jac_smoother.f90 @@ -77,7 +77,7 @@ module mld_s_jac_smoother end type mld_s_jac_smoother_type - private :: s_jac_smoother_free, s_jac_smoother_descr, & + private :: s_jac_smoother_free, & & s_jac_smoother_sizeof, s_jac_smoother_get_nzeros, & & s_jac_smoother_get_fmt, s_jac_smoother_get_id, & & s_jac_smoother_get_wrksize diff --git a/mlprec/mld_s_mumps_solver.F90 b/mlprec/mld_s_mumps_solver.F90 index dcc31753..22ae5e7a 100644 --- a/mlprec/mld_s_mumps_solver.F90 +++ b/mlprec/mld_s_mumps_solver.F90 @@ -90,8 +90,8 @@ module mld_s_mumps_solver procedure, pass(sv) :: cseti => s_mumps_solver_cseti procedure, pass(sv) :: csetr => s_mumps_solver_csetr procedure, pass(sv) :: default => s_mumps_solver_default - procedure, nopass :: get_fmt => s_mumps_get_fmt - procedure, nopass :: get_id => s_mumps_get_id + procedure, nopass :: get_fmt => s_mumps_solver_get_fmt + procedure, nopass :: get_id => s_mumps_solver_get_id #if defined(HAVE_FINAL) final :: s_mumps_solver_finalize @@ -440,19 +440,19 @@ contains end function s_mumps_solver_sizeof #endif - function s_mumps_get_fmt() result(val) + function s_mumps_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "MUMPS solver" - end function s_mumps_get_fmt + end function s_mumps_solver_get_fmt - function s_mumps_get_id() result(val) + function s_mumps_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_mumps_ - end function s_mumps_get_id + end function s_mumps_solver_get_id end module mld_s_mumps_solver diff --git a/mlprec/mld_s_slu_solver.F90 b/mlprec/mld_s_slu_solver.F90 index ae70454b..09dbb4a1 100644 --- a/mlprec/mld_s_slu_solver.F90 +++ b/mlprec/mld_s_slu_solver.F90 @@ -69,8 +69,8 @@ module mld_s_slu_solver procedure, pass(sv) :: free => s_slu_solver_free procedure, pass(sv) :: descr => s_slu_solver_descr procedure, pass(sv) :: sizeof => s_slu_solver_sizeof - procedure, nopass :: get_fmt => s_slu_get_fmt - procedure, nopass :: get_id => s_slu_get_id + procedure, nopass :: get_fmt => s_slu_solver_get_fmt + procedure, nopass :: get_id => s_slu_solver_get_id #if defined(HAVE_FINAL) final :: s_slu_solver_finalize #endif @@ -411,18 +411,18 @@ contains return end function s_slu_solver_sizeof - function s_slu_get_fmt() result(val) + function s_slu_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "SuperLU solver" - end function s_slu_get_fmt + end function s_slu_solver_get_fmt - function s_slu_get_id() result(val) + function s_slu_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_slu_ - end function s_slu_get_id + end function s_slu_solver_get_id #endif end module mld_s_slu_solver diff --git a/mlprec/mld_z_gs_solver.f90 b/mlprec/mld_z_gs_solver.f90 index 31f09c84..f16657b1 100644 --- a/mlprec/mld_z_gs_solver.f90 +++ b/mlprec/mld_z_gs_solver.f90 @@ -91,11 +91,9 @@ module mld_z_gs_solver end type mld_z_bwgs_solver_type - private :: z_gs_solver_bld, z_gs_solver_apply, & - & z_gs_solver_free, & + private :: z_gs_solver_free, & & z_gs_solver_descr, z_gs_solver_sizeof, & - & z_gs_solver_default, z_gs_solver_dmp, & - & z_gs_solver_apply_vect, z_gs_solver_get_nzeros, & + & z_gs_solver_default, z_gs_solver_get_nzeros, & & z_gs_solver_get_fmt, z_gs_solver_check,& & z_gs_solver_is_iterative, & & z_bwgs_solver_get_fmt, z_bwgs_solver_descr, & diff --git a/mlprec/mld_z_ilu_solver.f90 b/mlprec/mld_z_ilu_solver.f90 index 398bcfee..955dbc2d 100644 --- a/mlprec/mld_z_ilu_solver.f90 +++ b/mlprec/mld_z_ilu_solver.f90 @@ -88,11 +88,9 @@ module mld_z_ilu_solver end type mld_z_ilu_solver_type - private :: z_ilu_solver_bld, z_ilu_solver_apply, & - & z_ilu_solver_free, & + private :: z_ilu_solver_free, & & z_ilu_solver_descr, z_ilu_solver_sizeof, & - & z_ilu_solver_default, z_ilu_solver_dmp, & - & z_ilu_solver_apply_vect, z_ilu_solver_get_nzeros, & + & z_ilu_solver_default, z_ilu_solver_get_nzeros, & & z_ilu_solver_get_fmt, z_ilu_solver_check, & & z_ilu_solver_get_id, z_ilu_solver_get_wrksize diff --git a/mlprec/mld_z_jac_smoother.f90 b/mlprec/mld_z_jac_smoother.f90 index d3316f17..2bf4cb36 100644 --- a/mlprec/mld_z_jac_smoother.f90 +++ b/mlprec/mld_z_jac_smoother.f90 @@ -77,7 +77,7 @@ module mld_z_jac_smoother end type mld_z_jac_smoother_type - private :: z_jac_smoother_free, z_jac_smoother_descr, & + private :: z_jac_smoother_free, & & z_jac_smoother_sizeof, z_jac_smoother_get_nzeros, & & z_jac_smoother_get_fmt, z_jac_smoother_get_id, & & z_jac_smoother_get_wrksize diff --git a/mlprec/mld_z_mumps_solver.F90 b/mlprec/mld_z_mumps_solver.F90 index cfa20cbd..837fe889 100644 --- a/mlprec/mld_z_mumps_solver.F90 +++ b/mlprec/mld_z_mumps_solver.F90 @@ -90,8 +90,8 @@ module mld_z_mumps_solver procedure, pass(sv) :: cseti => z_mumps_solver_cseti procedure, pass(sv) :: csetr => z_mumps_solver_csetr procedure, pass(sv) :: default => z_mumps_solver_default - procedure, nopass :: get_fmt => z_mumps_get_fmt - procedure, nopass :: get_id => z_mumps_get_id + procedure, nopass :: get_fmt => z_mumps_solver_get_fmt + procedure, nopass :: get_id => z_mumps_solver_get_id #if defined(HAVE_FINAL) final :: z_mumps_solver_finalize @@ -440,19 +440,19 @@ contains end function z_mumps_solver_sizeof #endif - function z_mumps_get_fmt() result(val) + function z_mumps_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "MUMPS solver" - end function z_mumps_get_fmt + end function z_mumps_solver_get_fmt - function z_mumps_get_id() result(val) + function z_mumps_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_mumps_ - end function z_mumps_get_id + end function z_mumps_solver_get_id end module mld_z_mumps_solver diff --git a/mlprec/mld_z_slu_solver.F90 b/mlprec/mld_z_slu_solver.F90 index 77151a11..38c93bc5 100644 --- a/mlprec/mld_z_slu_solver.F90 +++ b/mlprec/mld_z_slu_solver.F90 @@ -69,8 +69,8 @@ module mld_z_slu_solver procedure, pass(sv) :: free => z_slu_solver_free procedure, pass(sv) :: descr => z_slu_solver_descr procedure, pass(sv) :: sizeof => z_slu_solver_sizeof - procedure, nopass :: get_fmt => z_slu_get_fmt - procedure, nopass :: get_id => z_slu_get_id + procedure, nopass :: get_fmt => z_slu_solver_get_fmt + procedure, nopass :: get_id => z_slu_solver_get_id #if defined(HAVE_FINAL) final :: z_slu_solver_finalize #endif @@ -411,18 +411,18 @@ contains return end function z_slu_solver_sizeof - function z_slu_get_fmt() result(val) + function z_slu_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "SuperLU solver" - end function z_slu_get_fmt + end function z_slu_solver_get_fmt - function z_slu_get_id() result(val) + function z_slu_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_slu_ - end function z_slu_get_id + end function z_slu_solver_get_id #endif end module mld_z_slu_solver diff --git a/mlprec/mld_z_sludist_solver.F90 b/mlprec/mld_z_sludist_solver.F90 index be0c56e5..b2d81baa 100644 --- a/mlprec/mld_z_sludist_solver.F90 +++ b/mlprec/mld_z_sludist_solver.F90 @@ -68,8 +68,8 @@ module mld_z_sludist_solver procedure, pass(sv) :: free => z_sludist_solver_free procedure, pass(sv) :: descr => z_sludist_solver_descr procedure, pass(sv) :: sizeof => z_sludist_solver_sizeof - procedure, nopass :: get_fmt => z_sludist_get_fmt - procedure, nopass :: get_id => z_sludist_get_id + procedure, nopass :: get_fmt => z_sludist_solver_get_fmt + procedure, nopass :: get_id => z_sludist_solver_get_id #if defined(HAVE_FINAL) final :: z_sludist_solver_finalize #endif @@ -420,18 +420,18 @@ contains return end function z_sludist_solver_sizeof - function z_sludist_get_fmt() result(val) + function z_sludist_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "SuperLU_Dist solver" - end function z_sludist_get_fmt + end function z_sludist_solver_get_fmt - function z_sludist_get_id() result(val) + function z_sludist_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_sludist_ - end function z_sludist_get_id + end function z_sludist_solver_get_id #endif end module mld_z_sludist_solver diff --git a/mlprec/mld_z_umf_solver.F90 b/mlprec/mld_z_umf_solver.F90 index da955d5d..c2999616 100644 --- a/mlprec/mld_z_umf_solver.F90 +++ b/mlprec/mld_z_umf_solver.F90 @@ -68,8 +68,8 @@ module mld_z_umf_solver procedure, pass(sv) :: free => z_umf_solver_free procedure, pass(sv) :: descr => z_umf_solver_descr procedure, pass(sv) :: sizeof => z_umf_solver_sizeof - procedure, nopass :: get_fmt => z_umf_get_fmt - procedure, nopass :: get_id => z_umf_get_id + procedure, nopass :: get_fmt => z_umf_solver_get_fmt + procedure, nopass :: get_id => z_umf_solver_get_id #if defined(HAVE_FINAL) final :: z_umf_solver_finalize #endif @@ -415,18 +415,18 @@ contains return end function z_umf_solver_sizeof - function z_umf_get_fmt() result(val) + function z_umf_solver_get_fmt() result(val) implicit none character(len=32) :: val val = "UMFPACK solver" - end function z_umf_get_fmt + end function z_umf_solver_get_fmt - function z_umf_get_id() result(val) + function z_umf_solver_get_id() result(val) implicit none integer(psb_ipk_) :: val val = mld_umf_ - end function z_umf_get_id + end function z_umf_solver_get_id #endif end module mld_z_umf_solver