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

Fix loose PRIVATE method declarations.

Browse Source
stopcriterion
Salvatore Filippone 6 years ago
parent 1a82740826
commit 056b382d6d
24 changed files with 92 additions and 108 deletions
Show Stats Download Patch File Download Diff File

6
mlprec/mld_c_gs_solver.f90
Unescape Escape View File

@ -91,11 +91,9 @@ module mld_c_gs_solver
end type mld_c_bwgs_solver_type end type mld_c_bwgs_solver_type
private :: c_gs_solver_bld, c_gs_solver_apply, & private :: c_gs_solver_free, &
& c_gs_solver_free, &
& c_gs_solver_descr, c_gs_solver_sizeof, & & c_gs_solver_descr, c_gs_solver_sizeof, &
& c_gs_solver_default, c_gs_solver_dmp, & & c_gs_solver_default, c_gs_solver_get_nzeros, &
& c_gs_solver_apply_vect, c_gs_solver_get_nzeros, &
& c_gs_solver_get_fmt, c_gs_solver_check,& & c_gs_solver_get_fmt, c_gs_solver_check,&
& c_gs_solver_is_iterative, & & c_gs_solver_is_iterative, &
& c_bwgs_solver_get_fmt, c_bwgs_solver_descr, & & c_bwgs_solver_get_fmt, c_bwgs_solver_descr, &

6
mlprec/mld_c_ilu_solver.f90
Unescape Escape View File

@ -88,11 +88,9 @@ module mld_c_ilu_solver
end type mld_c_ilu_solver_type end type mld_c_ilu_solver_type
private :: c_ilu_solver_bld, c_ilu_solver_apply, & private :: c_ilu_solver_free, &
& c_ilu_solver_free, &
& c_ilu_solver_descr, c_ilu_solver_sizeof, & & c_ilu_solver_descr, c_ilu_solver_sizeof, &
& c_ilu_solver_default, c_ilu_solver_dmp, & & c_ilu_solver_default, c_ilu_solver_get_nzeros, &
& c_ilu_solver_apply_vect, c_ilu_solver_get_nzeros, &
& c_ilu_solver_get_fmt, c_ilu_solver_check, & & c_ilu_solver_get_fmt, c_ilu_solver_check, &
& c_ilu_solver_get_id, c_ilu_solver_get_wrksize & c_ilu_solver_get_id, c_ilu_solver_get_wrksize

2
mlprec/mld_c_jac_smoother.f90
Unescape Escape View File

@ -77,7 +77,7 @@ module mld_c_jac_smoother
end type mld_c_jac_smoother_type 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_sizeof, c_jac_smoother_get_nzeros, &
& c_jac_smoother_get_fmt, c_jac_smoother_get_id, & & c_jac_smoother_get_fmt, c_jac_smoother_get_id, &
& c_jac_smoother_get_wrksize & c_jac_smoother_get_wrksize

12
mlprec/mld_c_mumps_solver.F90
Unescape Escape View File

@ -90,8 +90,8 @@ module mld_c_mumps_solver
procedure, pass(sv) :: cseti => c_mumps_solver_cseti procedure, pass(sv) :: cseti => c_mumps_solver_cseti
procedure, pass(sv) :: csetr => c_mumps_solver_csetr procedure, pass(sv) :: csetr => c_mumps_solver_csetr
procedure, pass(sv) :: default => c_mumps_solver_default procedure, pass(sv) :: default => c_mumps_solver_default
procedure, nopass :: get_fmt => c_mumps_get_fmt procedure, nopass :: get_fmt => c_mumps_solver_get_fmt
procedure, nopass :: get_id => c_mumps_get_id procedure, nopass :: get_id => c_mumps_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: c_mumps_solver_finalize final :: c_mumps_solver_finalize
@ -440,19 +440,19 @@ contains
end function c_mumps_solver_sizeof end function c_mumps_solver_sizeof
#endif #endif
function c_mumps_get_fmt() result(val) function c_mumps_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "MUMPS solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_mumps_ val = mld_mumps_
end function c_mumps_get_id end function c_mumps_solver_get_id
end module mld_c_mumps_solver end module mld_c_mumps_solver

12
mlprec/mld_c_slu_solver.F90
Unescape Escape View File

