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

mld2p4-extaggr:

Browse Source 
mlprec/impl/Makefile
 mlprec/impl/mld_c_ml_prec_bld.f90
 mlprec/impl/mld_c_smoothers_bld.f90
 mlprec/impl/mld_cmlprec_bld.f90
 mlprec/impl/mld_d_ml_prec_bld.f90
 mlprec/impl/mld_d_smoothers_bld.f90
 mlprec/impl/mld_dmlprec_bld.f90
 mlprec/impl/mld_s_ml_prec_bld.f90
 mlprec/impl/mld_s_smoothers_bld.f90
 mlprec/impl/mld_smlprec_bld.f90
 mlprec/impl/mld_z_ml_prec_bld.f90
 mlprec/impl/mld_z_smoothers_bld.f90
 mlprec/impl/mld_zmlprec_bld.f90
 mlprec/mld_c_inner_mod.f90
 mlprec/mld_c_prec_mod.f90
 mlprec/mld_d_inner_mod.f90
 mlprec/mld_d_prec_mod.f90
 mlprec/mld_s_inner_mod.f90
 mlprec/mld_s_prec_mod.f90
 mlprec/mld_z_inner_mod.f90
 mlprec/mld_z_prec_mod.f90

Revised naming.
stopcriterion
Salvatore Filippone 8 years ago
parent 3e0040218a
commit bc8ba9bb8a
17 changed files with 48 additions and 108 deletions
Show Stats Download Patch File Download Diff File

8
mlprec/impl/Makefile
Unescape Escape View File

@ -23,25 +23,25 @@ MPCOBJS=mld_sslud_interface.o mld_dslud_interface.o mld_cslud_interface.o mld_zs
DINNEROBJS= mld_dmlprec_bld.o \ DINNEROBJS= mld_dmlprec_bld.o \
mld_d_ml_prec_bld.o mld_d_hierarchy_bld.o \ mld_d_smoothers_bld.o mld_d_hierarchy_bld.o \
mld_dilu0_fact.o mld_diluk_fact.o mld_dilut_fact.o mld_daggrmap_bld.o \ mld_dilu0_fact.o mld_diluk_fact.o mld_dilut_fact.o mld_daggrmap_bld.o \
mld_d_dec_map_bld.o mld_dmlprec_aply.o mld_daggrmat_asb.o \ mld_d_dec_map_bld.o mld_dmlprec_aply.o mld_daggrmat_asb.o \
$(DMPFOBJS) mld_d_extprol_bld.o mld_d_lev_aggrmap_bld.o mld_d_lev_aggrmat_asb.o $(DMPFOBJS) mld_d_extprol_bld.o mld_d_lev_aggrmap_bld.o mld_d_lev_aggrmat_asb.o
SINNEROBJS= mld_smlprec_bld.o \ SINNEROBJS= mld_smlprec_bld.o \
mld_s_ml_prec_bld.o mld_s_hierarchy_bld.o \ mld_s_smoothers_bld.o mld_s_hierarchy_bld.o \
mld_silu0_fact.o mld_siluk_fact.o mld_silut_fact.o mld_saggrmap_bld.o \ mld_silu0_fact.o mld_siluk_fact.o mld_silut_fact.o mld_saggrmap_bld.o \
mld_s_dec_map_bld.o mld_smlprec_aply.o mld_saggrmat_asb.o \ mld_s_dec_map_bld.o mld_smlprec_aply.o mld_saggrmat_asb.o \
$(SMPFOBJS) mld_s_extprol_bld.o mld_s_lev_aggrmap_bld.o mld_s_lev_aggrmat_asb.o $(SMPFOBJS) mld_s_extprol_bld.o mld_s_lev_aggrmap_bld.o mld_s_lev_aggrmat_asb.o
ZINNEROBJS= mld_zmlprec_bld.o \ ZINNEROBJS= mld_zmlprec_bld.o \
mld_z_ml_prec_bld.o mld_z_hierarchy_bld.o \ mld_z_smoothers_bld.o mld_z_hierarchy_bld.o \
mld_zilu0_fact.o mld_ziluk_fact.o mld_zilut_fact.o mld_zaggrmap_bld.o \ mld_zilu0_fact.o mld_ziluk_fact.o mld_zilut_fact.o mld_zaggrmap_bld.o \
mld_z_dec_map_bld.o mld_zmlprec_aply.o mld_zaggrmat_asb.o \ mld_z_dec_map_bld.o mld_zmlprec_aply.o mld_zaggrmat_asb.o \
$(ZMPFOBJS) mld_z_extprol_bld.o mld_z_lev_aggrmap_bld.o mld_z_lev_aggrmat_asb.o $(ZMPFOBJS) mld_z_extprol_bld.o mld_z_lev_aggrmap_bld.o mld_z_lev_aggrmat_asb.o
CINNEROBJS= mld_cmlprec_bld.o \ CINNEROBJS= mld_cmlprec_bld.o \
mld_c_ml_prec_bld.o mld_c_hierarchy_bld.o \ mld_c_smoothers_bld.o mld_c_hierarchy_bld.o \
mld_cilu0_fact.o mld_ciluk_fact.o mld_cilut_fact.o mld_caggrmap_bld.o \ mld_cilu0_fact.o mld_ciluk_fact.o mld_cilut_fact.o mld_caggrmap_bld.o \
mld_c_dec_map_bld.o mld_cmlprec_aply.o mld_caggrmat_asb.o \ mld_c_dec_map_bld.o mld_cmlprec_aply.o mld_caggrmat_asb.o \
$(CMPFOBJS) mld_c_extprol_bld.o mld_c_lev_aggrmap_bld.o mld_c_lev_aggrmat_asb.o $(CMPFOBJS) mld_c_extprol_bld.o mld_c_lev_aggrmap_bld.o mld_c_lev_aggrmat_asb.o

