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

smoother/

Browse Source
stopcriterion
Salvatore Filippone 7 years ago
parent 459a9d034e
commit 5ca07fc901
16 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/mld_c_base_aggregator_mod.f90
Unescape Escape View File

@ -51,7 +51,7 @@ module mld_c_base_aggregator_mod
use mld_base_prec_type, only : mld_sml_parms use mld_base_prec_type, only : mld_sml_parms
use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, & use psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, &
& psb_c_base_vect_type, psb_clinmap_type, psb_spk_, & & psb_c_base_vect_type, psb_clinmap_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, &
& psb_erractionsave, psb_error_handler, psb_success_ & psb_erractionsave, psb_error_handler, psb_success_
! !
! sm - class(mld_T_base_smoother_type), allocatable ! sm - class(mld_T_base_smoother_type), allocatable

4
mlprec/mld_c_dec_aggregator_mod.f90
Unescape Escape View File

@ -119,7 +119,7 @@ module mld_c_dec_aggregator_mod
interface interface
subroutine mld_c_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_c_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_c_dec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, & import :: mld_c_dec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms & psb_ipk_, psb_epk_, mld_sml_parms
implicit none implicit none
class(mld_c_dec_aggregator_type), target, intent(inout) :: ag class(mld_c_dec_aggregator_type), target, intent(inout) :: ag
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms
@ -135,7 +135,7 @@ module mld_c_dec_aggregator_mod
subroutine mld_c_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& subroutine mld_c_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,&
& op_prol,op_restr,info) & op_prol,op_restr,info)
import :: mld_c_dec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, & import :: mld_c_dec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms & psb_ipk_, psb_epk_, mld_sml_parms
implicit none implicit none
class(mld_c_dec_aggregator_type), target, intent(inout) :: ag class(mld_c_dec_aggregator_type), target, intent(inout) :: ag
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms

2
mlprec/mld_c_onelev_mod.f90
Unescape Escape View File

@ -321,7 +321,7 @@ module mld_c_onelev_mod
interface interface
subroutine mld_c_base_onelev_setag(lv,val,info,pos) subroutine mld_c_base_onelev_setag(lv,val,info,pos)
import :: psb_spk_, mld_c_onelev_type, mld_c_base_aggregator_type, & import :: psb_spk_, mld_c_onelev_type, mld_c_base_aggregator_type, &
& psb_ipk_, psb_long_int_k_, psb_desc_type & psb_ipk_, psb_epk_, psb_desc_type
Implicit None Implicit None
! Arguments ! Arguments

2
mlprec/mld_c_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_c_symdec_aggregator_mod
interface interface
subroutine mld_c_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_c_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_c_symdec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, & import :: mld_c_symdec_aggregator_type, psb_desc_type, psb_cspmat_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms & psb_ipk_, psb_epk_, mld_sml_parms
implicit none implicit none
class(mld_c_symdec_aggregator_type), target, intent(inout) :: ag class(mld_c_symdec_aggregator_type), target, intent(inout) :: ag
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms

2
mlprec/mld_d_base_aggregator_mod.f90
Unescape Escape View File

@ -51,7 +51,7 @@ module mld_d_base_aggregator_mod
use mld_base_prec_type, only : mld_dml_parms use mld_base_prec_type, only : mld_dml_parms
use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, & use psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, &
& psb_d_base_vect_type, psb_dlinmap_type, psb_dpk_, & & psb_d_base_vect_type, psb_dlinmap_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, &
& psb_erractionsave, psb_error_handler, psb_success_ & psb_erractionsave, psb_error_handler, psb_success_
! !
! sm - class(mld_T_base_smoother_type), allocatable ! sm - class(mld_T_base_smoother_type), allocatable

4
mlprec/mld_d_dec_aggregator_mod.f90
Unescape Escape View File