@ -69,8 +69,8 @@ module mld_c_slu_solver
procedure, pass(sv) :: free => c_slu_solver_free procedure, pass(sv) :: free => c_slu_solver_free
procedure, pass(sv) :: descr => c_slu_solver_descr procedure, pass(sv) :: descr => c_slu_solver_descr
procedure, pass(sv) :: sizeof => c_slu_solver_sizeof procedure, pass(sv) :: sizeof => c_slu_solver_sizeof
procedure, nopass :: get_fmt => c_slu_get_fmt procedure, nopass :: get_fmt => c_slu_solver_get_fmt
procedure, nopass :: get_id => c_slu_get_id procedure, nopass :: get_id => c_slu_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: c_slu_solver_finalize final :: c_slu_solver_finalize
#endif #endif
@ -411,18 +411,18 @@ contains
return return
end function c_slu_solver_sizeof end function c_slu_solver_sizeof
function c_slu_get_fmt() result(val) function c_slu_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "SuperLU solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_slu_ val = mld_slu_
end function c_slu_get_id end function c_slu_solver_get_id
#endif #endif
end module mld_c_slu_solver end module mld_c_slu_solver

6
mlprec/mld_d_gs_solver.f90
Unescape Escape View File

@ -91,11 +91,9 @@ module mld_d_gs_solver
end type mld_d_bwgs_solver_type end type mld_d_bwgs_solver_type
private :: d_gs_solver_bld, d_gs_solver_apply, & private :: d_gs_solver_free, &
& d_gs_solver_free, &
& d_gs_solver_descr, d_gs_solver_sizeof, & & d_gs_solver_descr, d_gs_solver_sizeof, &
& d_gs_solver_default, d_gs_solver_dmp, & & d_gs_solver_default, d_gs_solver_get_nzeros, &
& d_gs_solver_apply_vect, d_gs_solver_get_nzeros, &
& d_gs_solver_get_fmt, d_gs_solver_check,& & d_gs_solver_get_fmt, d_gs_solver_check,&
& d_gs_solver_is_iterative, & & d_gs_solver_is_iterative, &
& d_bwgs_solver_get_fmt, d_bwgs_solver_descr, & & d_bwgs_solver_get_fmt, d_bwgs_solver_descr, &

6
mlprec/mld_d_ilu_solver.f90
Unescape Escape View File

@ -88,11 +88,9 @@ module mld_d_ilu_solver
end type mld_d_ilu_solver_type end type mld_d_ilu_solver_type
private :: d_ilu_solver_bld, d_ilu_solver_apply, & private :: d_ilu_solver_free, &
& d_ilu_solver_free, &
& d_ilu_solver_descr, d_ilu_solver_sizeof, & & d_ilu_solver_descr, d_ilu_solver_sizeof, &
& d_ilu_solver_default, d_ilu_solver_dmp, & & d_ilu_solver_default, d_ilu_solver_get_nzeros, &
& d_ilu_solver_apply_vect, d_ilu_solver_get_nzeros, &
& d_ilu_solver_get_fmt, d_ilu_solver_check, & & d_ilu_solver_get_fmt, d_ilu_solver_check, &
& d_ilu_solver_get_id, d_ilu_solver_get_wrksize & d_ilu_solver_get_id, d_ilu_solver_get_wrksize

2
mlprec/mld_d_jac_smoother.f90
Unescape Escape View File

@ -77,7 +77,7 @@ module mld_d_jac_smoother
end type mld_d_jac_smoother_type 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_sizeof, d_jac_smoother_get_nzeros, &
& d_jac_smoother_get_fmt, d_jac_smoother_get_id, & & d_jac_smoother_get_fmt, d_jac_smoother_get_id, &
& d_jac_smoother_get_wrksize & d_jac_smoother_get_wrksize

12
mlprec/mld_d_mumps_solver.F90
Unescape Escape View File

@ -90,8 +90,8 @@ module mld_d_mumps_solver
procedure, pass(sv) :: cseti => d_mumps_solver_cseti procedure, pass(sv) :: cseti => d_mumps_solver_cseti
procedure, pass(sv) :: csetr => d_mumps_solver_csetr procedure, pass(sv) :: csetr => d_mumps_solver_csetr
procedure, pass(sv) :: default => d_mumps_solver_default procedure, pass(sv) :: default => d_mumps_solver_default
procedure, nopass :: get_fmt => d_mumps_get_fmt procedure, nopass :: get_fmt => d_mumps_solver_get_fmt
procedure, nopass :: get_id => d_mumps_get_id procedure, nopass :: get_id => d_mumps_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: d_mumps_solver_finalize final :: d_mumps_solver_finalize
@ -440,19 +440,19 @@ contains
end function d_mumps_solver_sizeof end function d_mumps_solver_sizeof
#endif #endif
function d_mumps_get_fmt() result(val) function d_mumps_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "MUMPS solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_mumps_ val = mld_mumps_
end function d_mumps_get_id end function d_mumps_solver_get_id
end module mld_d_mumps_solver end module mld_d_mumps_solver