12
mlprec/impl/mld_c_ml_prec_bld.f90 → mlprec/impl/mld_c_smoothers_bld.f90
Unescape Escape View File

@ -36,9 +36,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
! File: mld_c_ml_prec_bld.f90 ! File: mld_c_smoothers_bld.f90
! !
! Subroutine: mld_c_ml_prec_bld ! Subroutine: mld_c_smoothers_bld
! Version: complex ! Version: complex
! !
! This routine builds the preconditioner according to the requirements made by ! This routine builds the preconditioner according to the requirements made by
@ -74,11 +74,11 @@
! !
! !
! !
subroutine mld_c_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) subroutine mld_c_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
use psb_base_mod use psb_base_mod
use mld_c_inner_mod use mld_c_inner_mod
use mld_c_prec_mod, mld_protect_name => mld_c_ml_prec_bld use mld_c_prec_mod, mld_protect_name => mld_c_smoothers_bld
Implicit None Implicit None
@ -109,7 +109,7 @@ subroutine mld_c_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level() debug_level = psb_get_debug_level()
name = 'mld_c_ml_prec_bld' name = 'mld_c_smoothers_bld'
info = psb_success_ info = psb_success_
int_err(1) = 0 int_err(1) = 0
ictxt = desc_a%get_context() ictxt = desc_a%get_context()
@ -191,4 +191,4 @@ subroutine mld_c_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
return return
end subroutine mld_c_ml_prec_bld end subroutine mld_c_smoothers_bld

2
mlprec/impl/mld_cmlprec_bld.f90
Unescape Escape View File

@ -129,7 +129,7 @@ subroutine mld_cmlprec_bld(a,desc_a,p,info,amold,vmold,imold)
iszv = p%get_nlevs() iszv = p%get_nlevs()
call mld_c_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) call mld_c_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_internal_error_ info=psb_err_internal_error_

12
mlprec/impl/mld_d_ml_prec_bld.f90 → mlprec/impl/mld_d_smoothers_bld.f90
Unescape Escape View File