@ -119,7 +119,7 @@ module mld_d_dec_aggregator_mod
interface interface
subroutine mld_d_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_d_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_d_dec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, & import :: mld_d_dec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms & psb_ipk_, psb_epk_, mld_dml_parms
implicit none implicit none
class(mld_d_dec_aggregator_type), target, intent(inout) :: ag class(mld_d_dec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms
@ -135,7 +135,7 @@ module mld_d_dec_aggregator_mod
subroutine mld_d_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& subroutine mld_d_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,&
& op_prol,op_restr,info) & op_prol,op_restr,info)
import :: mld_d_dec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, & import :: mld_d_dec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms & psb_ipk_, psb_epk_, mld_dml_parms
implicit none implicit none
class(mld_d_dec_aggregator_type), target, intent(inout) :: ag class(mld_d_dec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms

2
mlprec/mld_d_onelev_mod.f90
Unescape Escape View File

@ -321,7 +321,7 @@ module mld_d_onelev_mod
interface interface
subroutine mld_d_base_onelev_setag(lv,val,info,pos) subroutine mld_d_base_onelev_setag(lv,val,info,pos)
import :: psb_dpk_, mld_d_onelev_type, mld_d_base_aggregator_type, & import :: psb_dpk_, mld_d_onelev_type, mld_d_base_aggregator_type, &
& psb_ipk_, psb_long_int_k_, psb_desc_type & psb_ipk_, psb_epk_, psb_desc_type
Implicit None Implicit None
! Arguments ! Arguments

2
mlprec/mld_d_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_d_symdec_aggregator_mod
interface interface
subroutine mld_d_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_d_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_d_symdec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, & import :: mld_d_symdec_aggregator_type, psb_desc_type, psb_dspmat_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms & psb_ipk_, psb_epk_, mld_dml_parms
implicit none implicit none
class(mld_d_symdec_aggregator_type), target, intent(inout) :: ag class(mld_d_symdec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms

2
mlprec/mld_s_base_aggregator_mod.f90
Unescape Escape View File

@ -51,7 +51,7 @@ module mld_s_base_aggregator_mod
use mld_base_prec_type, only : mld_sml_parms use mld_base_prec_type, only : mld_sml_parms
use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, & use psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, &
& psb_s_base_vect_type, psb_slinmap_type, psb_spk_, & & psb_s_base_vect_type, psb_slinmap_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, &
& psb_erractionsave, psb_error_handler, psb_success_ & psb_erractionsave, psb_error_handler, psb_success_
! !
! sm - class(mld_T_base_smoother_type), allocatable ! sm - class(mld_T_base_smoother_type), allocatable

4
mlprec/mld_s_dec_aggregator_mod.f90
Unescape Escape View File

@ -119,7 +119,7 @@ module mld_s_dec_aggregator_mod
interface interface
subroutine mld_s_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_s_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_s_dec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, & import :: mld_s_dec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms & psb_ipk_, psb_epk_, mld_sml_parms
implicit none implicit none
class(mld_s_dec_aggregator_type), target, intent(inout) :: ag class(mld_s_dec_aggregator_type), target, intent(inout) :: ag
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms
@ -135,7 +135,7 @@ module mld_s_dec_aggregator_mod
subroutine mld_s_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& subroutine mld_s_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,&
& op_prol,op_restr,info) & op_prol,op_restr,info)
import :: mld_s_dec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, & import :: mld_s_dec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms & psb_ipk_, psb_epk_, mld_sml_parms
implicit none implicit none
class(mld_s_dec_aggregator_type), target, intent(inout) :: ag class(mld_s_dec_aggregator_type), target, intent(inout) :: ag
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms

2
mlprec/mld_s_onelev_mod.f90
Unescape Escape View File

@ -321,7 +321,7 @@ module mld_s_onelev_mod
interface interface
subroutine mld_s_base_onelev_setag(lv,val,info,pos) subroutine mld_s_base_onelev_setag(lv,val,info,pos)
import :: psb_spk_, mld_s_onelev_type, mld_s_base_aggregator_type, & import :: psb_spk_, mld_s_onelev_type, mld_s_base_aggregator_type, &
& psb_ipk_, psb_long_int_k_, psb_desc_type & psb_ipk_, psb_epk_, psb_desc_type
Implicit None Implicit None
! Arguments ! Arguments