12
mlprec/mld_d_slu_solver.F90
Unescape Escape View File

@ -69,8 +69,8 @@ module mld_d_slu_solver
procedure, pass(sv) :: free => d_slu_solver_free procedure, pass(sv) :: free => d_slu_solver_free
procedure, pass(sv) :: descr => d_slu_solver_descr procedure, pass(sv) :: descr => d_slu_solver_descr
procedure, pass(sv) :: sizeof => d_slu_solver_sizeof procedure, pass(sv) :: sizeof => d_slu_solver_sizeof
procedure, nopass :: get_fmt => d_slu_get_fmt procedure, nopass :: get_fmt => d_slu_solver_get_fmt
procedure, nopass :: get_id => d_slu_get_id procedure, nopass :: get_id => d_slu_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: d_slu_solver_finalize final :: d_slu_solver_finalize
#endif #endif
@ -411,18 +411,18 @@ contains
return return
end function d_slu_solver_sizeof end function d_slu_solver_sizeof
function d_slu_get_fmt() result(val) function d_slu_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "SuperLU solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_slu_ val = mld_slu_
end function d_slu_get_id end function d_slu_solver_get_id
#endif #endif
end module mld_d_slu_solver end module mld_d_slu_solver

12
mlprec/mld_d_sludist_solver.F90
Unescape Escape View File

@ -68,8 +68,8 @@ module mld_d_sludist_solver
procedure, pass(sv) :: free => d_sludist_solver_free procedure, pass(sv) :: free => d_sludist_solver_free
procedure, pass(sv) :: descr => d_sludist_solver_descr procedure, pass(sv) :: descr => d_sludist_solver_descr
procedure, pass(sv) :: sizeof => d_sludist_solver_sizeof procedure, pass(sv) :: sizeof => d_sludist_solver_sizeof
procedure, nopass :: get_fmt => d_sludist_get_fmt procedure, nopass :: get_fmt => d_sludist_solver_get_fmt
procedure, nopass :: get_id => d_sludist_get_id procedure, nopass :: get_id => d_sludist_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: d_sludist_solver_finalize final :: d_sludist_solver_finalize
#endif #endif
@ -420,18 +420,18 @@ contains
return return
end function d_sludist_solver_sizeof end function d_sludist_solver_sizeof
function d_sludist_get_fmt() result(val) function d_sludist_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "SuperLU_Dist solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_sludist_ val = mld_sludist_
end function d_sludist_get_id end function d_sludist_solver_get_id
#endif #endif
end module mld_d_sludist_solver end module mld_d_sludist_solver

12
mlprec/mld_d_umf_solver.F90
Unescape Escape View File

@ -68,8 +68,8 @@ module mld_d_umf_solver
procedure, pass(sv) :: free => d_umf_solver_free procedure, pass(sv) :: free => d_umf_solver_free
procedure, pass(sv) :: descr => d_umf_solver_descr procedure, pass(sv) :: descr => d_umf_solver_descr
procedure, pass(sv) :: sizeof => d_umf_solver_sizeof procedure, pass(sv) :: sizeof => d_umf_solver_sizeof
procedure, nopass :: get_fmt => d_umf_get_fmt procedure, nopass :: get_fmt => d_umf_solver_get_fmt
procedure, nopass :: get_id => d_umf_get_id procedure, nopass :: get_id => d_umf_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: d_umf_solver_finalize final :: d_umf_solver_finalize
#endif #endif
@ -415,18 +415,18 @@ contains
return return
end function d_umf_solver_sizeof end function d_umf_solver_sizeof
function d_umf_get_fmt() result(val) function d_umf_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "UMFPACK solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_umf_ val = mld_umf_
end function d_umf_get_id end function d_umf_solver_get_id
#endif #endif
end module mld_d_umf_solver end module mld_d_umf_solver

6
mlprec/mld_s_gs_solver.f90
Unescape Escape View File