@ -36,9 +36,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
! File: mld_d_ml_prec_bld.f90 ! File: mld_d_smoothers_bld.f90
! !
! Subroutine: mld_d_ml_prec_bld ! Subroutine: mld_d_smoothers_bld
! Version: real ! Version: real
! !
! This routine builds the preconditioner according to the requirements made by ! This routine builds the preconditioner according to the requirements made by
@ -74,11 +74,11 @@
! !
! !
! !
subroutine mld_d_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) subroutine mld_d_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
use psb_base_mod use psb_base_mod
use mld_d_inner_mod use mld_d_inner_mod
use mld_d_prec_mod, mld_protect_name => mld_d_ml_prec_bld use mld_d_prec_mod, mld_protect_name => mld_d_smoothers_bld
Implicit None Implicit None
@ -109,7 +109,7 @@ subroutine mld_d_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level() debug_level = psb_get_debug_level()
name = 'mld_d_ml_prec_bld' name = 'mld_d_smoothers_bld'
info = psb_success_ info = psb_success_
int_err(1) = 0 int_err(1) = 0
ictxt = desc_a%get_context() ictxt = desc_a%get_context()
@ -191,4 +191,4 @@ subroutine mld_d_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
return return
end subroutine mld_d_ml_prec_bld end subroutine mld_d_smoothers_bld

2
mlprec/impl/mld_dmlprec_bld.f90
Unescape Escape View File

@ -129,7 +129,7 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold,imold)
iszv = p%get_nlevs() iszv = p%get_nlevs()
call mld_d_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) call mld_d_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_internal_error_ info=psb_err_internal_error_

12
mlprec/impl/mld_s_ml_prec_bld.f90 → mlprec/impl/mld_s_smoothers_bld.f90
Unescape Escape View File

@ -36,9 +36,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
! File: mld_s_ml_prec_bld.f90 ! File: mld_s_smoothers_bld.f90
! !
! Subroutine: mld_s_ml_prec_bld ! Subroutine: mld_s_smoothers_bld
! Version: real ! Version: real
! !
! This routine builds the preconditioner according to the requirements made by ! This routine builds the preconditioner according to the requirements made by
@ -74,11 +74,11 @@
! !
! !
! !
subroutine mld_s_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) subroutine mld_s_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
use psb_base_mod use psb_base_mod
use mld_s_inner_mod use mld_s_inner_mod
use mld_s_prec_mod, mld_protect_name => mld_s_ml_prec_bld use mld_s_prec_mod, mld_protect_name => mld_s_smoothers_bld
Implicit None Implicit None
@ -109,7 +109,7 @@ subroutine mld_s_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level() debug_level = psb_get_debug_level()
name = 'mld_s_ml_prec_bld' name = 'mld_s_smoothers_bld'
info = psb_success_ info = psb_success_
int_err(1) = 0 int_err(1) = 0
ictxt = desc_a%get_context() ictxt = desc_a%get_context()
@ -191,4 +191,4 @@ subroutine mld_s_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
return return
end subroutine mld_s_ml_prec_bld end subroutine mld_s_smoothers_bld

2
mlprec/impl/mld_smlprec_bld.f90
Unescape Escape View File

@ -129,7 +129,7 @@ subroutine mld_smlprec_bld(a,desc_a,p,info,amold,vmold,imold)
iszv = p%get_nlevs() iszv = p%get_nlevs()
call mld_s_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) call mld_s_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_internal_error_ info=psb_err_internal_error_

12
mlprec/impl/mld_z_ml_prec_bld.f90 → mlprec/impl/mld_z_smoothers_bld.f90
Unescape Escape View File

@ -36,9 +36,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ POSSIBILITY OF SUCH DAMAGE.
!!$ !!$
!!$ !!$
! File: mld_z_ml_prec_bld.f90 ! File: mld_z_smoothers_bld.f90
! !
! Subroutine: mld_z_ml_prec_bld ! Subroutine: mld_z_smoothers_bld
! Version: complex ! Version: complex
! !
! This routine builds the preconditioner according to the requirements made by ! This routine builds the preconditioner according to the requirements made by
@ -74,11 +74,11 @@
! !
! !
! !
subroutine mld_z_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) subroutine mld_z_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
use psb_base_mod use psb_base_mod
use mld_z_inner_mod use mld_z_inner_mod
use mld_z_prec_mod, mld_protect_name => mld_z_ml_prec_bld use mld_z_prec_mod, mld_protect_name => mld_z_smoothers_bld
Implicit None Implicit None
@ -109,7 +109,7 @@ subroutine mld_z_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
debug_unit = psb_get_debug_unit() debug_unit = psb_get_debug_unit()
debug_level = psb_get_debug_level() debug_level = psb_get_debug_level()
name = 'mld_z_ml_prec_bld' name = 'mld_z_smoothers_bld'
info = psb_success_ info = psb_success_
int_err(1) = 0 int_err(1) = 0
ictxt = desc_a%get_context() ictxt = desc_a%get_context()
@ -191,4 +191,4 @@ subroutine mld_z_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold)
return return
end subroutine mld_z_ml_prec_bld end subroutine mld_z_smoothers_bld

