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 psb_base_mod, only : psb_cspmat_type, psb_c_vect_type, &
& 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_
!
! 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
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_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms
& psb_ipk_, psb_epk_, mld_sml_parms
implicit none
class(mld_c_dec_aggregator_type), target, intent(inout) :: ag
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,&
& op_prol,op_restr,info)
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
class(mld_c_dec_aggregator_type), target, intent(inout) :: ag
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
subroutine mld_c_base_onelev_setag(lv,val,info,pos)
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
! Arguments

2
mlprec/mld_c_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_c_symdec_aggregator_mod
interface
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_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms
& psb_ipk_, psb_epk_, mld_sml_parms
implicit none
class(mld_c_symdec_aggregator_type), target, intent(inout) :: ag
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 psb_base_mod, only : psb_dspmat_type, psb_d_vect_type, &
& 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_
!
! 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
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_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms
& psb_ipk_, psb_epk_, mld_dml_parms
implicit none
class(mld_d_dec_aggregator_type), target, intent(inout) :: ag
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,&
& op_prol,op_restr,info)
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
class(mld_d_dec_aggregator_type), target, intent(inout) :: ag
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
subroutine mld_d_base_onelev_setag(lv,val,info,pos)
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
! Arguments

2
mlprec/mld_d_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_d_symdec_aggregator_mod
interface
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_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms
& psb_ipk_, psb_epk_, mld_dml_parms
implicit none
class(mld_d_symdec_aggregator_type), target, intent(inout) :: ag
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 psb_base_mod, only : psb_sspmat_type, psb_s_vect_type, &
& 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_
!
! 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
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_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms
& psb_ipk_, psb_epk_, mld_sml_parms
implicit none
class(mld_s_dec_aggregator_type), target, intent(inout) :: ag
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,&
& op_prol,op_restr,info)
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
class(mld_s_dec_aggregator_type), target, intent(inout) :: ag
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
subroutine mld_s_base_onelev_setag(lv,val,info,pos)
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
! Arguments

2
mlprec/mld_s_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_s_symdec_aggregator_mod
interface
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_, &
& psb_ipk_, psb_long_int_k_, mld_sml_parms
& psb_ipk_, psb_epk_, mld_sml_parms
implicit none
class(mld_s_symdec_aggregator_type), target, intent(inout) :: ag
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 psb_base_mod, only : psb_zspmat_type, psb_z_vect_type, &
& 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_
!
! 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
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_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms
& psb_ipk_, psb_epk_, mld_dml_parms
implicit none
class(mld_z_dec_aggregator_type), target, intent(inout) :: ag
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,&
& op_prol,op_restr,info)
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
class(mld_z_dec_aggregator_type), target, intent(inout) :: ag
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
subroutine mld_z_base_onelev_setag(lv,val,info,pos)
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
! Arguments

2
mlprec/mld_z_symdec_aggregator_mod.f90
Unescape Escape View File

@ -102,7 +102,7 @@ module mld_z_symdec_aggregator_mod
interface
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_, &
& psb_ipk_, psb_long_int_k_, mld_dml_parms
& psb_ipk_, psb_epk_, mld_dml_parms
implicit none
class(mld_z_symdec_aggregator_type), target, intent(inout) :: ag
type(mld_dml_parms), intent(inout) :: parms

Write Preview
Loading…
Cancel
Save