@ -91,11 +91,9 @@ module mld_s_gs_solver
end type mld_s_bwgs_solver_type end type mld_s_bwgs_solver_type
private :: s_gs_solver_bld, s_gs_solver_apply, & private :: s_gs_solver_free, &
& s_gs_solver_free, &
& s_gs_solver_descr, s_gs_solver_sizeof, & & s_gs_solver_descr, s_gs_solver_sizeof, &
& s_gs_solver_default, s_gs_solver_dmp, & & s_gs_solver_default, s_gs_solver_get_nzeros, &
& s_gs_solver_apply_vect, s_gs_solver_get_nzeros, &
& s_gs_solver_get_fmt, s_gs_solver_check,& & s_gs_solver_get_fmt, s_gs_solver_check,&
& s_gs_solver_is_iterative, & & s_gs_solver_is_iterative, &
& s_bwgs_solver_get_fmt, s_bwgs_solver_descr, & & s_bwgs_solver_get_fmt, s_bwgs_solver_descr, &

6
mlprec/mld_s_ilu_solver.f90
Unescape Escape View File

@ -88,11 +88,9 @@ module mld_s_ilu_solver
end type mld_s_ilu_solver_type end type mld_s_ilu_solver_type
private :: s_ilu_solver_bld, s_ilu_solver_apply, & private :: s_ilu_solver_free, &
& s_ilu_solver_free, &
& s_ilu_solver_descr, s_ilu_solver_sizeof, & & s_ilu_solver_descr, s_ilu_solver_sizeof, &
& s_ilu_solver_default, s_ilu_solver_dmp, & & s_ilu_solver_default, s_ilu_solver_get_nzeros, &
& s_ilu_solver_apply_vect, s_ilu_solver_get_nzeros, &
& s_ilu_solver_get_fmt, s_ilu_solver_check, & & s_ilu_solver_get_fmt, s_ilu_solver_check, &
& s_ilu_solver_get_id, s_ilu_solver_get_wrksize & s_ilu_solver_get_id, s_ilu_solver_get_wrksize

2
mlprec/mld_s_jac_smoother.f90
Unescape Escape View File

@ -77,7 +77,7 @@ module mld_s_jac_smoother
end type mld_s_jac_smoother_type 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_sizeof, s_jac_smoother_get_nzeros, &
& s_jac_smoother_get_fmt, s_jac_smoother_get_id, & & s_jac_smoother_get_fmt, s_jac_smoother_get_id, &
& s_jac_smoother_get_wrksize & s_jac_smoother_get_wrksize

12
mlprec/mld_s_mumps_solver.F90
Unescape Escape View File

@ -90,8 +90,8 @@ module mld_s_mumps_solver
procedure, pass(sv) :: cseti => s_mumps_solver_cseti procedure, pass(sv) :: cseti => s_mumps_solver_cseti
procedure, pass(sv) :: csetr => s_mumps_solver_csetr procedure, pass(sv) :: csetr => s_mumps_solver_csetr
procedure, pass(sv) :: default => s_mumps_solver_default procedure, pass(sv) :: default => s_mumps_solver_default
procedure, nopass :: get_fmt => s_mumps_get_fmt procedure, nopass :: get_fmt => s_mumps_solver_get_fmt
procedure, nopass :: get_id => s_mumps_get_id procedure, nopass :: get_id => s_mumps_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: s_mumps_solver_finalize final :: s_mumps_solver_finalize
@ -440,19 +440,19 @@ contains
end function s_mumps_solver_sizeof end function s_mumps_solver_sizeof
#endif #endif
function s_mumps_get_fmt() result(val) function s_mumps_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "MUMPS solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_mumps_ val = mld_mumps_
end function s_mumps_get_id end function s_mumps_solver_get_id
end module mld_s_mumps_solver end module mld_s_mumps_solver

12
mlprec/mld_s_slu_solver.F90
Unescape Escape View File