2
mlprec/impl/mld_zmlprec_bld.f90
Unescape Escape View File

@ -129,7 +129,7 @@ subroutine mld_zmlprec_bld(a,desc_a,p,info,amold,vmold,imold)
iszv = p%get_nlevs() iszv = p%get_nlevs()
call mld_z_ml_prec_bld(a,desc_a,p,info,amold,vmold,imold) call mld_z_smoothers_bld(a,desc_a,p,info,amold,vmold,imold)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_internal_error_ info=psb_err_internal_error_

15
mlprec/mld_c_inner_mod.f90
Unescape Escape View File

@ -64,7 +64,6 @@ module mld_c_inner_mod
end subroutine mld_cmlprec_bld end subroutine mld_cmlprec_bld
end interface mld_mlprec_bld end interface mld_mlprec_bld
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_cmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_, psb_ipk_ use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_, psb_ipk_
@ -95,20 +94,6 @@ module mld_c_inner_mod
end subroutine mld_cmlprec_aply_vect end subroutine mld_cmlprec_aply_vect
end interface mld_mlprec_aply end interface mld_mlprec_aply
interface mld_coarse_bld
subroutine mld_ccoarse_bld(a,desc_a,p,info)
use psb_base_mod, only : psb_cspmat_type, psb_desc_type, psb_spk_, psb_ipk_
use mld_c_prec_type, only : mld_c_onelev_type
implicit none
type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(mld_c_onelev_type), intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
end subroutine mld_ccoarse_bld
end interface mld_coarse_bld
interface mld_bld_mlhier_aggsize interface mld_bld_mlhier_aggsize
subroutine mld_c_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info) subroutine mld_c_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info)
use psb_base_mod, only : psb_ipk_, psb_cspmat_type, psb_desc_type,psb_spk_ use psb_base_mod, only : psb_ipk_, psb_cspmat_type, psb_desc_type,psb_spk_

8
mlprec/mld_c_prec_mod.f90
Unescape Escape View File

@ -120,8 +120,8 @@ module mld_c_prec_mod
end subroutine mld_c_extprol_bld end subroutine mld_c_extprol_bld
end interface mld_extprol_bld end interface mld_extprol_bld
interface mld_ml_prec_bld interface mld_smoothers_bld
subroutine mld_c_ml_prec_bld(a,desc_a,prec,info,amold,vmold,imold) subroutine mld_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
import :: psb_cspmat_type, psb_desc_type, psb_spk_, & import :: psb_cspmat_type, psb_desc_type, psb_spk_, &
& psb_c_base_sparse_mat, psb_c_base_vect_type, & & psb_c_base_sparse_mat, psb_c_base_vect_type, &
& psb_i_base_vect_type, mld_cprec_type, psb_ipk_ & psb_i_base_vect_type, mld_cprec_type, psb_ipk_
@ -134,8 +134,8 @@ module mld_c_prec_mod
class(psb_c_base_vect_type), intent(in), optional :: vmold class(psb_c_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold class(psb_i_base_vect_type), intent(in), optional :: imold
! character, intent(in),optional :: upd ! character, intent(in),optional :: upd
end subroutine mld_c_ml_prec_bld end subroutine mld_c_smoothers_bld
end interface mld_ml_prec_bld end interface mld_smoothers_bld
contains contains

15
mlprec/mld_d_inner_mod.f90
Unescape Escape View File

@ -64,7 +64,6 @@ module mld_d_inner_mod
end subroutine mld_dmlprec_bld end subroutine mld_dmlprec_bld
end interface mld_mlprec_bld end interface mld_mlprec_bld
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_dmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_, psb_ipk_ use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_, psb_ipk_
@ -95,20 +94,6 @@ module mld_d_inner_mod
end subroutine mld_dmlprec_aply_vect end subroutine mld_dmlprec_aply_vect
end interface mld_mlprec_aply end interface mld_mlprec_aply
interface mld_coarse_bld
subroutine mld_dcoarse_bld(a,desc_a,p,info)
use psb_base_mod, only : psb_dspmat_type, psb_desc_type, psb_dpk_, psb_ipk_
use mld_d_prec_type, only : mld_d_onelev_type
implicit none
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(mld_d_onelev_type), intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
end subroutine mld_dcoarse_bld
end interface mld_coarse_bld
interface mld_bld_mlhier_aggsize interface mld_bld_mlhier_aggsize
subroutine mld_d_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info) subroutine mld_d_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info)
use psb_base_mod, only : psb_ipk_, psb_dspmat_type, psb_desc_type,psb_dpk_ use psb_base_mod, only : psb_ipk_, psb_dspmat_type, psb_desc_type,psb_dpk_