2
mlprec/mld_s_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_s_symdec_aggregator_mod
interface interface
subroutine mld_s_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_s_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_s_symdec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, & import :: mld_s_symdec_aggregator_type, psb_desc_type, psb_sspmat_type, psb_spk_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms & psb_ipk_, psb_epk_, mld_sml_parms
implicit none implicit none
class(mld_s_symdec_aggregator_type), target, intent(inout) :: ag class(mld_s_symdec_aggregator_type), target, intent(inout) :: ag
type(mld_sml_parms), intent(inout) :: parms type(mld_sml_parms), intent(inout) :: parms

2
mlprec/mld_z_base_aggregator_mod.f90
Unescape Escape View File

@ -51,7 +51,7 @@ module mld_z_base_aggregator_mod
use mld_base_prec_type, only : mld_dml_parms use mld_base_prec_type, only : mld_dml_parms
use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, & use psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, &
& psb_z_base_vect_type, psb_zlinmap_type, psb_dpk_, & & psb_z_base_vect_type, psb_zlinmap_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, psb_desc_type, psb_i_base_vect_type, & & psb_ipk_, psb_epk_, psb_desc_type, psb_i_base_vect_type, &
& psb_erractionsave, psb_error_handler, psb_success_ & psb_erractionsave, psb_error_handler, psb_success_
! !
! sm - class(mld_T_base_smoother_type), allocatable ! sm - class(mld_T_base_smoother_type), allocatable

4
mlprec/mld_z_dec_aggregator_mod.f90
Unescape Escape View File

@ -119,7 +119,7 @@ module mld_z_dec_aggregator_mod
interface interface
subroutine mld_z_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_z_dec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_z_dec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, & import :: mld_z_dec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms & psb_ipk_, psb_epk_, mld_dml_parms
implicit none implicit none
class(mld_z_dec_aggregator_type), target, intent(inout) :: ag class(mld_z_dec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms
@ -135,7 +135,7 @@ module mld_z_dec_aggregator_mod
subroutine mld_z_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,& subroutine mld_z_dec_aggregator_mat_asb(ag,parms,a,desc_a,ilaggr,nlaggr,ac,&
& op_prol,op_restr,info) & op_prol,op_restr,info)
import :: mld_z_dec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, & import :: mld_z_dec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms & psb_ipk_, psb_epk_, mld_dml_parms
implicit none implicit none
class(mld_z_dec_aggregator_type), target, intent(inout) :: ag class(mld_z_dec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms

2
mlprec/mld_z_onelev_mod.f90
Unescape Escape View File

@ -321,7 +321,7 @@ module mld_z_onelev_mod
interface interface
subroutine mld_z_base_onelev_setag(lv,val,info,pos) subroutine mld_z_base_onelev_setag(lv,val,info,pos)
import :: psb_dpk_, mld_z_onelev_type, mld_z_base_aggregator_type, & import :: psb_dpk_, mld_z_onelev_type, mld_z_base_aggregator_type, &
& psb_ipk_, psb_long_int_k_, psb_desc_type & psb_ipk_, psb_epk_, psb_desc_type
Implicit None Implicit None
! Arguments ! Arguments

2
mlprec/mld_z_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_z_symdec_aggregator_mod
interface interface
subroutine mld_z_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info) subroutine mld_z_symdec_aggregator_build_tprol(ag,parms,a,desc_a,ilaggr,nlaggr,op_prol,info)
import :: mld_z_symdec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, & import :: mld_z_symdec_aggregator_type, psb_desc_type, psb_zspmat_type, psb_dpk_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms & psb_ipk_, psb_epk_, mld_dml_parms
implicit none implicit none
class(mld_z_symdec_aggregator_type), target, intent(inout) :: ag class(mld_z_symdec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms type(mld_dml_parms), intent(inout) :: parms

Write Preview
Loading…
Cancel
Save