@ -69,8 +69,8 @@ module mld_s_slu_solver
procedure, pass(sv) :: free => s_slu_solver_free procedure, pass(sv) :: free => s_slu_solver_free
procedure, pass(sv) :: descr => s_slu_solver_descr procedure, pass(sv) :: descr => s_slu_solver_descr
procedure, pass(sv) :: sizeof => s_slu_solver_sizeof procedure, pass(sv) :: sizeof => s_slu_solver_sizeof
procedure, nopass :: get_fmt => s_slu_get_fmt procedure, nopass :: get_fmt => s_slu_solver_get_fmt
procedure, nopass :: get_id => s_slu_get_id procedure, nopass :: get_id => s_slu_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: s_slu_solver_finalize final :: s_slu_solver_finalize
#endif #endif
@ -411,18 +411,18 @@ contains
return return
end function s_slu_solver_sizeof end function s_slu_solver_sizeof
function s_slu_get_fmt() result(val) function s_slu_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "SuperLU solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_slu_ val = mld_slu_
end function s_slu_get_id end function s_slu_solver_get_id
#endif #endif
end module mld_s_slu_solver end module mld_s_slu_solver

6
mlprec/mld_z_gs_solver.f90
Unescape Escape View File

@ -91,11 +91,9 @@ module mld_z_gs_solver
end type mld_z_bwgs_solver_type end type mld_z_bwgs_solver_type
private :: z_gs_solver_bld, z_gs_solver_apply, & private :: z_gs_solver_free, &
& z_gs_solver_free, &
& z_gs_solver_descr, z_gs_solver_sizeof, & & z_gs_solver_descr, z_gs_solver_sizeof, &
& z_gs_solver_default, z_gs_solver_dmp, & & z_gs_solver_default, z_gs_solver_get_nzeros, &
& z_gs_solver_apply_vect, z_gs_solver_get_nzeros, &
& z_gs_solver_get_fmt, z_gs_solver_check,& & z_gs_solver_get_fmt, z_gs_solver_check,&
& z_gs_solver_is_iterative, & & z_gs_solver_is_iterative, &
& z_bwgs_solver_get_fmt, z_bwgs_solver_descr, & & z_bwgs_solver_get_fmt, z_bwgs_solver_descr, &

6
mlprec/mld_z_ilu_solver.f90
Unescape Escape View File

@ -88,11 +88,9 @@ module mld_z_ilu_solver
end type mld_z_ilu_solver_type end type mld_z_ilu_solver_type
private :: z_ilu_solver_bld, z_ilu_solver_apply, & private :: z_ilu_solver_free, &
& z_ilu_solver_free, &
& z_ilu_solver_descr, z_ilu_solver_sizeof, & & z_ilu_solver_descr, z_ilu_solver_sizeof, &
& z_ilu_solver_default, z_ilu_solver_dmp, & & z_ilu_solver_default, z_ilu_solver_get_nzeros, &
& z_ilu_solver_apply_vect, z_ilu_solver_get_nzeros, &
& z_ilu_solver_get_fmt, z_ilu_solver_check, & & z_ilu_solver_get_fmt, z_ilu_solver_check, &
& z_ilu_solver_get_id, z_ilu_solver_get_wrksize & z_ilu_solver_get_id, z_ilu_solver_get_wrksize

2
mlprec/mld_z_jac_smoother.f90
Unescape Escape View File

@ -77,7 +77,7 @@ module mld_z_jac_smoother
end type mld_z_jac_smoother_type 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_sizeof, z_jac_smoother_get_nzeros, &
& z_jac_smoother_get_fmt, z_jac_smoother_get_id, & & z_jac_smoother_get_fmt, z_jac_smoother_get_id, &
& z_jac_smoother_get_wrksize & z_jac_smoother_get_wrksize

12
mlprec/mld_z_mumps_solver.F90
Unescape Escape View File

@ -90,8 +90,8 @@ module mld_z_mumps_solver
procedure, pass(sv) :: cseti => z_mumps_solver_cseti procedure, pass(sv) :: cseti => z_mumps_solver_cseti
procedure, pass(sv) :: csetr => z_mumps_solver_csetr procedure, pass(sv) :: csetr => z_mumps_solver_csetr
procedure, pass(sv) :: default => z_mumps_solver_default procedure, pass(sv) :: default => z_mumps_solver_default
procedure, nopass :: get_fmt => z_mumps_get_fmt procedure, nopass :: get_fmt => z_mumps_solver_get_fmt
procedure, nopass :: get_id => z_mumps_get_id procedure, nopass :: get_id => z_mumps_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: z_mumps_solver_finalize final :: z_mumps_solver_finalize
@ -440,19 +440,19 @@ contains
end function z_mumps_solver_sizeof end function z_mumps_solver_sizeof
#endif #endif
function z_mumps_get_fmt() result(val) function z_mumps_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "MUMPS solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_mumps_ val = mld_mumps_
end function z_mumps_get_id end function z_mumps_solver_get_id
end module mld_z_mumps_solver end module mld_z_mumps_solver