8
mlprec/mld_d_prec_mod.f90
Unescape Escape View File

@ -120,8 +120,8 @@ module mld_d_prec_mod
end subroutine mld_d_extprol_bld end subroutine mld_d_extprol_bld
end interface mld_extprol_bld end interface mld_extprol_bld
interface mld_ml_prec_bld interface mld_smoothers_bld
subroutine mld_d_ml_prec_bld(a,desc_a,prec,info,amold,vmold,imold) subroutine mld_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
import :: psb_dspmat_type, psb_desc_type, psb_dpk_, & import :: psb_dspmat_type, psb_desc_type, psb_dpk_, &
& psb_d_base_sparse_mat, psb_d_base_vect_type, & & psb_d_base_sparse_mat, psb_d_base_vect_type, &
& psb_i_base_vect_type, mld_dprec_type, psb_ipk_ & psb_i_base_vect_type, mld_dprec_type, psb_ipk_
@ -134,8 +134,8 @@ module mld_d_prec_mod
class(psb_d_base_vect_type), intent(in), optional :: vmold class(psb_d_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold class(psb_i_base_vect_type), intent(in), optional :: imold
! character, intent(in),optional :: upd ! character, intent(in),optional :: upd
end subroutine mld_d_ml_prec_bld end subroutine mld_d_smoothers_bld
end interface mld_ml_prec_bld end interface mld_smoothers_bld
contains contains

15
mlprec/mld_s_inner_mod.f90
Unescape Escape View File

@ -64,7 +64,6 @@ module mld_s_inner_mod
end subroutine mld_smlprec_bld end subroutine mld_smlprec_bld
end interface mld_mlprec_bld end interface mld_mlprec_bld
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_smlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_, psb_ipk_ use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_, psb_ipk_
@ -95,20 +94,6 @@ module mld_s_inner_mod
end subroutine mld_smlprec_aply_vect end subroutine mld_smlprec_aply_vect
end interface mld_mlprec_aply end interface mld_mlprec_aply
interface mld_coarse_bld
subroutine mld_scoarse_bld(a,desc_a,p,info)
use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_, psb_ipk_
use mld_s_prec_type, only : mld_s_onelev_type
implicit none
type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(mld_s_onelev_type), intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
end subroutine mld_scoarse_bld
end interface mld_coarse_bld
interface mld_bld_mlhier_aggsize interface mld_bld_mlhier_aggsize
subroutine mld_s_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info) subroutine mld_s_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info)
use psb_base_mod, only : psb_ipk_, psb_sspmat_type, psb_desc_type,psb_spk_ use psb_base_mod, only : psb_ipk_, psb_sspmat_type, psb_desc_type,psb_spk_

8
mlprec/mld_s_prec_mod.f90
Unescape Escape View File

@ -120,8 +120,8 @@ module mld_s_prec_mod
end subroutine mld_s_extprol_bld end subroutine mld_s_extprol_bld
end interface mld_extprol_bld end interface mld_extprol_bld
interface mld_ml_prec_bld interface mld_smoothers_bld
subroutine mld_s_ml_prec_bld(a,desc_a,prec,info,amold,vmold,imold) subroutine mld_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
import :: psb_sspmat_type, psb_desc_type, psb_spk_, & import :: psb_sspmat_type, psb_desc_type, psb_spk_, &
& psb_s_base_sparse_mat, psb_s_base_vect_type, & & psb_s_base_sparse_mat, psb_s_base_vect_type, &
& psb_i_base_vect_type, mld_sprec_type, psb_ipk_ & psb_i_base_vect_type, mld_sprec_type, psb_ipk_
@ -134,8 +134,8 @@ module mld_s_prec_mod
class(psb_s_base_vect_type), intent(in), optional :: vmold class(psb_s_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold class(psb_i_base_vect_type), intent(in), optional :: imold
! character, intent(in),optional :: upd ! character, intent(in),optional :: upd
end subroutine mld_s_ml_prec_bld end subroutine mld_s_smoothers_bld
end interface mld_ml_prec_bld end interface mld_smoothers_bld
contains contains

15
mlprec/mld_z_inner_mod.f90
Unescape Escape View File

@ -64,7 +64,6 @@ module mld_z_inner_mod
end subroutine mld_zmlprec_bld end subroutine mld_zmlprec_bld
end interface mld_mlprec_bld end interface mld_mlprec_bld
interface mld_mlprec_aply interface mld_mlprec_aply
subroutine mld_zmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info) subroutine mld_zmlprec_aply(alpha,p,x,beta,y,desc_data,trans,work,info)
use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_, psb_ipk_ use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_, psb_ipk_
@ -95,20 +94,6 @@ module mld_z_inner_mod
end subroutine mld_zmlprec_aply_vect end subroutine mld_zmlprec_aply_vect
end interface mld_mlprec_aply end interface mld_mlprec_aply
interface mld_coarse_bld
subroutine mld_zcoarse_bld(a,desc_a,p,info)
use psb_base_mod, only : psb_zspmat_type, psb_desc_type, psb_dpk_, psb_ipk_
use mld_z_prec_type, only : mld_z_onelev_type
implicit none
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(mld_z_onelev_type), intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
end subroutine mld_zcoarse_bld
end interface mld_coarse_bld
interface mld_bld_mlhier_aggsize interface mld_bld_mlhier_aggsize
subroutine mld_z_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info) subroutine mld_z_bld_mlhier_aggsize(casize,mxplevs,mnaggratio,a,desc_a,precv,info)
use psb_base_mod, only : psb_ipk_, psb_zspmat_type, psb_desc_type,psb_dpk_ use psb_base_mod, only : psb_ipk_, psb_zspmat_type, psb_desc_type,psb_dpk_

8
mlprec/mld_z_prec_mod.f90
Unescape Escape View File

@ -120,8 +120,8 @@ module mld_z_prec_mod
end subroutine mld_z_extprol_bld end subroutine mld_z_extprol_bld
end interface mld_extprol_bld end interface mld_extprol_bld
interface mld_ml_prec_bld interface mld_smoothers_bld
subroutine mld_z_ml_prec_bld(a,desc_a,prec,info,amold,vmold,imold) subroutine mld_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
import :: psb_zspmat_type, psb_desc_type, psb_dpk_, & import :: psb_zspmat_type, psb_desc_type, psb_dpk_, &
& psb_z_base_sparse_mat, psb_z_base_vect_type, & & psb_z_base_sparse_mat, psb_z_base_vect_type, &
& psb_i_base_vect_type, mld_zprec_type, psb_ipk_ & psb_i_base_vect_type, mld_zprec_type, psb_ipk_
@ -134,8 +134,8 @@ module mld_z_prec_mod
class(psb_z_base_vect_type), intent(in), optional :: vmold class(psb_z_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold class(psb_i_base_vect_type), intent(in), optional :: imold
! character, intent(in),optional :: upd ! character, intent(in),optional :: upd
end subroutine mld_z_ml_prec_bld end subroutine mld_z_smoothers_bld
end interface mld_ml_prec_bld end interface mld_smoothers_bld
contains contains

Write Preview
Loading…
Cancel
Save