12
mlprec/mld_z_slu_solver.F90
Unescape Escape View File

@ -69,8 +69,8 @@ module mld_z_slu_solver
procedure, pass(sv) :: free => z_slu_solver_free procedure, pass(sv) :: free => z_slu_solver_free
procedure, pass(sv) :: descr => z_slu_solver_descr procedure, pass(sv) :: descr => z_slu_solver_descr
procedure, pass(sv) :: sizeof => z_slu_solver_sizeof procedure, pass(sv) :: sizeof => z_slu_solver_sizeof
procedure, nopass :: get_fmt => z_slu_get_fmt procedure, nopass :: get_fmt => z_slu_solver_get_fmt
procedure, nopass :: get_id => z_slu_get_id procedure, nopass :: get_id => z_slu_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: z_slu_solver_finalize final :: z_slu_solver_finalize
#endif #endif
@ -411,18 +411,18 @@ contains
return return
end function z_slu_solver_sizeof end function z_slu_solver_sizeof
function z_slu_get_fmt() result(val) function z_slu_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "SuperLU solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_slu_ val = mld_slu_
end function z_slu_get_id end function z_slu_solver_get_id
#endif #endif
end module mld_z_slu_solver end module mld_z_slu_solver

12
mlprec/mld_z_sludist_solver.F90
Unescape Escape View File

@ -68,8 +68,8 @@ module mld_z_sludist_solver
procedure, pass(sv) :: free => z_sludist_solver_free procedure, pass(sv) :: free => z_sludist_solver_free
procedure, pass(sv) :: descr => z_sludist_solver_descr procedure, pass(sv) :: descr => z_sludist_solver_descr
procedure, pass(sv) :: sizeof => z_sludist_solver_sizeof procedure, pass(sv) :: sizeof => z_sludist_solver_sizeof
procedure, nopass :: get_fmt => z_sludist_get_fmt procedure, nopass :: get_fmt => z_sludist_solver_get_fmt
procedure, nopass :: get_id => z_sludist_get_id procedure, nopass :: get_id => z_sludist_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: z_sludist_solver_finalize final :: z_sludist_solver_finalize
#endif #endif
@ -420,18 +420,18 @@ contains
return return
end function z_sludist_solver_sizeof end function z_sludist_solver_sizeof
function z_sludist_get_fmt() result(val) function z_sludist_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "SuperLU_Dist solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_sludist_ val = mld_sludist_
end function z_sludist_get_id end function z_sludist_solver_get_id
#endif #endif
end module mld_z_sludist_solver end module mld_z_sludist_solver

12
mlprec/mld_z_umf_solver.F90
Unescape Escape View File

@ -68,8 +68,8 @@ module mld_z_umf_solver
procedure, pass(sv) :: free => z_umf_solver_free procedure, pass(sv) :: free => z_umf_solver_free
procedure, pass(sv) :: descr => z_umf_solver_descr procedure, pass(sv) :: descr => z_umf_solver_descr
procedure, pass(sv) :: sizeof => z_umf_solver_sizeof procedure, pass(sv) :: sizeof => z_umf_solver_sizeof
procedure, nopass :: get_fmt => z_umf_get_fmt procedure, nopass :: get_fmt => z_umf_solver_get_fmt
procedure, nopass :: get_id => z_umf_get_id procedure, nopass :: get_id => z_umf_solver_get_id
#if defined(HAVE_FINAL) #if defined(HAVE_FINAL)
final :: z_umf_solver_finalize final :: z_umf_solver_finalize
#endif #endif
@ -415,18 +415,18 @@ contains
return return
end function z_umf_solver_sizeof end function z_umf_solver_sizeof
function z_umf_get_fmt() result(val) function z_umf_solver_get_fmt() result(val)
implicit none implicit none
character(len=32) :: val character(len=32) :: val
val = "UMFPACK solver" 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 implicit none
integer(psb_ipk_) :: val integer(psb_ipk_) :: val
val = mld_umf_ val = mld_umf_
end function z_umf_get_id end function z_umf_solver_get_id
#endif #endif
end module mld_z_umf_solver end module mld_z_umf_solver

Write Preview
Loading…
Cancel
Save